VB程序设计考试试题及答案

月考上机试题
一．选择题：(10*2)
1由单精度浮点型的数据组成的字节数是
A.2
B.4
C.8
D.16
2.可以同时删除字符串前导和尾部空白的函数是
A．Ltrim
B．Rtrim
C．Trim
D．Mid
3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
A.工程资源管理器窗口
B.工具箱窗口
C.代码窗口
D.属性窗口
4.在窗体上添加如下命令按钮，然后编写如下事件过程：C Private Sub Command1 _ Click()
Dim a(10)As Integer
Dim p(3)As Integer
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
该过程的运行结果为:
A.35
B.33
C.31
D.29
5.VB表达式Cos(0)+Abs(1)+Int(Rnd(1))的值是
A.1
B. -1
C. 0
D. 2
6.若m，x，y，均为Integer型变量，则执行下面语句后m值是m=1：X=2：Y=3
m=IIf(X＞Y，X+Y，X-Y)
A.-1
B.0
C.1
D. 2
7.设a=″Visual Basic″，下面使b=″Basic″的语句是
A.b=Left(a，8，12)
B.b=Mid(a，8，5)
C.b=Right(a，5，5)
D.b=Left(a，8,5)
8.以下不能运行工程的操作是
A..执行"运行"菜单中的"启动"命令
B.单击工具栏中的"启动"命令
D.按下F5键 C.按下Ctrl+F5键
9.下列关于面向对象程序设计的叙述不正确的是
A.对象具有属性、方法等特性
B.对象之间的通信产生了消息
C.一个对象是一个软件构造块，它包含数据与相关的操作
D.对象的属性不能被改变
10.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1 _ Click（）
Static X As Integer
Static Y As Integer
Cls
Y=l
Y=Y+5
X=5+X
Print X，Y
End Sub
程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为:
A.15 16
B.15 6
C.15 15
D.5 6
二．填空题（3*4）
1.计算1*2*3*...*3000，当积大于3000时停止计算。

请在_______处将程序补充完整。

Private Sub FormClick()
Dim t As Single,j As Integer
J=1
For j=1 To 3000
____t=t*j______________
If t＞3000 Then Exit For
Next j
Debug.Print j,t
End Sub
2.下面程序运行后，输出的结果是_BBBB______。

For J= 1 To 10
A(J)=2*J
B(J)=A(J)*2
Next J
Print B(J/2+0.1)
End
3.设有如下程序：程序运行后，单击窗体，则在窗体上显示的是6 5 4 3，请在_______处将程序补充完整。

Option Base 0
Private Sub Form _ Click（）
Dim a
Dim i As Integer
a=Array(1，2，3，4，5，6，7，8，9)
For i=0 To 3
Print a(5-i)
Next i
End Sub
三．编程题：（34*2）
1. 用随机函数产生10个不大于100的整数存入一维数组a中，并找出这组数中能被3整除余2的数赋值于数组b。

点击开始按钮在窗体中显示数组a和数组b。

2.编写一段程序，实现label1（我爱我家）的无规则运动，要求使用时钟控件，同时命令按钮1实现自动运动，命令按钮2实现手动控制。

月考答案
一．选择题答案：
1.B
2.C
3.C
4.B
5.D
6.D
7.B
8.D
9.D 10.B 二．填空题:
1. t=t*j
2. BBBB
3. Print a(5-i）
三．编程题：
1. Private Sub Command1_Click()
Dim i%
Const n = 10
Dim a(1 To n) As Integer
Randomize
For i = 1 To n
a(i) = Int(Rnd * 100 + 1)
Print a(i),
If i Mod 4 = 0 Then Print
Next i
Print
（１）
End Sub
Private Sub s( （２）) Dim i%, k%
For i = 1 To n
If a(i) Mod 3 = 2 Then
If k Mod 4 = 0 Then Print
Print a(i),
k = k + 1
End If
Next i
End Sub
2. Dim step1 As Integer
Private Sub Command1_Click()
Timer1.Interval = 200
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
Call mymove
End Sub
Private Sub Form_Load()
Label1.Left = 0
step1 = 1
Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
Call mymove
End Sub
Public Sub mymove()
Label1.Move Label1.Left + 200 * step1
If Label1.Left > Form1.Width Then
'step1 = -1
Label1.Left = -4335
'ElseIf Label1.Left < 0 Then
'step1 = 1
End If
End Su。