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

__________________

If t＞3000 Then Exit For

Next j

Debug.Print j,t

End Sub

2.下面程序运行后，输出的结果是_______。

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

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