《VB程序设计》期末模拟试卷
一、单项选择
(b )1.被对象所识别的动作与对象可执行的动作分别称为对象的___________。
A.方法、事件
B.事件、方法
C.事件、属性
D.过程、属性
( c)2.下列________就是Single型变量。
A.Time%
https://www.doczj.com/doc/cf1169905.html,$
C.Sheight!
D.CXYZ&
(a )3.以下四个VB的变量名中,合法的就是____________。
A.X23
B.$Re
C. Len
D.3xy
( d)4.在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后,下面正确的说法就是________。
A、 str1就是整型,str2就是长整型
B、 str1就是长整型,str2变体型
C、 str1、str2都就是长整型
D、 str1就是变体型,str2就是长整型
(b )5.表达式(&O36>31) and (“A”>”B”) 的结果就是 ____________。
A.True
B.False
C.”&O3631AB”
(c )6.表达式“100” + 100 与表达式“100” & 100的值分别就是
____________。
A.200、200
B.“100100”、“100100”
C.200、“100100”
D.“100100”、200
(b )7.以下语句执行时,从键盘上输入Zhao,并按回车键。执行结果就是________。
Dim a As String
A=InputBox("Input", "", "Name")
Print a
A.Input
B.Zhao
https://www.doczj.com/doc/cf1169905.html,
D.空字符串
(b)8.语句Print 4 + 5 \ 6 * 7 / 8 Mod 9的运行结果就是________。
A.4
B.5
C.6
D.7
( d)9.在窗体的通用段声明变量时,不能使用__________ 关键字。
A.Dim
B.Public
C.Private
D.Static
(c )10.表达式Abs(-9) + Len("I am a student") 的值就是________。
A.9 I am a student
B.–9 I am a student
D.出错
(a )11.设a为整型变量,不能正确表达数学关系10 < a < 15的VB表达式就是_________。
A.10 < a < 15
B.a = 11 Or a = 12 Or a = 13 Or a = 14
C.a > 10 And a < 15
D.Not ( a<= 10) And Not ( a >=15)
(b )12.在窗体的“通用”部分用Private定义的变量,其作用域就是_______。
A.局部变量
B.窗体/模块级变量
C.全局变量
D.静态变量
( b)13.假设 A = "Good Morning、",B = "Afternoon,Boys、",则下列______表达式的结果等于"Good Boys、"。
A.Left(A, 10) + Right( B, 6)
B.Left(A, 5) + Right( B, 5)
C.Mid( A ,1, 5) + Mid(B, 1, 6)
D.Mid( A +B ,1, 11)
(a )14.执行下面的程序段后,X的值为________。
X=3
For I = 1 To 10 Step –2
X = x +I \ 3
Next I
A.3
B.10
C.-1
D.4
( a)15.在窗体上添加一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click()
Dim A As Integer
Static B As Integer
Cls
B = 2
B = B + 3
A = 3 + A
Print A, B
End Sub
程序运行时,三次单击命令按钮Command1后,窗体上显示的结果为_______。
A.3 5
B.6 6
C.9 5
D.3 3
(d )16.下列_______事件不属于文本框的事件。
A.Change
B.KeyPress
C.LostFocus
D.DropDown
(b )17.在程序中可以通过复选框与单选按钮的______属性值来判断它们的当前状态。
A.Caption
B.Value
C.Checked
D.Selected
(c)18.决定窗体标题条显示内容的属性就是______。
A.Text
https://www.doczj.com/doc/cf1169905.html,
C.Caption
D.BackStyle
( c)19.用户在组合框中输入或选择的数据可以通过一个属性获得,这个属性就是______。
A.List
B.ListIndex
C.Text
D.ListCount
(b )20.在窗体上有两个文本框控件,名称分别为Text1与Text2,以下程序实现的功能就是希望在文本框Text1中输入字符时,输入的字符也将出现在Text2文本框中。下划线处应填_______。
Private Sub Text1__________()
Text2、Text = Text1、Text
End Sub
A.SetFocus
B.Change
C.GetFocus
D.Click
(c )21.要把名称为List1的列表框中当前选中的一项删除,应执行______语句。
A.List1、Clear
B.List1、Delete List1、ListIndex
C.List1、RemoveItem List1、ListIndex
D.List1、Clear List1、ListIndex
(c )22.要使文本框能显示多行文字,则需设定它的_______属性为True。
A.Caption
B.PasswordChar
C.MultiLine
D.Value
(c )23.列表框的_______属性代表着列表框中项目的总数目。
A.List
B.ListIndex
C.ListCount
D.Selected
(d )24.用下面语句定义的数组元素个数就是__________。
Dim Arr1(-2 To 6) As Integer
A.6
B.7
C.8
D.9
(d )25.当Form1_Click事件发生时,程序的输出结果就是______。
Private Sub Form_Click()
Dim M As Integer, k As Integer, t As Integer
M = 6: k = 8
Select Case M
Case Is < 0
M = M + 5
Case 1 To 10
t = M: M = k: k = t
Case Is > 10
M = k Mod 3
End Select
Print M, k, t
End Sub
A.6 6 8
B.6 8 6
C.8 6 8
D.8 6 6
(a )26.假定有以下程序段:
For I = 1 To 3
For j = 5 To 1 Step –1
Print I * j
Next j,I
则语句Print I * j 的执行次数就是______。
A.15
B.16
C.17
D.18
(b )27.当拖动某对象A经过对象B时,将会发生对象B的_______事件。
A.DragDrop
B.DragOver
C.DragDown
D.Drag
(a )28.参数传递有按值传递与按地址传递,______关键字表示按值传递。
A.ByVal
B.ByRef
C.Value
D.Refrence
( a)29.当Form_Click事件发生时,写出在窗体上显示的第二行与第三行就是________。
Private a As Integer, c As Integer
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 10:
b = 10:
c = 10
Print a, b, c
Call test1(a, b)
Print a, b, c
End Sub
Private Sub test1(m As Integer, ByVal n As Integer)
Dim c As Integer
m = 5: n = 5: c = 5
Print m, n, c
End Sub
A.5 5 5
5 10 10
B.5 5 5
5 5 10
C.5 5 10
5 10 10
D.5 5 5
10 10 10
(c )30.如果想要名为MenuItem1的菜单项在运行时变灰显示,则应执行________语句。
A.MenuItem1、Enabled = True
B.MenuItem1、Checked = True
C.MenuItem1、Enabled = False
D. MenuItem1、Visible = False
二、填空题
1.设置对象属性的方法有两种,其一就是在设计阶段,在__属性窗口__中直接修改相应属性的值;其二就是在应用程序运行时,通过_赋值语句__来动态设置。
2.书写程序时,要在一行内写多个语句,语句间用____,___间隔;语句前有一个 ' (单引号)的语句就是_____注释____语句。
3.写出数学式的VB表达式________________________。
4.当用户增加、删除或修改文本框(TextBox)的内容时,都会触发文本框的
____________事件。
5.InputBox函数返回值的类型为_string__。
6.可使用列表框的__additem__方法向列表框中增加一个项目。
7.要使文本框Text1中显示的字符为宋体,使用的语句就是_fontname=宋体
_____。
8.组合框有三种不同的风格:下拉式组合框、___简单组合框___与下拉式列表框,可通过它的__style__属性进行设置。
9.计时器事件之间的时间间隔通过__interval__属性设置。
10.某菜单项显示出来的标题为“文件(F)”,那么在菜单编辑器中输入的标题应为_____________。
11.在VB中,有三种文件访问的类型:顺序访问、___随机访问___与二进制访问。
12.当采用手工拖放模式时,需要使用______方法来实现控件的拖放操作。
13.在Visual Basic中,通用过程分为两类,Function与___sub___。
14.Visual Basic的数组下标的下界默认为__0__,可通过__opertionbase1_语句使数组下标从1开始。
15.表达式Abs(-32) + Int(-23、02)的值为_____8__________。
16.下列程序执行时,从键盘上依次输入123与456,则程序的输出结果就是123456
Private Sub Form_Click()
A=InputBox("请输入第一个整数")
B= InputBox("请输入第二个整数")
Print a + b
End Sub
三、按要求填空
1、下列程序执行时,要求输入一个密码,如果密码不正确则显示出非法用户的对话框。请填空:
Const PassWord="12345678"
Dim inpass As String
Inpass=____________("请输入您的密码","输入密码")
If inpass=PassWord Then
Exit Sub
Else
msgbox "对不起!您就是非法用户。"
Unload Me
End If
2、以下程序的输出结果就是______13______。
X=12、7
X=Int(x +0、5)
Print X
3、下面程序的功能就是求100~999之间的所有素数,所谓素数就是指只能被1与它本身整除的数。
Private Sub Form_Click()
Dim i As Integer
Dim k As Integer
For i = 100 To 999
For k = 2 To i - 1
If _____i Mod k = 0______ Then
______ Exit For____
End If
Next k
If ___k >= i______Then
Print i
End If
Next i
End Sub
4、下列程序的功能就是:单击窗体时将随机生成12个三位正整数,分别赋给3*4的数组,找出数组中最大元素,并指出该元素所在的行与列。请填空。
Option Base 1
Private Sub Form_Click()
Dim a(3, 4) As Integer, i As Integer, j As Integer
Dim max As Integer, max_i As Integer, max_j As Integer
Randomize
For i = 1 To 3
For j = 1 To 4
a(i, j) = Int((999 - 100) * Rnd) + 100
Next j
Next i
max = _____a(1, 1)____: max_i = 1: max_j = 1
For i = 1 To 3
For j = 1 To 4
If ______a(i, j) >
max______ Then
max = a(i, j)
max_i = i
max_j = j
End If
Next j
Next i
Print max, max_i, max_j
End Sub
5、编写一个对列表框进行项目添加、修改与删除操作的应用程序,如图1所示。列表框(名为lstBooks)中的选项在Form_load事件中加载。“添加”按钮(cmdAdd)的功能就是将文本框(txtItem)中的内容添加到列表框中,“删除”按钮(cmdDelete)的功能就是删除列表框中选定的项目。如果要修改列表框中的选项,可先选定选项,然后单击“修改”(cmdModify) 按钮,所选的项目显示在文本