- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
有如下的程序段:
Private Sub Command1_Click()
Dim a As String, b AsString
a = Text1.Text
b = Text2.Text
Text3.Text = a + b
End Sub
运行程序,在对象Text1和Text2中分别输入2和3,则单击命令按钮Command1后,对象Text3中显示( )
Private Sub Command1_Click()
Dim a As String, b AsString
a = Text1.Text
b = Text2.Text
Text3.Text = a + b
End Sub
运行程序,在对象Text1和Text2中分别输入2和3,则单击命令按钮Command1后,对象Text3中显示( )
A.23 | B.a+b | C.5 | D.2+3 |
“如果a,b中任意一个为0,那么y=y+1”,能实现该功能的VB语句是( )
A.If a=0 And b=0 Then y=y+1 | B.If a*b=0 Then y=y+1 |
C.If a=0,b=0 Then y=y+1 | D.If a∙b=0 Then y=y+1 |
在包含20 个元素的数组a 中,寻找最小值的VB 程序段如下。其中变量min 用于储最小值:
For i=2 To 20
If a(i)<min Then min=a(i)
Next i
则方框中最合适的语句是: ( )
For i=2 To 20
If a(i)<min Then min=a(i)
Next i
则方框中最合适的语句是: ( )
A.a(i)=min | B.min=a(i) | C.a(1)=min | D.min=a(1) |
在条件语句If x=1 Then y=2中,下列说法正确是( )
A.x=1和y=2均为赋值语句 | B.x=1和y=2均为关系表达式 |
C.x=1为关系表达式,y=2为赋值语句 | D.x=1为赋值语句,y=2为关系表达式 |
在text1中输入一串字符,单击命令按钮command1,统计字符串中字母、数字、下划线的个数,并在标签label2上输出。
(1)结合界面与代码,可知当前窗体(不包含窗体本身)中共有①__类,②__个对象,若要让文本框text1显示为空,应该修改文本框text1的③___属性。
(2)对代码进行填空。

Private Sub Command1_Click(___)
Dim s,ch as string
Dim a,b,c as integer
a=0:b=0:c=0
_____________________④
For i=1 to_______⑤
_________________⑥ ‘取第i个字符ch
If ______________________________⑦then ‘如果ch是字母则a计数器加1
a=a+1
Elseif ch>=”0” and ch<=”9 ” then ‘若是数字则数字计数器b加1
b=b+1
Else
c=c+1
End if
_______________⑧
Text2.text=str(a)
Text3.text=str(b)
Text4.text=str(c)
End sub
(1)结合界面与代码,可知当前窗体(不包含窗体本身)中共有①__类,②__个对象,若要让文本框text1显示为空,应该修改文本框text1的③___属性。
(2)对代码进行填空。

Private Sub Command1_Click(___)
Dim s,ch as string
Dim a,b,c as integer
a=0:b=0:c=0
_____________________④
For i=1 to_______⑤
_________________⑥ ‘取第i个字符ch
If ______________________________⑦then ‘如果ch是字母则a计数器加1
a=a+1
Elseif ch>=”0” and ch<=”9 ” then ‘若是数字则数字计数器b加1
b=b+1
Else
c=c+1
End if
_______________⑧
Text2.text=str(a)
Text3.text=str(b)
Text4.text=str(c)
End sub