vb习题（含答案）

A、Today B、Tomorrow

C、Yesterday

D、5

31、窗体上有一个命令按钮Command1,编写如下事件过

程: Private Sub Command1_Click() :x = Val(InputBox(\: y = InputBox(\: Print x + y : End Sub, 单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是( )。（1分）

A、444

B、123321

C、123+321

D、出错信息

32、执行语句 MsgBox \2, \后，所产生的消息框的标题是( )。（1分）

A、AAA

B、BBB

C、2

D、出错，不能产生消息框

33、已知：a = \and Hardware\，b = Len(a)，c = Right(a, 8)，执行 MsgBox a, b, c 后，在弹出的信息框的标题栏中显示的信息是( )。（1分）

A、Software and Hardware

B、Software

C、Hardware

D、19

34、阅读下列程序

段： m = 0: For i = 1 To 3: For j = 1 To i: m = m + j: Next j, i:执行以上的循环后，i和m的值分别为( )。（1分）

A、3 6

B、3 10

C、4 6

D、4 10

35、窗体上有一个命令按钮Command1，编写如下事件过程：

Private Sub Command1_Click(): a = 0: For m = 1 To 3: a = a + 1: b = 0: For j = 1 To 3: a = a + 1: b = b + 2: Next j: Next m: Print a, b: End Sub,运行时，单击按钮，输出结果是( )。（1分）

A、6 6

B、6 18

C、12 6

D、12 18

36、若有 k = 10，则循环结构 Do Until k < 0: k = k - 1: Loop 中的循环体执行次数是( )。（1分）

A、9 B、10

C、11

D、无数次

37、下列语句中，不能实现循环100次的是( )。（1分）

A、N=0:Do: N=N+1: Loop Until N>=100

B、N=0:Do: N=N+1: Loop While N<100

C、N=0:Do: N=N+1: Loop Until N<100

D、N=0:Do While N<100: N=N+1: Loop

38、设a为整型变量，不能正确表达数学关系10 < a < 15的VB表达式是( )。（1分）

B、

a = 11 Or a = 12 Or a = 13 Or a = 14

C、a > 10 And a < 15

A、10 < a < 15

D、Not ( a<= 10) And Not ( a >=15)

39、在Visual Basic中，能正确描述条件“x>y>z”的表达式是( )。（1分）

A、x>y and z

B、x>y and y>z

C、x>y>z

D、x> y and>z

40、如果变量nop的值为2，则执行完语句 op = Choose(nop, \春\\夏\\秋\\冬\ 后，op的值为( )。（1分）

A、春

B、夏

C、秋

D、冬

41、执行下列语句a = 3:x = IIf(a > 5, int(-5.6), Fix(5.6))后，x的值是( )。（1分）

A、5

B、-5

C、6

D、-6

42、结束当前程序运行的语句是( )。（1分）

A、quit

B、exit

C、end

D、sub

43、要从 For ? Next 循环中退出循环，应使用( )语句。（1分）

A、Exit B、Exit For

C、Continue

D、Stop Loop

44、如下数组声明语句Dim a(3, -2 To 1, 5)中数组a包含的元素个数为( )。（1分）

A、96

B、75

C、60

D、13

45、下列语句错误的是( )。（1分）

A、Private a(-10 To 5)

B、Dim a(N) 'N为变量

C、Dim a() As Integer

D、Dim a%(10,-10 To -10)

46、能使一维数组arr(6)元素个数加1，但保留数组中原有元素的语句是( )。（1分）

A、ReDim arr(7)

B、ReDim Preserve arr(7)

C、Public arr(1 To 7)

D、Static arr(7)

47、窗体上有一个命令按钮Command1，编写如下事件过

程： Private Sub Command1_Click(): Dim a(10): For j = 6 To 10: a(j)= j - 5: Next j: Text1.Text = a(0) + a(a(10) / a(6)): End Sub，运行时，单击按钮，Text1中显示( )。（1分）

A、0

B、1

C、2

D、3

48、以下定义数组或给数组元素赋值的语句中，错误的是( )。（1分）

A、Dim a : a=Array(1,2,3,4,5)

B、Dim a( ) : a=Array(1,2,3,4,5)

C、Dim A%() : a=Array(1,2,3,4,5)

D、

Dim a As Variant : a= Array(1, 2, 3, 4, 5)

49、当工程中有多个窗体时，必须指定启动窗体，其方法是：选择“工程”菜单中的“工程属性”命令，打开“通用”选项卡，在( )中选择运行时显示的第一个窗体。（1分）

A、工程类型

B、工程名称

C、工程描述 D、启动对象 50、在窗体Form1的单击事件中，与Form1.Hide等价的语句是( )。（1分） A、Form1.Cls B、Me.Hide C、Me.Cls D、Form1.UnLoad

二、填空题（6道小题，共30分）

1、* 输出Fibonacci数列1，1，2，3，5，8，?的前20项。 * 程序代码如下：

Private Sub Command1_Click() Dim s%, a%, b%, c% a = 1 b = 1 Print a Print b For

i

= 3 To 20 = a + b

c

Print c a=b b=c Next i End Sub （4分）

2、* 使用双循环实现倒三角形输出

********* ******* ***** *** * * 程序代码如下：

Private Sub Command1_Click() For i = 1 To

5