求下列VB练习复习题答案
一、选择题（每题2分，共计60分）1、利用VB设计程序的基本步骤可分四步：
（1）设计用户界；（2）（）；（3）运行调试程序；（4）生成执行文件。
A、编写代码 B、设计算法 C、信息反馈 D、系统集成
2、在一行内写多条语句时，每个语句之间用（）符号分隔。
A、 , B、 ： C、 . D、 ；
3、下面（ ）是合法的变量名。
A、B_CD B、123ABC C、INTEGER D、X-Y
4、下面（ ）是合法的字符常量。
A、 ABC$ B、 “ABC” C、 ‘ABC’ D、 ABC
5、表达式16/4 - 2^5*8 MOD 5\2的值为（ ）。
A、14 B、 4 C、20 D、2
6、以下语句的输出结果是_______。
Print Format(32548.5,“000,000.00”)
A）32548.5 B）32,548.5
C）032,548.50 D）32,548.50
7、设a="a"，b="b"，c="c"，d="d"，
执行语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为____。
A、"a" B、"b" C、"B" D、"A"
8、在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Click()
x = InputBox("请输入一个整数")
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为
A、123 B、456 C、579 D、123456
9、在VB中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从高到低的顺序是（ ）。
A、 AND->NOT->OR B、 NOT->AND->OR
C、 OR->NOT->AND D、 NOT->OR->AND
10、下面程序段运行时内层循环的循环总次数（ ）。
For x=1 to 2
for y=1 to x
next y
Next x
A.、1 B、2 C、3 D、4
11、在VB中，复写框（Check）的Value值有三种，分别是（ ）。
A、-1，0，1 B、0，1，2
C、1，2，3 D、True，False，0
12、若要退出For循环，可使用的语句为（ ）。
A、Exit B、Exit Do C、Time D、Exit For
13、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 （ ）
A、Private Sub Text1_Change()
Command1.Caption = "计算机等级考试"
End Sub
B、Private Sub Command1_Click()
Caption = "计算机等级考试"
End Sub
C、Private Sub Form_Click()
Text1.Caption = "计算机等级考试"
End Sub
D、Private Sub Command1_Click()
Text1.Text = "计算机等级考试"
End Sub
14、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是( )
A、Form1.Caption “时钟” B、Form1.Caption=“时钟”
C、Caption=“时钟” D、Fopm1.Caption( “时钟”)
15、保存文件时，窗体的所有数据存储格式为( )
A、 *．PRG B、 *．FRM C、*．VBP D、 *．EXE
16、在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒中在文本框中显示一次当前的时间。以下是实现上述操作的程序：
Private Sub Command1_Click()
Timer1._______
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
在_____处应填入的内容是（）
A、Enabled = True B、Enabled = False C、Visible = True D、Visible = False
17、以下程序运行后，单击命令按钮，在窗体上显示的内容是( ).
Private Sub Command1_Click()
Dim x As Integer
Static y As Integer
x=10
y=5
call f1(x, y)
Print x,y
End Sub
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
A) 10 5 B) 12 5 C) 10 7 D) 12 7
18、VB中的变量如果没有显示声明其数据类型，则默认为（ ）
A、日期型 B、数据型 C、字符型 D、变体型
19、在VB中，通过改变列表框（ ）属性的值 ，可以为列表框添加项目。
A、List B、（名称） C、Caption D 、Text
20、下列程序段的执行结果为_______。
m=1
n=1
Select Case m
Case 1
Select Case n
Case 0
Print “**0**”
Case 1
Print “**1**”
End Select
Case 2
Print “**2**”
End Select
A、**0** B、 0 C、**2** D、**1**
21、下面程序段显示的结果是（ ）。
Dim x
If x then print x
Else print x+1
A、1 B、0 C.、-1 D、显示出错信息
22、用来测试指定文件结束状态的函数是（）
A、Eof B、FreeFile C、Loc D、Open
23、当Long类型数据与Single类型运算时,运算结果的类型为（ ）。
A、Integer B、Long C、Single D、Double
24、某一VB工程含F1、F2两个窗体，执行“F1．Show：F2．Hide”语句后，F1、F2窗体显示的结果为（ ）。
A、都显示 B、都不显示 C、仅显示F1窗体 D、仅显示F2窗体
25、数学关系3<= x<10表示成正确的VB表达式为（ ）
A、3 <= x < 10 B、3<= x AND x<10
C、x >=3 OR x < 10 D、3 <= x AND <10
26. 以下程序运行后，单击命令按钮，在窗体上显示的内容是( ).
Private Sub Command1_Click()
Dim x As Integer
Static y As Integer
x=10
y=5
call f1(x, y)
Print x,y
End Sub
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
A) 10 5 B) 12 5 C) 10 7 D) 12 7
27.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是
A、Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B、Private Sub List1_Click()
Label1.Name= List1.ListIndex
End Sub
C、Private Sub List1_Click()
Label1.Name = List1.Text
End Sub
D、Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub
28、在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
x=4
For j =1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
A）7 B）15 C）157 D）538
29、有程序代码如下：Text1.Text=”Text1.Text”
则Text1、Text、”Text1.Text”分别代表（ ）
A、对象、值、属性
B、对象、方法、属性
C、对象、属性、值
D、属性、对象、值
30、下列关于控件数组的说法错误的是_____。
A) 定义控件数组的方法与定义一般数组的方法是相同的
B) 使用Load语句载入的控件数组元素在默认的情况下是不可见的
C) 对于不再使用的控件可以使用unload语句将其卸载
控件数组中的控件事件过程与其他控件事件过程的结构类似
二、填空题（每空2分，共20分）
1、阅读以下程序：
Function fun(ByVal num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
r=fun(n)
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为______
2、请写出如下数学式子的VB表达式：
1） 2Sin2x+8Cos2 (x )/3+Y2
答:____________________________________
3、设有如下程序：
Private Sub Form_Click()
Dim a As Integer,s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是_______。程序运行后，单击窗体，输出结果为____。
4、设有如下程序：用 Array 函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。
Option Base 1
Private Sub Command1_Click()
Dim arr1
Dim Min As Integer,i As Integer
arr1=Array(12,435,76,-24,78,54,866,43)
Min=_____
For i=2 To 8
If arr1(i)<Min Then _________
Next i
Print "最小值是：";_______
End Sub
5、在名称为 Form1 的窗体上画一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine 属性设置为 True，然后编写如下的事件过程：以下程序的功能是，把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 smtext2.txt。
Private Sub Form_Click()
Open"d:\test\smtext1.txt"For Input As #1
Do While Not ____
Line Input #1,aspect$
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close #1
Open "d:\test\smtext2.txt"For Output As #1
Print #1,______
Close #1
End Sub
6. 下列程序输出的值是多少？
Private Sub Command1_Click()
s = 0
For i = 9 To 42 Step 11
s = s + i
Next i
If i > 50 Then
s = s + i
Else
s = s - i
End If
Print s
End Sub
结果是：_______________。
三、程序设计题（每题10分，20分）
编程题如下图：单选钮、及框架用法。
仿照 P97 例5-4：某人的兴趣是“音乐”。编写一个程序，允许选择输入某人的兴趣。选择完毕后单击“完成”命令按钮可弹出一个消息框显示用户选择的内容。如果单击的是“音乐”，则显示“答对了”。否则，则显示“答错了”。
（10分）
(1) 填写对象属性设置表：
（2）在“完成”命令的单击事件过程中键入如下代码：
2、新建一个窗体，程序运行时，当用鼠标单击窗体任一地方，程序弹出Inputbox()函数输入框。当输完15个整数后，程序把刚输入的15个整数分3行在窗体上显示，每行5个整数。
提问：（1）、应该对窗体的什么事件进行编程？（3分）
（2）、编写程序代码，实现上述功能。（7分）
补充：复习考试后一定会多倍行赏追问：帮忙再做一下后面两题的答案，好吗？
