上海市高等学校计算机等级考试试卷
二级Visual Basic程序设计
（考试时间120分钟----C卷）
一、单选题(15分，每题1分)
1.Visual Basic 是一种面向对象的可视化程序设计语言，采取了_________ 的编程机制。
A.事件驱动
B.按过程顺序执行
C.从主程序开始执行
D.按模块顺序执行
2.结构化程序由三种基本结构组成，下面属于三种基本结构之一的是______。
A.递归结构
B.循环结构
C.过程结构
D.输入输出结构
3. 如果在菜单编辑器中定义了一个名为MyItem的子菜单项，为了在程序运行时，让菜单项变暗（可见但不可用），应使用语句。
A. MyItem.Visible=False
B. MyItem.Enabled=False
C. MyItem.Checked=False
D. MyItem.Option=False
4.仅取消窗体的最大化功能，需要设置______ 属性为False。
A. ControlBox
B. MinButton
C. Enabled
D. MaxButton
5. 计算今天离2008年1月1日还要多少天的表达式为__________。
A. DateAdd(Date , #1/1/2008# )
B. DateDiff(Date , #1/1/2008# )
C. DateAdd("d", Date , #1/1/2008# )
D. DateDiff("d", Date , #1/1/2008# )
6. 在Visual Basic中，按__________键可以直接运行当前程序。
A .F1
B .F3
C .F5
D .F7
7.下面的四个VB逻辑表达式中，语法正确的是______ 。
A. x > y .And. x <> y
B. x > y And z
C. x> y And x≠z
D. x > y And y <> z
8. 下述不是容器对象的控件是。
A. Form
B. Picture
C. Frame
D. Image
9.下列语句正确的是_________。
A. If x≥0 Then Print “x不小于0”
B. If x>=0 Then Print “x不小于0”
C. If x≥0 Then Print “x不小于0” End If
D. If x>=0 Then Print “x不小于0” End If
10.声明一个长度为20个字节的字符串变量ms，应使用__________ 。
A. Dim ms As 20
B. Dim ms(20) As String
C. Dim ms As String * 20
D. Dim ms As String(20)
11._________，在每次调用该过程时其值不能保留。
A. 在通用声明段声明窗体级变量
B. 在过程体中用Static语句声明的变量
C. 在过程体中用Dim语句声明的变量
D. 在标准模块中声明的全局变量
12. 如果要使时钟的Timer事件过程每隔5秒钟运行一次，应将Interval属性设置为
_________。
A.5
B.50
C.500
D.5000
13.将数据项"China"添加到列表框(List1)中成为第一项，应使用_________语句。
A. List1.AddItem "China", 0
B. List1.AddItem "China", 1
C. List1.AddItem 0, "China"
D. List1.AddItem 1, "China"
14. 若有数组声明：Dim c(3, 4 To 5) As Integer,下面数组元素引用中正确的是________ 。
A. c(1,2)
B. c(0,5)
C. c(4)
D.c(4,4)
15.设CurrentX=1200，执行语句"Line -Step(1000, 500), , B" 后，CurrentX=__________。
A. 2200
B. 1200
C. 1000
D. 1700
二、填充题(20分，每空2分)
1.当焦点进入文本框Text1时，要自动选定文本框第3到第8个位置上的6字符，则需要通过代码Text1.SelStart = 2 和Text1.SelLength =______ 来实现。
2.对文本框中所选定的内容不能进行编辑，原因是文本框__________属性设置为True。
3.标签Label的默认属性是_____________。
4.表达式Chr(Asc("A") + 1 )的值为_____________ 。
5.对For i = 11 To 5 Step -2 语句，共循环__________次。
6.查找数组中最大元素及下标位置。
Dim a()
a=Array(1,5,7,4,3,2)
m = a(0)
id = 0
For i=1 To 5
If a(i)> m Then
id = i
________
End If
Next i
Print m,id
7.当用户单击滚动条的空白处时，滑块移动的增量值由__________属性决定。
8. 任何控件都必须有的属性是___________。
9.如果一个变量未经定义就直接使用，则该变量的类型为___________。
10._______方法用于在窗体或图形框的指定位置上画点。
三、程序填充题(30分，每空2.5分)
1. 程序运行时通过"打开文件"对话框，打开选定的顺序文件，读取文件中的数据，并统计出能被3整除的数的个数。文件中数据以紧凑格式存放，形式为：
12,45,78,56,33,89,34,7,9,4
程序的思想是每次从文件读一个数值，判断能否被3整除。
Private Sub Form_Click
Dim x%, k%
CommandDialog1.ShowOpen
Open CommandDialog1._ _(1) __ For Input As #1
Do While _ (2)
Input #1, x
If _ _(3) _ Then
k = k + 1
End If
Loop
Label1 = k
Close #1
End Sub
2. 回文平方数是指构成的字符左右对称而且等于另一个数的平方，例如：121=11*11、1030301=101*101。下面的程序找出100以内的回文平方数。
程序的思想是：将正整数N的平方数转为字符，判断左右是否对称，若是，在文本框内
