程序设计基础VB.doc

试题纸

一、单项选择 （每题2分，共40分）
1、Visual Basic是一种面向（）的程度设计语言。
（A）用户 （B）事件 （C）程序 （D）对象
2、在Visual Basic6.0中规定工程文件的扩展名是（）。
（A）vbp （B）for （C）frm （D）bas
3、下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。
（A）Label 控件 （B)TextBox 控件 （C）Timer 控件 （D）CommandButton 控件
4、双击窗体中的对象后,Visual Basic将显示的窗口是（）。
(A)项目(工程)窗口 （B)工具箱 (C)代码窗口 （D）属性窗口
5、语句PRINT "25*4"的输出结果是（）。
（A）25*4 （B）"100" （C）100 （D）出现错误信息
6、Int(Rnd * 100) 表示的是( )范围内的一个整数。
（A） [0,100] （B） [1,99] (C) [0,99] (D) [1,100]
7、如何使一个标签或按钮控件在运行时不可用（）。
(A)把它的Visible属性设置成False (B)把它的Visible属性设置成True
(C)把它的Enabled属性设置成False (D)把它的Enabled属性设置成True
8、InputBox函数返回值的类型为（）。
(A) 数值 （B)数值或字符串（视输人的数据而定）
(C) 变体 (D)字符串
9 执行以下语句时,会出现错误提示的是__________.
(A) Print"2b3 " +12.5 (B). Print"12.5"+ 12
(C).Print"12.5" & 12.5 (D).Print"2e3"+12
10、在窗体上画三个单选按钮，组成一个名为command1的控件数组。用于标识各个控件数组元素的参数是（）。
（A）command1 （B）Index （C）ListIndex （D）Name
11、以下合法的Visual Basic变量是（）。
（A）ForLoop （B） Const （C） 9abc （D） a#x
12、有如下事件过程
Private Sub Command1_Click()
x = 1
For i = 1 To 3
If i <= 1 Then a = x * x
If i <= 2 Then a = x * x + 1
If i >= 3 Then a = x * x + 2
Print a;
Next i
End Sub
运行时，单击命令按钮，则结果是（ ）：
（A）2 5 11 （B）1 5 1 （C） 2 2 3 （D）1 1 1
13、以下Case语句含有错误的是___________.
（A） Case 0 To 10 （B）Case Is>10
（C） Case Is>10 And Is<50 （D）Case 3,5,Is>10
14、表达式 5 Mod 3+3\5*2的值是 （　　）
（A） 0 （B） 6 （C）4 （D） 2
15、执行下列程序段后，x的值是（ ）。
n = 4: x = 1: i = 1
Do
x = x * i
i = i + 1
Loop While i < n
（A）2 （B）6 （C）10 （D） 14
16、执行以下程序段，输出结果为 （　　）
Private Sub Command1_Click()
a$="abbacddcba"
For i=6 To 2 Step -2
X=Mid(a,i,i)
Y=Left(a,i)
z=Right(a,i)
z= UCase(x & y & z)
Next i
Print z
End Sub
（A） ABA （B）ABBABA （C） BBABBA （D）AABAAB
17、表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（）。
（A）4 （B）5 （C）6 （D）7
18、设x=4,y=8,z=7，表达式x<y And (Not y>z) Or z<x的值是（）。
（A） 1   （B） -1   （C） True   （D） False
19、以下关于VB列表框的叙述中（）是错误的。
（A）可通过属性“Item”，返回列表框中的项目。
（B）可通过属性“Text”，得到当前列表项中的内容。
（C）可通过属性“ListIndex”返回当前选中的列表项的索引。
（D）可通过属性“ListCount”返回列表框中项目的数目。
20、阅读下列程序段
k = 0
For n = 3 To 100
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next i
L1：If i > n - 1 Then k = k + 1: Print n;
L2：If k = 5 Then k = 0: Print
Next n
本程序的功能为（）。
（A）打印3～100之间的所有数 （B）打印3～100之间的所有2的倍数
（C）打印3～100之间的所有5的倍数 （D）打印3～100之间的所有素数

二 填空题 （每空3分，共36分）
21、阅读下列程序
Option Base 1
Private Sub Form_Click()
Dim a As Variant, b As Variant
Dim c(7) As Integer
a = Array(2, 8, 7, 6, 4, 26, 24)
b = Array(79, 27, 32, 40, 57, 66, 82)
Print "两组相加结果数值：";
For i = 1 To 7
c(i) = a(i) + b(i)
Print c(i);
Next i
End Sub
语句“Option Base 1”的说法中正确的是＿【1】＿＿＿，该程序的功能是＿＿【2】＿＿。
22 执行下面程序，单击Command1，则窗体上的第一行是＿【1】＿＿＿，第三行是＿＿【2】＿＿，最后一行是＿＿【3】＿＿。
Private Sub Command1＿Click()
Dim x As Integer,y As Integer
x=12:y=0
Do While x> 0
If x Mod 4=0 Then
y=y+x
Else
y=y-x
End If
x=x-3
Print x,y
Loop
End Sub
23 运行下面的程序，单击Command1,在窗体上显示的变量a的值为____【1】______，变量b的值为_____【2】____,变量c的值为_____【3】______。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a=5: b=10: c=15
Print fun(a,b,c)+fun(a,b,c)
Print a,b,c
End Sub
Private Function fun(x As Integer, y As Integer, z As Integer) As Integer
z=x
x=x+y
y=y+z
fun=x+y
End Function
24 运行下面程序，单击Command1，在窗体上显示的变量a的值为___【1】____,变量b的值为____【2】______
Dim a As Integer
Private Sub Command1_Click()
Dim b As Integer
b = 3
a = 4
b = fun(a, b + 2) + b Print a, b
End Sub
Private Function fun(n As Integer, k As Integer)
n = n + a
k = n - k
fun = n + k + a
End Function
25、下面程序执行后a的值是______。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 1: b = 1
Do While b <> 5
a = b - a
b = b + 1
Loop
Print a
End Sub
26、程序运行时，单击Command1按钮，显示结果是______。
Private Sub Command1_Click()
Dim a As Variant, s As Integer
Dim i As Integer, j As Integer
a = Array(1, 2, 3, 4)
j = 1
For i = 3 To 0 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub

三 编写程序题 (每题12分，共12*2 = 24分)
27 窗体上有一个命令按纽，名称为command1，有一个文本框，名称为text1,单击command1,将1到100的偶数和显示在文本框text1 中，完成Command1_Click中的代码：
Private Sub Command1_Click()

End Sub
28窗体上有一个命令按纽，名称为command1，单击command1后，用inputbox函数从键盘输入10个整数，存储在一个数组中，求这10个整数的最大值，并用print输出在窗体上。完成Command1_Click中的代码：
Private Sub Command1_Click()

End Sub

程序设计基础(VB) B卷 共5页 第5页