精选文库
计算机专业第二次月考试卷
一、选择题（本大题共 10小题，每小题2分，共20分）
1 .在Visual Basic 中，Print Int（35*Rnd）+n 产生的随机数的范围是 10 至 44 (含 10 及 44)，
则n是
A. 10 B. 20 C. 30 D. 35
2. 在Visual Basic 中，下列可作为 Visual Basic 变量名的是 A. File name B. Val C. X%D D. Print 3.在Visual Basic中，下列语句用来设置窗体中文本框（名称 Text1 ）的属性，其中在运行时 不能正确操作
的语句是 A. Text1.Text=\
B. Text1.Name=\
C. Text1.E nabled = False
D. Text1.Visible = False
4. 在Visual Basic 中，下列运算符优先级最高的是 A. + B. * C. > .And
5. 执行下面 Visual Basic 程序后，结果是哪个选项 Fori = 1 To 6
If i Mod 2 = 0 The n
Prin t \
Else
Prin t
\； End If
Next i
A. ######
C. *#*#*# .#*#*#*
6.
下面的 Visual Basic 程序是对数组a中的元素按升序排列，程序中空白位置应该填下列选
项中的哪一个
Op tio n Base 1 Dim i As In teger
Dim j As In teger
a = Array(2, 4, 7, 9, 3, 6, 20, 11) For i = 1 To 7 For j = i + 1 To 8 If a(i) > a(j) Then a(i) = a(i) + a(j) a(j) = a(i) - a(j)
End If Next j Next i Fori = 1 To 8
Print a(i); Next i A. a(i)=a(j) B. a(i) = a(i) - a(j) C. a(j)=a(i)-a(j)
D. Exit For
7.
执行下面Visual Basic
程序后，s=s+1语句被执行了多少次
Dim s As In teger
Fori = 1 To 10 Forj = 0 To i- 1
Next j Next i A. 0
B. 10
.55
D. 66
精选文库
8.执行下面Visual Basic 程序，数组a中的数字50所在位置的下标是....（ End Select
Op tion Base 1
Private Sub Comma nd1_Click()
Dim i As In teger
Dim k As In teger
Dim t As In teger
Dim w As In teger
Dim m As In teger
a = Array(3, 56, 8, 10, 89, 94, 78, 82, 20, 50, 100)
m = UBoun d(a) k = m / 2 Fori = 1 To k
w = a(i): a(i) = a(m - i + 1): a(m - i + 1) = w Next i
End Sub
A. 1
B. 2
C. 3
D. 5
9. 在Visual Basic 中，关于控件及窗体说法不正确的是
A.任何一个控件都有名称 B.任何一个控件都有属性
C.任何一个控件都有单击事件 D.控件是对象，窗体也是对象
10.执行下面Visual Basic 程序，输入
a
的值为
（
Dim a As In teger Dim s As In teger
a = Inp utBox(\
Select Case a Mod 2 Case 1: s = 1 Case 2: s = 10
Case 3: s = 11 Case Else: s = 100
，最后输出
s
的值是?…
Print s A. 1
B. 2
C. 3 D. 100
二、判断题（本大题
5小题，每小题2分，共10分。）
1. 在 Visual Basic 中, 对顺序文件既有读的操作语句，也有写的操作语句。 （
2. 在 Visual Basic 中, 窗体appearanee属性的功能是返回或设置对象的边框样式。 3. 在 Visual Basic 中, 定时器控件在运行时是可见的。
（
）
4. 在 Visual Basic
中, 窗体的move方法中，参数left、width、height者E不可以省略。（
）5.
在 Visual Basic 中, form1.visible=true ，这时窗体不可见。（
）
三、填空题（本大题共5小题，每小题2分，共10分。）
1. Visual Basic 的算术表达式 4 / 3 Mod 3 * 2 + 2 的结果是
2.
在Visual Basic 中，将文本框的scrollbar
的属性设置为2,但没有垂直滚动条显示，原因
是没有将 _________________________ 属性设置为True o
3.
在Visual Basic
中，有以下的循环：
X=1
Do while x<=5
X _________________________________ Loop
程序运行后，要求执行
3次循环体，请填空。
4. 在Visual Basic中，根据数组占用内存方式的不同， 将数组分为常规数组和 ________________ o
5.
在Visual Basic
中，要将某一控件从
tab键顺序中删除，只要将其
tabstop 属性设置
成 ________________________ o
四、程序分析（本大题共1小题，每小题5分，共5分）
阅读下面的 Visual Basic
程序，程序运行后 s的值是 _________________________
Op ti on Base 0
Private Sub Comma nd1_Click()
Dim a(4) As In teger Dim i As In teger Dim j As In teger Dim w As In teger Dim s As In teger j = 0: s = 0
10
精选文库
For i = 1 To 100 w = lnt(6 * Rnd) If w = 2 The n a(j) = w s = s + a(j)
Else
End If
If j = 5 The n Exit For
Next i
Print s
End Sub
五、写出下列程序的运行结果 （本大题共2小题，每小题5分，共15 分） 1 .分析下面Visual Basic 程序段。窗体中有一命令按钮（名称为
Private Sub Comma nd1_Click()
Dim a(3) As In teger Dim i As In teger, w As In teger
Fori = 0 To 3
a(i) = i Next i Fori = 0 To 3 w = w + fu(a(i)) Next i Print w End Sub
Private Function fu(k As In teger)
Comma nd)!。fu=k End Fun cti on
窗体启动后单击命令按钮，输出 w的值为 ________________
2 .分析下面 Visual Basic 程序段。窗体中有一命令按钮（名称为
Comma nd）
Op tio n Base 1
Private Sub Comma nd1_Click()
a = Array(23, 24, 17, 8, 11, 15, 16, 13) Dim i As In teger Dim num As In teger Dim k As In teger Dim j As In teger Dim flag As In teger num = 0 Fori = 1 To 8
flag = 0
k = In t(Sqr(a(i))) Forj = 2 To k
If a(i) Mod j = 0 Then flag = 1 Next j
If flag = 0 Then num = num + a(i) Next i Print num End Sub
窗体启动后单击命令按钮，输出语句
Print num执行结果是 __________
3.在窗体上有一个名称为 Comma nd的命令按钮，然后编写如下事件过程:
Op tio n Base 1
Private Sub Comma nd1_Click（） Dim a As Varia nt a = Array(5, 6, 7, 8, 9)
Sum = 0 Fori = 1 To 5
计算机专业第二次月考试题
