VB对口升学循环结构及数组练习.docVIP

VB循环结构及数组练习 一、单选题 1.执行以下程序段后，i的值为（ ） For i = 1 To 10 Step 2 y = y + i Next i A）10 B）11 C）12 D）25 2.假定有如下语句： Private Sub Command1_Click() Counter = 0 For i = 1 To 4 For j = 6 To 1 Step -2 Counter = Counter + 1 Next j Next i Label1.Caption = Str(Counter) End Sub 程序运行后，结果为（ ） A）11 B）12 C）16 D）20 3. 假定有如下语句： Private Sub Command1_Click() For i = 1 To 4 If i = 1 Then x = i If i = 4 Then x = x +1 Print x; End Sub 程序运行后，结果为 A）1 2 3 4 B）2 3 4 5 C）2 3 4 4 D）3 4 5 6 4.哪个程序段不能分别正确显示1!、2!、3!、4!的值（ ） A）For i = 1 To 4 n = 1 For j = 1 To i n = n * j Next j Print n Next i B）For i = 1 To 4 For j = 1 To i n = 1 n = n * j Next j Print n Next i C）n = 1 For j = 1 To 4 n = n * j Print n Next j D）n = 1: j = 1 Do While j = 4 n = n * j Print n j = j + 1 Loop 5. 编写如下的事件过程： 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）BB B）A C）B D）AA CCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD 6. 编写如下的事件过程： Private Sub Command1_Click() Dim x,n As Integer x = 1 n = 0 Do While x 20 x = x * 3 n = n + 1 Loop Text1.Text = Str (x) Text2.Text = Str (n) End Sub 运行程序后，在2个文本框中显示的值分别是（ ） A）20和1 B）27和3 C）195和3 D）600和4 7. 编写如下的事件过程： Private Sub Command1_Click() Dim i,n As Integer For i = 0 To 50 i = i + 3 n = n + 1 If i 10 Then Exit For Next Text1.Text = Str (n) End Sub 运行后，文本框中显示的值是（ ） A）2 B）3 C）4 D）5 8. 编写如下的事件过程： Private Sub Command1_Click() c = 1234 c1 = Trim (Str(c)) For i = 1 To 4 Print ________ Next End Sub 运行程序后，窗体上显示如下 1 1 2 1 2 3 1 2 3 4 则应该在________处填写的表达式是（ ） A）Right (c1,n) B）Left (c1,i) C）Mid (c1,n,1) D）Mid (c1,n,n) 9. 编写如下的事件过程： 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)