vb复习题1.txt

一、单选题（本大题共25题，每题2分，共50分）
1、下列符号中哪个是VB程序中合法的变量名（ ）。
A） ab7 B） 7ab C） If D） a*bc
2、与传统的程序设计语言相比，Visual Basic最突出的特点是（　）。
A） 面向对象的程序设计 B） 集成化开发环境
C） 结构化程序设计 D） 事件驱动编程机制
3、以下叙述中错误的是（ ）。
A）Visual Basic 是事件驱动型可视化编程工具
B）Visual Basic应用程序不具有明显的开始和结束语句
C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D）Visual Basic中控件的某些属性只能在运行时设置
4、每个窗体对应一个窗体文件，窗体文件的扩展名是（ ）。
A） .bas B） .cls C） .frm D） .vbp
5、确定一个控件在窗体上的位置的属性是（ ）。
A） Width和Height B） Width或Height C） Top和Left D） Top或Left
6、设字符串str1="abcdefgh"，则表达式Mid(str1,3,2)的结果是（ ）。
A) abc B) bc C) cde D) cd
7、可获得当前系统日期的函数是（　）。
A) Date( ) B) Time( ) C) IsDate( ) D) Year( )
8、标签框所显示的内容，由（　）属性值决定。
A) Text B) (名称) C) Caption D) Alignment
9、复选框对象是否被选中，是由其( )属性决定的。
A) Checked B) Value C) Enabled D) Selected
10、计时器控件的（　）属性用于设置Timer事件发生的时间间隔。
A) Stretch B) Interval C) Value D) Length
11、若要向列表框添加列表项，可使用的方法是（　）。
A) Add B) Remove C) Clear D) AddItem
12、VB中可用（　）语句产生一消息框。
A) InputBox B) Shift C) Both D) MsgBox
13、以下叙述中正确的是（ ）。
A) 窗体的Name属性指定窗体的名称，用来标识一个窗体
B) 窗体的Name属性的值是显示在窗体标题栏中的文本
C) 可以在运行期间改变对象的Name属性的值
D) 对象的Name属性值可以为空
14、执行下面的语句后，所产生的信息框的标题是（ ）。
a = MsgBox("AAAA", "BBBB", "", 5)
A) BBBB B) 空 C) AAAA D) 出错，不能产生信息框
15、表达式4+5\6*7/8 Mod 9的值是（ ）。
A) 8 B) 7 C) 6 D) 5
16、下列关于Do While …Loop和Do…Loop Until循环执行循环次数的描述正确的是（ ）。
A) Do While …Loop循环和Do…Loop Until循环至少都执行一次
B) Do While …Loop循环和Do…Loop Until循环可能都不执行
C) Do While …Loop循环至少执行一次和Do…Loop Until循环可能不执行循环
D) Do While …Loop循环可能不执行和Do…Loop Until循环至少执行一次
17、默认条件下，

语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是（ ）。
A) 12 B) 60 C) 120 D) 345
18、数学关系3≤x<10对应的Visual Basic表达式是（ ）。
A) 3<=x<10 B) 3<=x AND x<10 C) x>=3 OR x<10 D) 3<=x AND <10
19、下面程序段的执行结果是（ ）。
Private Sub Command1_Click( )
For j = 1 To 4
k = 0
For i = 1 To 4
k = i + 1
Next i
Next j
Print k
End Sub
A) 16 B) 4 C) 5 D) 6
20、语句Dim arr(3 To 5, -2 To 2)所定义的数组的元素个数是（ ）。
A) 20 B) 12 C) 15 D) 24
21、以下关于数组的说法，不正确的是（ ）。
A) 数组是一种特殊的数据类型
B) 一个数组中可存放多种类型的数组
C) 数组是一组相同类型的变量的集合
D) 运行时可改变动态数组或静态数组的大小
22、假定有下面的程序段：
For i = 1 To 3
For j = 1 To i
For k = j To 3
Print "i = "; i, "j = "; j, "k = "; k
Next k
Next j
Next i
这是一个三重循环程序，在这个程序中，外层、中层和内层循环的循环次数是（ ）。
A) 3、6和14 B) 3、8和16
C) 3、4和12 D) 3、9和18
23、执行下面的程序段后，x的值为（ ）。
x = 5
For i=1 to 20 Step 2
x = x + i \ 5
Next i
A) 10 B) 15 C) 20 D) 21
24、若要将多条语句书写在同一行，语句间应该用（ ）间隔。
A) 逗号 B) 冒号 C) 分号 D) 句号
25、要求从文本框中输入密码时在文本框中只显示#号，则应用在此文本框的属性窗口中设置（ ）。
A) Text属性值为# B) Caption属性值为#
C) Passwordchar属性值为# D) Passwordchar属性值为真

得分 阅卷人
（签全名）




二、填空题（本大题共5题，每题2分，共10分）
1、 若要将窗体Form2显示出来，可使用方法_____来实现。
2、 ＶＢ提供的enabled属性，用来控制对象是否可用；_____属性，用来控制对象是否可见。
3、 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
a = InputBox("请输入一个整数")
b = InputBox("请输入一个整数")
Print a + b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入326和536，输出结果为 。
4、 数学表达式 ，在VB中对应的表达式为__________________________。
5、 控件数组具有相同的控件名称(即Name属性)，通过不同的 属性来标识各个控件。
三、程序填空题（本大题共6空，每空2分，共12分）
1、窗体上有一个标签和一个计时器，以下程序的作用是，程序运行后，单击窗体，在标签中显示当前的系统时间，每隔1秒变换一次，请填空。
Private Sub Form_Click()
Timer1.Interval = ________
End Sub
Private Sub Timer1_Timer()
Label1

