在VB中，表示窗体加载的事件名是

A．Load

B．Click

C．Keypress

D．Dblclick

   在大小写英文字母组成的字符串中，当相邻两个字母的大小写不一致时，我们称为一次大小写变换。现编写“大小写字母变换次数统计”程序，实现如下功能：在文本框Text1中输入英文字母构成的字符串，单击“统计”按钮Command1，程序统计该字符串的大小写变换次数，并将结果显示在标签Label1中。程序运行界面如下图所示。

（1）设计程序界面时，要清空文本框Text1中的显示内容，应修改文本框的________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, ch As String, i As Integer, res As Integer
Dim f1 As Boolean   'f1表示前一个字母的大小写状态
Dim f2 As Boolean   'f2表示当前字母的大小写状态
s =①_________
res = 0: ch = Mid(s, 1, 1)
f1 = ch >= "A" And ch <= "Z"
For i = 2 To Len(s)
ch = Mid(s, i, 1)
f2 = ch >= "A" And ch <= "Z"
If ②________ Then res = res + 1
f1 = f2
Next i
Label2.Caption = "大小写变换次数为" & ③_______ & "次"
End Sub
（3）运行程序，在文本框Text1中输入“AmericanRAILWAY”，单击“统计”按钮，则显示的大小写变换次数是_______次。

有如下VB程序段：
n = Val(Text1.Text)
For i = 2 to 1 Step -1
If n Mod 2 = 0 Then
n = n \ 2
Else
n = 3 * n + 1
End If
Next i
Label1.Caption = Str(n)
运行该程序，在文本框Text1中输入10，单击按钮Command1后，标签Label1中显示的内容为

A．2

B．5

C．10

D．16

某VB程序如下:
Private Sub Command1_Click()

Dim s As Integer
Dim i As Integer
s = 1: i = 1
Do While i <= 10
s = s * i
i = i + 1
Loop
Label1.Caption = Str(s)
End Sub
运行该程序，单击按钮Command1后，出现如上图所示的出错信息。此时正在执行的语句是

A．Dim s As Integer	B．s = s * i
C．i = i + 1	D．Label1.Caption = Str(s)

某VB程序设计界面如下图所示。下列说法正确的是

A．该窗体中只有3个对象	B．该窗体的名称是“BMI计算器”
C．当前窗体文件名为“Form1.frm”	D．一个工程可以有多个窗体

有如下VB程序段：
Private Sub Command1_Click()
Dim n As Integer, r As Integer, s As String
Dim t As Integer, k As Integer, v As Integer
n = 35: t = 0: k = 0
s = ""
Do While n > 0
r = n Mod 2
n = n \ 2
t = t + r
k = k + 1
s = Str(r) + s
Loop
s = Mid("0000000", 1, 7 - k) + s
v = t Mod 2
Text1.Text = s + Str(v)
End Sub
执行该程序段后，文本框Text1中显示的内容是

A．1 0 0 0 1 1 1

B．0 1 0 0 0 1 1 1

C．1 1 0 0 0 1 1

D．1 1 0 0 0 1 0 1

   要求编写一个“查找大于h的最小身高”的VB程序，功能如下：在文本框Text1中依次输入各个人身高（数据都用逗号分隔并以逗号结尾），文本框Text2中输入身高值h，单击“查找”按钮Command1后，在Label3上显示大于h的最小身高值。例如，五个人身高为1.65,1.75,1.85,1.73,1.72，输入格式如图b所示。程序设计界面和运行界面分别如左图和右图所示。

 
（1）要使程序运行时，清空Label3上的内容，可在Form_Load事件过程中添加语句________（单选，填字母：

A．Label3.text="" /

B．Label3.Caption = "" /

C．Label3.Clear）。

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, k As Integer, s As String, ch As String
Dim h As Single, temp As Single, min As Single
s =①__________
h = Val(Text2.Text)
i = 1: temp = 0: k = 0
min = 0: flag = True
Do While i <= Len(s)
ch = Mid(s, i, 1)
If ch <> "," Then
②____________
Else
temp = Val(Mid(s, i - k, k))
If temp > h Then
If flag Or temp < min Then min = temp:③___________
End If
k = 0
End If
i = i + 1
Loop
Label3.Caption = "大于" + Str(h) + "的最小的身高是：" + Str(min)
End Sub
（3）运行该程序，若输入数据为“1.65,1.75,1.85,1.73,1.72”，则程序结束时，变量min的值为______。

下列属于程序设计语言的是（  ）。

A．ACDSee

B．VisualBasic

C．WinRAR

D．Premiere

计算 s=1+3+5+…+99的部分算法流程图如下图所示，其中①、②这两处应补充的内容是

A．①i←i+2  ②s←s+i	B．①i←i+1   ②s←s+i
C．①s←s+i  ②i←i+2	D．①s←s+i   ②i←i+1

有如下 Visual Basic 程序段： 
S = 0
For i = 1 To 5

s = s + i  

Next i
If i <= 5 Then
Text1.Text = Str(s)
Else
Text1.Text = Str(s + i)
End If
该程序段运行后，在文本框Text1中显示的是

A．5

B．6

C．15

D．21