兵团2021年春季学期《Visual Basic程序设计》试卷
试题 1
能够改变标签(Label)控件显示标题的属性是（ ）
A.Name
B.Caption
C.Border
D.Text
正确答案是：Caption
试题 2
当一个工程中含有多个窗体时，其中的启动窗体是（ ）。
A.最后一个添加的窗体
B.启动VB时创建的第一个窗体
C.第一个添加的窗体
D.在“工程属性”对话框中指定的窗体
正确答案是：在“工程属性”对话框中指定的窗体
试题 3
当运行程序时，系统自动执行启动窗体的（ ）事件。
A.LostFocus
B.Load
C.Click
D.Unload
试题 4
下列4项中合法的变量名是（ ）。
A.Integer
B.x-yz
C.2xyz
D.x_yz
试题 5
表达式24 / 2 - 2 ^ 3 *4 / 4 Mod 5 \ 3（ ）
A.32
B.12
C.20
D.16
试题 6
要清除List列表框控件中的所有项目，可采用的方法是（ ）
A.Erase
B.Click
C.Clear
D.Delete
试题 7
下列正确的赋值语句是（ ）
A.2=x+y
B.x+y=z
C.x=Integer+2
D.z=x+y
试题 8
可通过下列何种属性来设置或返回List列表框控件中当前选定项目的索引（ ）。
A.ListText
B.LisItem
C.ListCount
D.ListIndex
试题 9
.若窗体Form1左上角的坐标为(-250,300)，右下角的坐标为(350,-200)，那么X轴和Y轴的正方向是（ ）
A.向右和向下
B.向左和向上
C.向左和向下
D.向右和向上
试题 10
如果仅需要得到当前系统时间，则可以使用哪个函数（ ）
A.Now
B.Year
C.Date
D.Time
试题 11
数学关系8≤y<40表示成正确的VB表达式为（ ）
A.8<=y AND<40
B.8<=y<40
C.8<=y AND y<40
D.8<=y OR y<40
试题 12
Dim A(-1 To 4, 5) As String定义的数组包含的元素个数是（ ）
A.30
B.25
C.36
D.20
试题 13
应用程序打包后，其包文件的后缀是（
A..vbp
B..ocx
C..exe
D..cab
试题 14
能够实现“窗体总在最前端”界面效果的API函数是（ ）
A.SetWindowPos
B.Public
C.Private
D.SetWindowAPI
试题 15
某窗体的Name属性为MyFrm，则它的Load事件的过程名为（
A.MyFrm_Load
B.Form_Load
C.Form1_Load
D.Me_Load
试题 16
MsgBox函数的返回值的类型是（ ）
A.逻辑型
B.日期型
C.字符串
D.整型
试题 17
以读方式打开D盘中的 Text.dat文件，正确的语句是（ ）
A.open"D:\text.dat" For Output As# 1
B.open" D:\text.dat" For Input As
C.open" D:\text.dat" For Input As# 1
D.open"text.dat" For Random As #1
试题 18
在VB中，Access数据库属于（ ）
A.本地数据库
B.OLE数据库
C.远程数据库
D.外部数据库
试题 19
当Winsock控件处于关闭状态时，其State属性的值是（ ）
A.1
B.-1
C.2
D.0
试题 20
后缀为.Vbp的文件表示VB 的（ ）
A.窗体文件
B.标准类模块文件
C.类模块文件
D.工程文件
阅读下列程序并写出程序运行结果（每题10分，共40分。）
试题 21
Private Sub Form_Click()
Static a As Integer
Dimb As Integer
a =a+2
b =b+2
Text1=a
Text2=b
End Sub
写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。
试题 22
Private Sub Form_Click()
Static a As String
Dimb As String
a =a + "A"
b =b + "B"
Text1 = a
Text2 = b
End Sub
写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。
试题 23
Private Sub Command1_Click()
Dimn As Integer, y As Integer, x As Integer
a =1
Do While a < 20
n= n + 1
b= a + b
a= a * (a + 1)
Loop
Text1.Text = n
Text2.Text = a
Text3.Text = b
End Sub
写出程序运行时单击Command1后，文件框Text1、 Text2和 Text3的输出结果。
试题 24
Private Sub Command1_Click()
DimA(1 To 5) As Integer
Dimx As Integer
Fori = 1 To 5
A(i) = i
Next i
i =1
DoWhile x < 3
A(i) = A(i) * x
x= x + 2
i= i + 1
Loop
Text1.Text = A(1)
Text2.Text = A(2)
End Sub
写出程序运行时单击Command1后，文本框Text1、Text2的输出结果。
试题 25
列表框应用程序。要求从文本框(Text1)中输入姓名，然后按“回车”键，把姓名添加到列表框(List1)中；当选择列表框中某一项后，按“删除”按钮(Command1)，则从列表框中删除该项。程序运行结果如下图所示。
Private Sub Text1_KeyPress( [1] )
If KeyAscii = [2] Then
If Text1 <> "" Then
List1.AddItem [3]
Text1 = ""
Else
MsgBox "请先输入姓名!", vbOKOnly, "信息提示"
End If
End If
End Sub
Private Sub Command1_Click()
If List1.ListIndex >= [4] Then
[5]
Else
MsgBox "请先选择一个项目!", vbOKOnly, "信息提示"
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
请将答案写此横线上
发表评论