VB程序设计作业(二)答案.doc

《VB程序设计》作业（二） 客观题部分： 选择题（每题1分，共15题） 1. 当VB执行下面语句后，A的值为（ A ）。 A=1 IF A0 THEN A=A+1 IF A1 THEN A=0 A）0 B）1 C）2 D）3 2. 当VB执行下面语句后，输出的结果是（ B ）。 Private Sub Form_Click（）score = Int(Rnd * 10) + 30 Select Case score Case Is 10 A$ = F Case 10 To 19 A$ = DCase 20 To 29 A$ = C Case 30 To 39 A$ = B Case Else A$ = A End Select Print A$ End Sub A） A B） B C） C D） D 3. 执行下面的程序段后，x 的值为( C )。 x=2 For i=1 To 10 Step 3 x=x+i\2 Next i A) 2 B) 4 C) 7 D) 9 4. 假定有以下循环结构： Do Until 条件 循环体 Loop 则正确的描述是（ D ）。 A) 如果“条件”是一个为0的常数，则一次循环体也不执行B) 如果“条件”是一个为0的常数，则至少执行一次循环体C) 如果“条件”是一个不为0的常数，则至少执行一次循环体D) 不论“条件”是否为“真”，至少要执行一次循环体 5. 假定有以下程序段： For i= 1 To 3 For j = 5 To 1 Step -1 Print i * j Next j , i 则语句“Print i * j ”的执行次数是（ C ）。 A）20 B）24 C）15 D）18 6. 以下程序段的输出结果为（ D ）。 x = 2 y = 8 Do Until y8 x = x * y y = y +1 Loop Print x A）2 B）9 C）10 D）16 7. 用下面的语句所定义的数组的元素个数是（ D ）。 Dim A（-3 To 5） As Integer A）6 B）7 C）8 D）9 8. 阅读下面的程序段： For i=1 To 2 For j=1 To I For k=j To 2 x=x+1 Next k Next j Next i 执行上面的三重循环后，x的值为( C )。 A) 3 B) 4 C) 5 D) 6 9. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 3 x=2 For j =1 To 2 x=4 For k=1 To 3 x=x+5 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是( B )。 A) 11 B) 19 C) 57 D) 63 10. 在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click() x=1 Do While x50 x=(x+1)*(x+2) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ B ）。 A) 1和0 B) 2和56 C) 3和 70 D) 4和168 11. 以下正确的叙述是（ C ）。 Select Case语句中的测试表达式可以是任何形式的表达式 Select Case语句中的测试表达式只能是数值表达式或字符串表达式 在执行Select Case语句时，所有Case子句均按出现的次序被顺序执行 如下Select Case语句中的Case表达式是错误的： Select Case x Case 1 to 10 …… End Select 12. 在窗体上绘制一个命令按钮Command1，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4, 5) j = 1 For i = 5 To 1 Step -1 s = s + a(i) * j j = j * 1