.Caption = _________
End Sub
2、阅读以下在VB开发过程中的应用说明，对属性设置和程序代码填空。
本应用程序的运行窗口及其功能说明如下：程序事先设定密码为”abc”，要求用户在文本框中输入密码，然后单击“校验密码”命令按钮，程序将核对用户输入的密码与事先设定的密码是否一致。如果一致，则通过MsgBox语句弹出消息框提示“密码正确，欢迎进入！”；否则弹出消息框提示“密码不正确，谢绝进入！”。当用户单击“重新输入”命令按钮，则清空文本框中内容，且将光标定位到文本框中。当单击“退出”命令按钮时，退出应用程序。
[属性设置]
对象 对象名 属性名 属性值设置
命令按钮 Commandl Caption 重新输入
命令按钮 Command2 Caption 核对密码
命令按钮 Command3 Caption 退出
文本框 Text1 Text (置空)
[程序代码]
Private Sub Command1_Click()
Text1.text= ""
___________
End Sub
Private Sub Command2_Click()
Dim pw As String
pw = "abc"
If ___________ Then
MsgBox "密码正确，欢迎进入！"
Else
___________
End If
End Sub
Private Sub Command3_Click()
___________
End Sub
四、简答题（本大题共3题，每题4分，共12分）

1、 描述一下你对VB可视化编程中 “属性”和“方法”概念的理解。
2、 VB可视化编程的一般步骤。
3、 写出生成一个1~100间随机整数的VB语句，并给出简要说明。
五、编程题（本大题共3题，1～2题每题5分，第3题6分，共16分）
1、 设计一个用For…Next语句，将100~200之间所有能同时被3和5同时整除的数的和显示在窗体上。
要求： 程序头尾如下。
Private Sub Command1_Click()
End Sub
2、编写程序将一年中的12个月份，转换成四个季度输出。对应关系如下：
月份：1～3 4～6 7～9 10～12
季度：春季 夏季 秋季 冬季
要求：①程序运行时，从键盘输入一个月份（使用输入对话框），在窗体上输出对应的季度。
②使用select case或者if then else 语句实现，程序头尾参照如下。
Private Sub Form_Click()
End Sub
3、通过下面的Form_Load()事件将一组学生成绩，已经存储在二维数组a(5, 3)中，请编写一段程序找出最高和最低的成绩，并在窗体上显示出来。
Option Base 1
Private Sub Form_Load()
Dim a(5, 3) As Integer
a(1, 1) = 69: a(1, 2) = 89: a(1, 3) = 74
a(2, 1) = 94: a(2, 2) = 80: a(2, 3) = 90
a(3, 1) = 57: a(3, 2) = 62: a(3, 3) = 73
a(4, 1) = 98: a(4, 2) = 94: a(4, 3) = 90
a(5, 1) = 73: a(5, 2) = 76: a(5, 3) = 63
End Sub
要求：程序头尾如下。

参考答案
一、
1~5

、 ABCCC 6~10、DACBB 11~15、DDADD
16~20、DCBCC 21~25、DADBC
二、
1、show或 form2.show 2、visible 3、326536
4、2*(3*a+2*b)-Sqr(3)*Sin(x/180)或 2*(3*a+2*b)-Sqr(3)*Sin(x)
5、Index 或 索引
三、
1、1000 2、Time / Time$ 3、Text1.Setfocus
4、Text1.Text=PW 或Text1.Text=”abc”
5、MsgBox”密码不正确，谢绝进入”
6、End或Exit
四、
1、 属性是指对象的一组特征，方法是要执行的动作，完成某一特定功能
2、 设计界面；设置属性；编写代码；运行、调试和保存
3、 Int(Rnd*100) ；Rnd函数用来产生0～1之间的随机数，乘以100后，产生0～100之间的数，Int函数用来取整。
五、
1、Private Sub Command1_Click()
For i = 100 To 200
If i Mod 3 = 0 And i Mod 5 = 0 Then
Sum = Sum + i
End If
Next i
Print Sum
End Sub
2.Private Sub Form_Click()
m = InputBox("请输入月份")
Select Case m
Case 1 To 3
Print "春季"
Case 4 To 6
Print "夏季"
Case 7 To 9
Print "秋季"
Case 10 To 12
Print "冬季"
End Select
End Sub
或者Private Sub Form_Click()
m = InputBox("请输入月份")
If m <= 3 Then
Print "春季"
ElseIf m <= 6 Then
Print "夏季"
ElseIf m <= 9 Then
Print "秋季"
ElseIf m <= 12 Then
Print "冬季"
End If
End Sub
3.Private Sub Form_Click()
Max = a(1, 1)
Min = a(1, 1)
For i = 1 To 5
For j = 1 To 3
If Max < a(i, j) Then Max = a(i, j)
If Min > a(i, j) Then Min = a(i, j)
Next j
Next i
Print Max
Print Min
End Sub
或者Private Sub Form_Click()
Max = a(1, 1)：Min = a(1, 1)
For i = 1 To 5
For j = 1 To 3
If Max < a(i, j) Then
Max = a(i, j)
End If
If Min > a(i, j) Then
Min = a(i, j)
End If
Next j
Next i
Print Max
Print Min
End Sub