《VB程序设计》期末模拟试卷-Ⅰ
一、判断正误（对的打√号，错的打X号，每题1分，共10分）
（ ）1,Visual BASIC 是基于Windows环境的一种可视化的程序设计语言，采用了事件驱动的编程机制，因而不同于以往面向过程的程序设计语言，编程效率得到了很大地提高。
（ ）2,VB可以使用ActiveX控件，但不能开发ActiveX控件。
（ ）3,窗体卸载前最后会自动发生UNLOAD事件，通常情况下，我们都是使用该事件停止对窗体的卸载。
（ ）4,在VB的过程内只能声明过程级变量。
（ ）5,VB中双精度数的有效数字位数要比单精度数多，数据的表示范围也比单精度数大。
（ ）6,当PictureBox控件的AutoSize属性值为True时，图片会自动伸缩以适应图片框。
（ ）7,MouseMove事件仅在鼠标按钮被按下时发生，按钮没按下时则不会产生。
（ ）8,用鼠标才能产生控件的Click事件，用键盘无法产生。
（ ）9,把窗体上定时器控件的Visible属性置为True时，则该窗体上就会出现显示计算机中时间的数字时钟。
（ ）10,由于在Circle方法中没有提供专门用于填充的参数，因此，使用该方法不能绘制填充了颜色的圆。
二、单项选择（请将答案填在每题前面的括号内，每题1分，共15分）
（ ）1．_________是对象的一个基本要素，它描述了对象在程序中的外观特点。
A,事件 B,属性 C,方法 D,事件程序
（ ）2．以下四个VB的变量名中，合法的是_________。
A,Sum B,R$e C,Print D,3xy
（ ）3．在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后，下面正确的说法是_________。
A,str1是整型，str2是长整型
B,str1是长整型，str2变体型
C,str1、str2都是长整型
D,str1是变体型，str2是长整型
（ ）4．下面各语句中，错误的语句是_________。
A．Dim A1,A2 B．(A+B)=C C．A=B+C D．A=”B”+C
（ ）5．在声明一个过程中必须有的是_________。
A．Private关键字 B．SUB关键字 C．返回值类型说明 D．参数
（ ）6．VB中，7 \ 2的运算结果是_________。
A．3 B．1 C．3.5 D．无此运算符
（ ）7．(&o36>31)and (“A”>”B”) 的结果是_________。
A．True B．False C．”&o3631AB” D．&o3631
（ ）8．表达式“100” + 100 和表达式“100” & 100的值分别是_________。
A,200、200
B.,100100”、“100100”?
C,200、“100100”
D.,100100”、200
（ ）9．把Form1的标题改为“文档资料”的语句是_________。
A．Form1.Text=“文档资料”
B．Form1.Text=文档资料
C．Form1.Caption=“文档资料”
D．Form1.Title=“文档资料”
（ ）10．下面在文本框Text1内显示变量ST内容的语句是_________。
A．ST=Text1.Text B．Text1.show ST? C．Text1.Text=ST
D．Text.Text1=ST
（ ）11．Dim A(5,10) As Integer 声明了_________个整数单元?
A．66? B,6 C,5 D,50
（ ）12．要在设计的菜单中出现分隔条需要_________。
A．在标题框内输入"— — — — — — — —"
B．在标题框内输入"—" C．在名称框内输入"—" D．在名称框内输入"&—"
（ ）13．要把菜单降低一个级别成为下一级子菜单，应在菜单编辑器中按下_________按钮
A．↓? B．←?C．↑? D．→
（ ）14．关于鼠标拖放操作，以下正确的描述是_________。
A．如果不设置被拖动对象的DragIcon属性，则在程序运行期间用鼠标拖动该对象时，
用户看不到任何形状的拖动图标。
B．如果不将被拖动对象的DragMode属性设置为1，则该对象永远也不能被拖动。
C．若将窗体上的Image1（其DragMode=1）对象拖动到Image2对象上并释放鼠标按钮时，将引发Image1_DragDrop事件。
D．当某个对象的DragDrop事件发生时，之前必定要发生该对象的DragOver事件。
（ ）15．以下关于PictureBox控件和Image控件的描述中，错误的选项是_________。
A．设置Image控件的stretch属性，可使该控件根据本身的大小来调整图片的大小。
B．PictureBox控件支持Print方法，而Image控件不支持该方法。
C．Image控件可作为其他控件的容器。
D．PictureBox控件和Image控件都可以利用LoadPicture函数在程序运行阶段装载需要的图片进行显示。
三、填空题（每空1分，共20分）
1．设置对象属性的方法有两种，其一是在设计阶段，在_________中直接修改相应属性的值，其二是在应用程序运行时，通过__________来动态设置。
2．在VB源程序中，可以包括窗体模块、__________模块、__________模块。工程（项目）文件的扩展名为________，BAS是_________文件的扩展名,CLS是________文件的扩展名。
3．VB中的变量类型中，范围在-32768~+32767之间的是__________；只占一个字节存储空间的是_________；可以存储EMPTY和NULL值的是____________。
4．书写程序时，要在一行内写多个语句，语句间用________间隔；语句前有一个 ' (单引号)的语句是_____语句。
5．组合框（ComboBox）控件是_______和____________组合而成的一种控件，因而它兼有这两种控件的特性。
6．表达式b=3 XOR (0<c+d/a IMP e=5) EQV X<>0的值为__________（假设a=3、b=4、c=5、d=6、e=7、x=0）
7．函数Val（”12Bc”）的值为___________。
8．在VB程序设计中，通常采用_____________方法来创建一个弹出式菜单。
9．当用户增加、删除或修改文本框（TextBox）的内容时，都会触发文本框的__________事件。
10．设有如下程序语句：
For I =1 To 100 Step 7
S=S+1
Next I
在该循环语句中，循环体S=S+1的循环执行次数应为______________。
11．我们可以通过设置单选按钮的___________属性来改变单选按钮的状态。
四、简答题（5分）
1．Visual BASIC中Visual的含义是什么？（1分）
2．Option Explicit语句应放在何处，功能是什么？（2分）
3．如何创建一个控件数组？（2分）
五、阅读以下各程序段，按要求回答问题（共12分）
1．窗体上含有一个命令按钮控件，并编制如下程序代码（4分）。
'定义窗体级变量
Public A As Integer
Dim B As Integer
Private Sub Form_Load()
Dim C As Integer
C=5
A= 10
B= 20
End Sub
Private Sub Command1_Click()
Dim A As Integer
Static D As Integer?
A=A+1
B=B+1
C=C+1
D=D+1
Print A,B,C,D
End Sub
第一次单击Command1输出结果为,________，_________，_________，________?
第二次单击Command1输出结果为,________，_________，_________，________?
2．新建一个工程后，不对窗体的任何属性进行设置，在窗体的Form_Load事件中加入如下程序代码（2分）。
Private Sub Form_Load()
Dim S As Integer
Dim I As Integer
S = 0
For I = 1 To 100
S = S + I
Next I
Print S
End Sub
运行该程序后，窗体上显示的信息为________________?
3．阅读以下程序段，写出X的值（2分）
Private Sub Form_Click()
Dim A As Integer,B As Integer,C As Integer,X As Integer
Dim T As Integer
A = 9,B = 4,C = 8
If A < B Then
T = A,A = B,B = T
End If
If B > C Then
X = B
ElseIf A > C Then
X = C
Else
X = A
End If
Print X
End Sub
运行该程序后，在窗体上打印的X的值为__________?
4．在窗体上添加文本框控件Text1并设置其Text属性为“5”，添加标签控件Label1和命令按钮控件Comamnd1，并针对Command1的Click事件编制程序如下（2分）。
Private Sub Command1_Click()
Dim N As Integer
Dim I As Integer
Dim J As Integer
Dim S As Long
N = Val(Text1.Text)
J = 0
S = 0
For I = 1 To N
J = J + I
S = S + J
Next I
Label1.Caption = Str(S)
End Sub
运行该程序，并单击窗体上的命令按钮时，标签中显示的内容为_________?
5．以下程序使用MouseDown事件检测按下的鼠标按钮（2分）。
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button = 1 Then Print "You Pressed the left button."
If Button = 2 Then Print "You Pressed the right button."
If Button = 4 Then Print "You Pressed the middle button."?
End Sub
运行该程序后，当我们在窗体上同时按下鼠标左右两个按钮后，窗体上显示的信息为：_____________
六、阅读以下各程序，在空格处填上合适的内容，使之完成相应的功能（每空2分，共24分）
1．用文本框显示按钮单击次数，按钮名称属性为cmdCount，文本框名称属性为txtShowCount。布置属性窗口如图1所示，请填空完成代码。
图1
Option Explicit
______________________
Private Sub Form_Load( )
nCount = 0
End Sub
Private Sub_______________( ) '按钮单击
nCount = nCount + 1
________________= Str(nCount) '显示
End Sub
2．本程序计算e=1+1/1!+1/2!+1/3!+…+1/n!+… （只累加大于0.000001的项）
Private Sub Form_Click()
Dim E As Single,S As Single,N As Integer
E =_________________________?
N = 1
S = 1
Do While S > 0.000001
E = E + S
S =______________?
_________________
Loop
Print "e=",E
End Sub
3．该程序用于增加、修改、删除列表框中的项目，窗体中的对象如图2所示。当我们在列表框中的项目上单击时，该项目即出现在文本框中。单击“增加”按钮可将文本框中的内容增加到列表框中；在文本框中编辑你所选中的项目后单击“修改”按钮可用于修改你所选中的列表框中的项目；单击“删除”按钮用于删除你所选中的列表框中的项目，同时清空文本框。
图2
Private Sub Form_Load()
List1.AddItem "青岛大学"
List1.AddItem "武汉大学"
List1.AddItem "吉林大学"
End Sub
Private Sub List1_Click()
'该按钮用于将你所选中的列表框中的项目显示在文本框中
Text1.Text = List1.list(list1.ListIndex)
End Sub
Private Sub Command1_Click()
'该按钮用于将文本框中的内容增加到列表框中
List1.AddItem_____________________?
End Sub
Private Sub Command2_Click()
'该按钮用于删除你所选中的列表框中的项目，同时清空文本框
List1.RemoveItem___________________?
Text1.Text = ""
End Sub
Private Sub Command3_Click()
'在文本框中编辑修改你所选中的项目后单击该按钮
'该按钮用于修改你所选中的列表框中的项目
___________________= Text1.Text
End Sub
4,请使用默认的坐标统在窗体上绘制如图3所示的图形，其中第一个矩形的左上角的坐标为（800，1000），长为800缇，宽为1000缇；第二个矩形的左上角的坐标为（2000，1000），长为800缇，宽为1000缇；圆心坐标为（3600，1500），半径为500缇；半园心坐标为（5000，1500），半径为500缇。在绘制图形的代码中将图形颜色以及填充颜色均设为红色。
图3
Private Sub Form_Click()
Const pi = 3.1415926
'绘制第一个矩形
Line_________________________________________?
'绘制第二个矩形
Line_________________________________________?
'绘制圆
Circle （3600，1500），500，vbRed
'绘制半圆
Circle ____________________________________________
End Sub
七、编程（共12分）
1．使用窗体的鼠标单击事件在窗体上打印出100~999之间所有的“水仙花数”。所谓“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身，例如153=13+53+33 就是一个“水仙花数”。（3分）
2．编制一个完成除法运算的程序，实现被除数和除数的输入以及计算结果的输出。画图说明对象窗体，并编写相应程序代码。（5分）
3．有一个数列前两项为1,1，后面的每一项为其前面两项之和，试输出前十项的值。（4分）
一、判断正误（对的打√号，错的打X号，每题1分，共10分）
（ ）1,Visual BASIC 是基于Windows环境的一种可视化的程序设计语言，采用了事件驱动的编程机制，因而不同于以往面向过程的程序设计语言，编程效率得到了很大地提高。
（ ）2,VB可以使用ActiveX控件，但不能开发ActiveX控件。
（ ）3,窗体卸载前最后会自动发生UNLOAD事件，通常情况下，我们都是使用该事件停止对窗体的卸载。
（ ）4,在VB的过程内只能声明过程级变量。
（ ）5,VB中双精度数的有效数字位数要比单精度数多，数据的表示范围也比单精度数大。
（ ）6,当PictureBox控件的AutoSize属性值为True时，图片会自动伸缩以适应图片框。
（ ）7,MouseMove事件仅在鼠标按钮被按下时发生，按钮没按下时则不会产生。
（ ）8,用鼠标才能产生控件的Click事件，用键盘无法产生。
（ ）9,把窗体上定时器控件的Visible属性置为True时，则该窗体上就会出现显示计算机中时间的数字时钟。
（ ）10,由于在Circle方法中没有提供专门用于填充的参数，因此，使用该方法不能绘制填充了颜色的圆。
二、单项选择（请将答案填在每题前面的括号内，每题1分，共15分）
（ ）1．_________是对象的一个基本要素，它描述了对象在程序中的外观特点。
A,事件 B,属性 C,方法 D,事件程序
（ ）2．以下四个VB的变量名中，合法的是_________。
A,Sum B,R$e C,Print D,3xy
（ ）3．在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后，下面正确的说法是_________。
A,str1是整型，str2是长整型
B,str1是长整型，str2变体型
C,str1、str2都是长整型
D,str1是变体型，str2是长整型
（ ）4．下面各语句中，错误的语句是_________。
A．Dim A1,A2 B．(A+B)=C C．A=B+C D．A=”B”+C
（ ）5．在声明一个过程中必须有的是_________。
A．Private关键字 B．SUB关键字 C．返回值类型说明 D．参数
（ ）6．VB中，7 \ 2的运算结果是_________。
A．3 B．1 C．3.5 D．无此运算符
（ ）7．(&o36>31)and (“A”>”B”) 的结果是_________。
A．True B．False C．”&o3631AB” D．&o3631
（ ）8．表达式“100” + 100 和表达式“100” & 100的值分别是_________。
A,200、200
B.,100100”、“100100”?
C,200、“100100”
D.,100100”、200
（ ）9．把Form1的标题改为“文档资料”的语句是_________。
A．Form1.Text=“文档资料”
B．Form1.Text=文档资料
C．Form1.Caption=“文档资料”
D．Form1.Title=“文档资料”
（ ）10．下面在文本框Text1内显示变量ST内容的语句是_________。
A．ST=Text1.Text B．Text1.show ST? C．Text1.Text=ST
D．Text.Text1=ST
（ ）11．Dim A(5,10) As Integer 声明了_________个整数单元?
A．66? B,6 C,5 D,50
（ ）12．要在设计的菜单中出现分隔条需要_________。
A．在标题框内输入"— — — — — — — —"
B．在标题框内输入"—" C．在名称框内输入"—" D．在名称框内输入"&—"
（ ）13．要把菜单降低一个级别成为下一级子菜单，应在菜单编辑器中按下_________按钮
A．↓? B．←?C．↑? D．→
（ ）14．关于鼠标拖放操作，以下正确的描述是_________。
A．如果不设置被拖动对象的DragIcon属性，则在程序运行期间用鼠标拖动该对象时，
用户看不到任何形状的拖动图标。
B．如果不将被拖动对象的DragMode属性设置为1，则该对象永远也不能被拖动。
C．若将窗体上的Image1（其DragMode=1）对象拖动到Image2对象上并释放鼠标按钮时，将引发Image1_DragDrop事件。
D．当某个对象的DragDrop事件发生时，之前必定要发生该对象的DragOver事件。
（ ）15．以下关于PictureBox控件和Image控件的描述中，错误的选项是_________。
A．设置Image控件的stretch属性，可使该控件根据本身的大小来调整图片的大小。
B．PictureBox控件支持Print方法，而Image控件不支持该方法。
C．Image控件可作为其他控件的容器。
D．PictureBox控件和Image控件都可以利用LoadPicture函数在程序运行阶段装载需要的图片进行显示。
三、填空题（每空1分，共20分）
1．设置对象属性的方法有两种，其一是在设计阶段，在_________中直接修改相应属性的值，其二是在应用程序运行时，通过__________来动态设置。
2．在VB源程序中，可以包括窗体模块、__________模块、__________模块。工程（项目）文件的扩展名为________，BAS是_________文件的扩展名,CLS是________文件的扩展名。
3．VB中的变量类型中，范围在-32768~+32767之间的是__________；只占一个字节存储空间的是_________；可以存储EMPTY和NULL值的是____________。
4．书写程序时，要在一行内写多个语句，语句间用________间隔；语句前有一个 ' (单引号)的语句是_____语句。
5．组合框（ComboBox）控件是_______和____________组合而成的一种控件，因而它兼有这两种控件的特性。
6．表达式b=3 XOR (0<c+d/a IMP e=5) EQV X<>0的值为__________（假设a=3、b=4、c=5、d=6、e=7、x=0）
7．函数Val（”12Bc”）的值为___________。
8．在VB程序设计中，通常采用_____________方法来创建一个弹出式菜单。
9．当用户增加、删除或修改文本框（TextBox）的内容时，都会触发文本框的__________事件。
10．设有如下程序语句：
For I =1 To 100 Step 7
S=S+1
Next I
在该循环语句中，循环体S=S+1的循环执行次数应为______________。
11．我们可以通过设置单选按钮的___________属性来改变单选按钮的状态。
四、简答题（5分）
1．Visual BASIC中Visual的含义是什么？（1分）
2．Option Explicit语句应放在何处，功能是什么？（2分）
3．如何创建一个控件数组？（2分）
五、阅读以下各程序段，按要求回答问题（共12分）
1．窗体上含有一个命令按钮控件，并编制如下程序代码（4分）。
'定义窗体级变量
Public A As Integer
Dim B As Integer
Private Sub Form_Load()
Dim C As Integer
C=5
A= 10
B= 20
End Sub
Private Sub Command1_Click()
Dim A As Integer
Static D As Integer?
A=A+1
B=B+1
C=C+1
D=D+1
Print A,B,C,D
End Sub
第一次单击Command1输出结果为,________，_________，_________，________?
第二次单击Command1输出结果为,________，_________，_________，________?
2．新建一个工程后，不对窗体的任何属性进行设置，在窗体的Form_Load事件中加入如下程序代码（2分）。
Private Sub Form_Load()
Dim S As Integer
Dim I As Integer
S = 0
For I = 1 To 100
S = S + I
Next I
Print S
End Sub
运行该程序后，窗体上显示的信息为________________?
3．阅读以下程序段，写出X的值（2分）
Private Sub Form_Click()
Dim A As Integer,B As Integer,C As Integer,X As Integer
Dim T As Integer
A = 9,B = 4,C = 8
If A < B Then
T = A,A = B,B = T
End If
If B > C Then
X = B
ElseIf A > C Then
X = C
Else
X = A
End If
Print X
End Sub
运行该程序后，在窗体上打印的X的值为__________?
4．在窗体上添加文本框控件Text1并设置其Text属性为“5”，添加标签控件Label1和命令按钮控件Comamnd1，并针对Command1的Click事件编制程序如下（2分）。
Private Sub Command1_Click()
Dim N As Integer
Dim I As Integer
Dim J As Integer
Dim S As Long
N = Val(Text1.Text)
J = 0
S = 0
For I = 1 To N
J = J + I
S = S + J
Next I
Label1.Caption = Str(S)
End Sub
运行该程序，并单击窗体上的命令按钮时，标签中显示的内容为_________?
5．以下程序使用MouseDown事件检测按下的鼠标按钮（2分）。
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button = 1 Then Print "You Pressed the left button."
If Button = 2 Then Print "You Pressed the right button."
If Button = 4 Then Print "You Pressed the middle button."?
End Sub
运行该程序后，当我们在窗体上同时按下鼠标左右两个按钮后，窗体上显示的信息为：_____________
六、阅读以下各程序，在空格处填上合适的内容，使之完成相应的功能（每空2分，共24分）
1．用文本框显示按钮单击次数，按钮名称属性为cmdCount，文本框名称属性为txtShowCount。布置属性窗口如图1所示，请填空完成代码。
图1
Option Explicit
______________________
Private Sub Form_Load( )
nCount = 0
End Sub
Private Sub_______________( ) '按钮单击
nCount = nCount + 1
________________= Str(nCount) '显示
End Sub
2．本程序计算e=1+1/1!+1/2!+1/3!+…+1/n!+… （只累加大于0.000001的项）
Private Sub Form_Click()
Dim E As Single,S As Single,N As Integer
E =_________________________?
N = 1
S = 1
Do While S > 0.000001
E = E + S
S =______________?
_________________
Loop
Print "e=",E
End Sub
3．该程序用于增加、修改、删除列表框中的项目，窗体中的对象如图2所示。当我们在列表框中的项目上单击时，该项目即出现在文本框中。单击“增加”按钮可将文本框中的内容增加到列表框中；在文本框中编辑你所选中的项目后单击“修改”按钮可用于修改你所选中的列表框中的项目；单击“删除”按钮用于删除你所选中的列表框中的项目，同时清空文本框。
图2
Private Sub Form_Load()
List1.AddItem "青岛大学"
List1.AddItem "武汉大学"
List1.AddItem "吉林大学"
End Sub
Private Sub List1_Click()
'该按钮用于将你所选中的列表框中的项目显示在文本框中
Text1.Text = List1.list(list1.ListIndex)
End Sub
Private Sub Command1_Click()
'该按钮用于将文本框中的内容增加到列表框中
List1.AddItem_____________________?
End Sub
Private Sub Command2_Click()
'该按钮用于删除你所选中的列表框中的项目，同时清空文本框
List1.RemoveItem___________________?
Text1.Text = ""
End Sub
Private Sub Command3_Click()
'在文本框中编辑修改你所选中的项目后单击该按钮
'该按钮用于修改你所选中的列表框中的项目
___________________= Text1.Text
End Sub
4,请使用默认的坐标统在窗体上绘制如图3所示的图形，其中第一个矩形的左上角的坐标为（800，1000），长为800缇，宽为1000缇；第二个矩形的左上角的坐标为（2000，1000），长为800缇，宽为1000缇；圆心坐标为（3600，1500），半径为500缇；半园心坐标为（5000，1500），半径为500缇。在绘制图形的代码中将图形颜色以及填充颜色均设为红色。
图3
Private Sub Form_Click()
Const pi = 3.1415926
'绘制第一个矩形
Line_________________________________________?
'绘制第二个矩形
Line_________________________________________?
'绘制圆
Circle （3600，1500），500，vbRed
'绘制半圆
Circle ____________________________________________
End Sub
七、编程（共12分）
1．使用窗体的鼠标单击事件在窗体上打印出100~999之间所有的“水仙花数”。所谓“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身，例如153=13+53+33 就是一个“水仙花数”。（3分）
2．编制一个完成除法运算的程序，实现被除数和除数的输入以及计算结果的输出。画图说明对象窗体，并编写相应程序代码。（5分）
3．有一个数列前两项为1,1，后面的每一项为其前面两项之和，试输出前十项的值。（4分）
