vb第三部分 练习题 下载本文

a=a+b+X

Loop Print a End Sub

程序运行后,单击命令按钮,依次在输入对话框中输入 5、4、3、2、1、-1,则输出结果为 A A)2 B)3 C)14 D)15 10.阅读下面的程序段: For i=l To 3 For j=l To i For k=J To 3 a=a+l Next k Next j Next i

执行上面的3重循环后,a的值为 C A)3 B)9 C)14 D)21

11.在窗体上画一个文本框(其Name属性为Textl),然后编写如下事件过程: Private Sub Form_Load0 Textl.Text=” ” Textl.SetFocus For i=l T0 10 Sum=Sum+i Next i Text1.Text=Sum End Sub

上述程序的运行结果是

A)在文本框Textl中输出55 B)在文本框Textl中输出0 C)出错 D)在文本框Textl中输出不定值

12.在窗体上画两个文本框(其Name属性分别为Textl和Text2)和一个命令按钮(其Name属性为Commandl),然后编写如下事件过程: Private Sub Commandl_C1ick() X=0

Do While X<50 X=(X+2)*(X+3) n=n+l Loop

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

End Sub

程序运行后,单击命令按钮,在两个文本框中显示的值分别为 A)l和0 B)2和72 C)3和50 D)4和168

13.下列程序当在文本框输入“ABCD”四个字符时,窗体上显示的是 Private Sub Textl_Change() Print Textl.Text;

End Sub

A) ABCD B) A B C D

C) AABABCABCD D) A AB ABC ABCD

14.下列哪个程序段不能分别正确显示1!、2!、3!、4!的值

A) For I = 1 To 4 B) For I=1 to 4 n=1 For j=1 to I For j=1 To I n=1 n=n*j n=n*j Next j next j Print n Print n Next I Next I C) n=1 D) n=1 For j=1 To 4 j=1 n=n*j Do While j <= 4 Print n n=n*j Next j Print n j=j+1 Loop 15.假定有以下程序段 For I =l To 5

For J=5 To 1 Step -1 Print J

Next J Next I

则循环语句执行完后I的值为 A)5 B)6 C)7 D)8

16.假定有如下事件过程:

Private Sub Form_Click() Dim x As Integer, n As Integer x = 1 n = 0

Do While x < 28

x = x * 3 n = n + 1 Loop Print x, n End Sub

程序运行后,单击窗体,输出结果是 A) 81 4 B) 56 3 C) 28 1 D) 243 5 17.有如下程序:

Private Sub Form_click()

Dim Check, Counter Check = True Counter = 0 Do

Do While Counter < 20

Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop

Loop Until Check = False Print Counter, Check End Sub

程序运行后,单击窗体,输出结果为 A) 15 0 B) 20 - 1 C) 10 True D) 10 False

18.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:(P91)

Private Sub Command1_Click()

Dim a As Integer, s As Integer a = 8 s = 1

Do s = s + a a = a-1 Loop While a <= 0 Print s; a End Sub

程序运行后,单击命令按钮,则窗体上显示的内容是 A)7 9 B) 34 0 C)9 7 D) 死循环

19.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c = 1234

c1 = Trim(Str(c)) For i = 1 To 4 Print Next End Sub

程序运行后,单击命令按钮,要求在窗体上显示如下内容 1 12 123 1234

则在下划线处应填入的内容为

A) Right(c1,i) B) Left(c1,i) C) Mid(c1,i,1) D) Mid(c1,i,i)

20. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程: Private Sub Command1_Click()

n = Val(Text1.Text) For i = 2 To n

For j = 2 To sqr(i)

If i Mod j = 0 Then Exit For Next j

If j > Sqr(i) Then Print i Next i End Sub

该事件过程的功能是

A) 输出n以内的奇数 B) 输出n以内的偶数 C) 输出n以内的素数 D) 输出n以内能被j整除的数 二、填空题