下列运算结果中，表达式值最大的是

A．2 Mod 3

B．3 Mod 2

C．2 / 3

D．2 \ 3

变量c中存储着一个字符，能正确判断出该字符为数字字符“a”~“z”的VB表达式是

A．c >= "a " And c <= "z "

B．c >= "a " Or c <= "z"

C．chr(c) >= "a " And chr(c) <=  "z "

D．chr(c) >= "a " Or chr(c) <=  "z "

为了丰富学生业余生活，学校举办校园歌手大赛，邀请了5位音乐老师作为评委打分，打分的上限是10分。统计选手得分时，去掉一个最高分，再去掉一个最低分，取评委打分的平均值作为选手的最终得分。程序运行结果界面如图所示。

请分析任务，完成下列题目。
程序代码如下：
Private Sub Command1_Click()
Dim s, As single
Dim Max , Min ,I As Integer
Dim a(5) As Integer
Max = 0
Min =    ①      
s = 0   
For i = 1 To 5
a(i) = InputBox("请输入第" & i & "个分数")
s = s + a(i)
If     ②   Then Max = a(i)  
If  Min > a(i) Then Min = a(i)   
Next i
s = ③  
Text1.Text = Max
Text2.Text = Min
Text3.Text = s
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
请分析任务，完成下列题目。
【小题1】在界面设计阶段，下列能清空文本框中内容的属性是

A．name

B．text

C．font

D．value

【小题2】在界面设计阶段，当双击窗体上的“计算”命令时，所打开的窗口是

A．代码窗口

B．属性窗口

C．工具箱窗口

D．工程资源管理器窗口

【小题3】下列控件在本程序窗体中用到的是

A．列表框

B．单选按钮

C．标签

D．组合框

【小题4】为精确计算选手的最终得分，程序中变量s的数据类型应定义为

A．整型

B．单精度型

C．字符型

D．布尔型

【小题5】在Visual Basic 6.0中，下列是窗体文件默认扩展名的是

A．vbp

B．frm

C．bas

D．exe

【小题6】程序中①所在位置表达式正确的是

A．0

B．1

C．5

D．10

【小题7】程序中②所在位置表达式正确的是

A．Max < a(i)

B．Max >a(i)

C．Max =a(i)

D．Max <> a(i)

【小题8】程序中③所在位置表达式正确的是

A．s/3

B．(s+Max+ Min)/5

C．(s - Max - Min) / 3

D．(s - Max - Min) / 5

【小题9】在设计程序界面时，要把Command1命令按钮上显示的文字“计算”字体设成“微软雅黑”，下列Command1控件的属性应设置的是

A．Caption

B．Font

C．Default

D．name

【小题10】变量s所表示的含义是

A．最低分

B．最高分

C．评委打分

D．最终得分

【小题11】当一个选分的得分分别为9，8，9，7，8的时候，下列最终得分计算正确的是

A．8

B．8.33

C．7.66

D．7

【小题12】程序中Command1控件响应的事件是

A．单击事件

B．双击事件

C．载入事件

D．活动事件

【小题13】程序中数组a(5)包含的元素个数是

A．1

B．5

C．6

D．10

【小题14】程序“For i = 1 To 5 ……Next i”中“s = s + a(i) ”被执行的次数是

A．1

B．4

C．5

D．6

【小题15】下图程序结构属于

A．顺序结构

B．分支结构

C．循环结构

D．混合结构

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

A．Load

B．Click

C．Keypress

D．Dblclick

有如下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