二级VB版本同步练习

Case 1, 3, Is ＞ 5 Print \ End Select

2. 假定有以下循环结构 Do Until条件 循环体 Loop

则正确的描述是 (B)

A.如果\条件\是一个为0的常数，则一次循环体也不执行

B.如果\条件\是一个为0的常数，则无限次执行循环体

C.如果\条件\是一个不为0的常数，则至少执行一次循环体

D.不论\条件\是否为\真\，至少要执行一次循环体

3.假定有以下程序段 For i = 1 To 3

For j = 5 To 1 Step - 1 Print i * j Next j, i

则语句Print i*j的执行次数是 (A) A.15 B.16 C.17

D.18

4.以下程序段的输出结果为 x=1

y=4

Do Until y ＞ 4 x=x*y y=y+1 Loop

Print x (B) A.1

B.4 C.8 D.20

5.设a=6，则执行

x=IIf(a＞5，-1，0) 后，x的值为(D) A.5 B.6 C.0

D.-1

6. 执行下面的程序段后，x的值为 x=5

For i = 1 To 20 Step 2 x=x+i\\5 Next i (A) A.21 B.22 C.23

D.24

7. 在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() For i= 1 To4 x=4 For j = 1 To 3 x=3

For k= 1 To 2 x=x+6 Next k Nextj Next i Print x

End Sub

程序运行后，单击命令按钮，输出结果是 (B) A.7 B.15

C.157 D.538

8. 在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() x=0

VB高教版同步练习 第 13 页 / 共 45页

Do Until x = -1

a=InputBox(\请输入 A的值\ a=Val(a)

b=InputBox(\请输入B的值\ b=Val(b)

x=InputBox(\请输入x的值\ x = Val(x) a=a+b+x Loop Print a

End Sub

程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 (A) A.2 B.3 C.14

D.15

9.阅读下面的程序段： For i=1 To 3

For j = 1 To i

Fork =j To 3 a=a+1 Next k Next j

Next i

执行上面的三重循环后，a的值为 （C） A.3 B.9 C.14

D.21

10. 在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text= \ Text1.SetFocus For i=1 To 10

Sum = Sum + i Next i

Text1.Text = Sum End Sub

上述程序的运行结果是 （C） A.在文本框Text1中输出55 B.在文本框Text1中输出0

C.出错

D.在文本框Text1中输出不定值

11.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：

Private Sub Command1_Click() x=0

Do While x ＜ 50 x=(x+2)*(x+3) n=n+1 Loop

Text1.Text = Str(n) Text2.Text = Str(x)

End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为 (B) A.1和0 B.2和72 C.3和50

D.4和168

12.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For I= 1 To 4

For J = 0 To I

Print Chr$(65 + I); Next J Print Next I

End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是(A) A. BB

VB高教版同步练习 第 14 页 / 共 45页

CCC DDDD EEEEE B. A BB CCC DDDD C. B CC DDD EEEE D. AA BBB CCCC

DDDDD

13.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10, 10) As Integer For i= 1 To3

For j = 1 To 3

a(i, j) = (i - 1) * 3 +j

Print a(i, j); Next j Print Next i

End Sub

程序运行后，单击命令按钮，窗体上显示的是 (D)

A. 1 2 3 2 4 6 3 6 9 B. 2 3 4 3 4 5 4 5 6 C. 1 4 7 2 5 8

3 6 9 D. 1 2 3 4 5 6 7 8 9 14.设有函数

r= 1 x＜0 2 x＞=0

则下列能正确计算该函数值的语句是 (D) A. If x＜0 Then r = 1 ElseIf x＞=0 Then r=2 End If

B.If x ＜ 0 Then r = 1

ElseIf (x ＞= 0) Then r=2 Else r = 1 End If

C.print(IIf(x＞0,1,2)) D. r = IIf(x＜0,1,2)

15.在窗体上画两个名称分别为Label1和Label2的标签，然后编写如下事件过程 Private Sub Form_Click() x= -5:s= -5 Select Case s

Case Is ＞ 0 y=x+1 Case Is ＞= 0 y=x+2 Case Else y=x+3 End Select Label 1.Caption = x

Label2.Caption = y End Sub

程序运行后，单击窗体，标签Label1和Label2中显示的内容分别是 (A) A.-5 和 -2 B.-5 和 -4 C.-5 和 -3 D.-5 和 -5

VB高教版同步练习 第 15 页 / 共 45页

二、填空题：

1．执行下面的程序段后，s的值为 9 。 s=5

For i = 2.6 To 4.9 Step 0.6 s=s+1

Next i

2．以下程序段的输出结果是 1 2

3 。 num = 0

While num ＜= 2 num= hum + 1 Print hum

Wend

3．以下程序段所对应的函数表达式是 x = InputBox(\x = CInt(x) Select Case x Case Is ＜= 0 y=0

Case Is ＜= 10 y=5+2*x Case Is ＜= 15 y=x-5

Case Is ＞ 15 y=0

End Select

4．设有以下的循环： x=1 Do

x=x+2 Print x

Loop Until x>=7 程序运行后，要求执行3次循环体，请填空。

5．阅读以下程序： Private Sub Form_Click() Dim k, n, rn As Integer

n=10 m=1

k=1

Do While k ＜= n m=m*2 k=k+1 Loop Print m

End Sub

程序运行后，单击窗体，输出结果为 1024 。

6．以下循环的执行次数是 11 。 k=0

Do While k ＜= 10 k=k+1 Loop

7．阅读程序： Private Sub Form_Click() num = 0 Do

num= num+ 1 Print num

Loop Until num＞ 2

End Sub

程序运行后，单击窗体，输出结果是 1 2

3

8．在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() a=0

For i = 1 To 2

For j = 1 To 4

If j Mod 2 ＜＞ 0 Then a=a+1 End If a=a+1 Next j

VB高教版同步练习 第 16 页 / 共 45页