1 . 下列VB表达式的值最大的是（     ）

A．Val(mid(“20201008”,3,1)	B．Int(sqr(18))+2
C．Len(“4+5“)	D．127 Mod 20\2

2 . VB 表达式Int(Rnd*9)+54\3^2/3的值可能是（   ）

A．9

B．16

C．19

D．27

3 . 有VB代码如下：
     Private Sub Command1_Click()

Dim s As Integer, i As Integer

s = 0

For i = 1 To 1000

            s = s + i

Next i

Print s

End Sub

运行时，出错信息如下图所示，导致此错误的语句或原因是（   ）。

A．将变量i的数据类型改为long	B．将变量s的数据类型改为long
C．将变量i的数据类型改为string	D．将变量s的数据类型改为string

4 . 有如下的程序段：若分别输入5、6，则该程序的运行结果是________。
Private Sub Command1_Click()
Dim a As String, b As String, c As String
a = InputBox("请输入a的值")
b = InputBox("请输入b的值")
c = a + b
Print c
End Sub

5 . 运行图1所示的VB程序，出现了图2所示错误。若要纠正程序中的错误，以下叙述正确的是（       ）。

A．将变量i的数据类型改为Double	B．将变量s的数据类型改为Double
C．将变量s的数据类型改为String	D．将变量i的数据类型改为String

6 . 表达式16/4-2^5*8/4 MOD 5\2的值为值是（       ）。

A．14

B．4

C．20

D．2

7 . 运行如下程序代码，出现了如图所示错误提示，则出错的语句是（       ）

Private Sub Command1_Click()

Dim a As Integer, b As Integer

Dim c As Integer       '①

a= Val(Text1. Text)       '②

b = Val(Text2. Text)

c=a + b       '③

Label1. Caption ="a + b="+c       '④

End Sub

A．①

B．②

C．③

D．④

8 . 运行如下程序段时，出现了如图所示的错误提示框：
Private Sub Command1_Click()
Dim r As Single,s As Single                                             '①
r="10米"                                                                        '②
s=3.14159*r*r                                                              '③
Text2.Text ="某个半径为"+ Str(r)+"米的圆,其面积为"+ Str(s)+"平方米."     '④
End Sub

则程序中出错的语句是（       ）

A．①

B．②

C．③

D．④

9 . 运行图1所示的VB程序，出现了图2所示错误。若要纠正程序中错误，以下叙述正确的是(        )
   

A．将变量b的数据类型改为Long

B．将变量a的数据类型改为Integer

C．将变量s的数据类型改为Integer

D．将变量b的数据类型改为String

10 . 为了丰富学生业余生活，学校举办校园歌手大赛，邀请了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. 混合结构