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

1、VB 程序设计作业(二)客观题部分： 选择题(每题 1 分，共 15 题)1. 当 VB 执行下面语句后， A 的值为( A )。A=1IF A0 THEN A=A+1IF A1 THEN A=0A)0 B) 1 C) 2 D) 32. 当 VB 执行下面语句后，输出的结果是( B )。Private Sub Form_Click ( ) score = Int(Rnd * 10) + 30Select Case scoreCase Is 8x = x * yy = y +1LoopPrint xA ) 2B ) 9C ) 10D ) 167. 用下面的语句所定义的数组的元素个数是( D )。

2、Dim A ( -3 To 5 ) As IntegerA) 6 B) 7C) 8D) 98. 阅读下面的程序段：For i=1 To 2For j=1 To IFor k=j To 2x=x+1Next kNext jNext i执行上面的三重循环后，x 的值为(C)。A) 3B) 4C) 5D) 69. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 3x=2For j =1 To 2x=4For k=1 To 3x=x+5Next kNext jNext i Print xEnd Sub程序运行后，单击命令按钮，

3、输出结果是 ( B )。A) 11B) 19C) 57 D) 6310. 在窗体上画两个文本框 Textl 和 Text2，个命令按钮 Commandl，然后编写如下事件过程:Private Sub Command1_Click()x=1Do While x50 x=(x+1)*(x+2)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为(B )。A) 1 和 0B) 2 和 56C) 3 和 70D) 4 和 16811. 以下正确的叙述是(C )。A)Select Case 语句中的测试

4、表达式可以是任何形式的表达式B)Select Case 语句中的测试表达式只能是数值表达式或字符串表达式C)在执行 Select Case 语句时，所有 Case 子句均按出现的次序被顺序执行D)如下 Select Case 语句中的 Case 表达式是错误的：Select Case xCase 1 to 10. End Select12. 在窗体上绘制一个命令按钮Command1,然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim aa = Array(1,2, 3, 4, 5) j = 1For i = 5 To 1 Step -1s

5、 = s + a(i) * jj = j * 10Next iPrint sEnd Sub运行程序，单击命令按钮，输出结果为( B )。A) 54321B)12345C)1234D)432113. 在窗体上绘制一个命令按钮Commandl，编写以下事件过程：Private Sub Commandl_C1ick() Dim bb = Array(1,2,3,4,5) .End Sub此过程的功能是把数组 b 中的 5 个数逆序存放。为了实现此功能，省略号处的程序段应该是( C )A) For i = 0 To 5-12 tmp = b(i) b(i) = b(5-i-1) b(5-i-1) =

6、tmp Next iB) For i = =0 To 5 1tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next iC)For i = =0 To 52tmp= b(i) b(i)=b(5-i-1)b(5-i-1)=tmp Next iD) For i = =1 To 52b(5-i-1) = tmp tmp=b(i)b(i) = b(5-i-1)Next i14.在窗体上绘制一个命令按钮 Commandl，编写以下事件过程：Option Base 1Private Sub Command1_Click()Dim a(3, 3) As IntegerFor i =

7、1 To 3 For j = 1 To 3a(i, j) = 2 * i + j Next j Next iFor i = 2 To 3 For j = 2 To 3 Print a(j, i)Next j Next iEnd Sub程序运行后，单击命令按钮，输岀的结果是(C )。A) 5B) 6C) 6 D) 567877698(x 0)(X =0)，下面不能正确求得函数值的程序段是( D )(x舟0)A) Select Case xCase Is 0 y=x*xEnd Selectx* x0 Theny=x*xPrivate Sub Command1_Click()Dim i As IntegerDim n As IntegerDim s As Integeri = 0s = 0n = InputBox( 请输入整数 n)Do While (s = nPrint 1+2+3+.+n= & sEnd SubIf x0 Theny=x End IfC )If x 0 Theny = y * xElse y = 0End IfEnd IfD) If x0 Theny=x*x Elsey=0 End If主观题部分：编