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

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

2、3 To 5Dim A（9 A）7C8D）6 B 8. 阅读下面的程序段：For i=1 To 2For j=1 To IFor k=j To 2x=x+1Next kNext jNext i 的值为x( C )。执行上面的三重循环后，D) 6 A) 3 C) 5 B) 4 9.在窗体上画一个命令按钮，然后编写如下事件过程：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 ( B )程序运行后，单击命令按钮，输出结果是。C)

3、 57 D) 63 A) 11 B) 19 10. Text2和Text1在窗体上画两个文本框Command1，一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() x=1Do While x50x=(x+1)*(x+2)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ B ）。 A) 1和0 B) 2和56 C) 3和 70 D) 4和168 11. 以下正确的叙述是（ C ）。 A） Select Case语句中的测试表达式可以是任何形式的表

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

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

6、 i0 To 5 tmp=b(i) b(i)b(5-i-1) b(5-i-1)=tmp Next i C) For i0 To 52 tmpb(i) b(i)b(5-i-1) b(5-i-1)=tmp Next i D) For i1 To 52 b(5-i-1)tmp tmp=b(i) b(i)b(5-i-1) Next i 14. 在窗体上绘制一个命令按钮Commandl，编写以下事件过程： Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 a(i,

7、 j) = 2 * i + j Next j Next i For i = 2 To 3 For j = 2 To 3 Print a(j, i) Next j Next iEnd Sub 程序运行后，单击命令按钮，输出的结果是（ C ）。 A） 5 B）6 C) 6 D）5 7 8 6 7 7 8 7 6 8 9 9 8 x*x(x?0)?(x?0)0?，下面不能正确求得函数值的程序段是（ D ）。 15. 设有函数y?(x?0)x?Select Case x ）ACase Is 0 y=x*x End Select If x0 Theny=x*x ）BEnd If If x=0 Then y=0 End If End If If x0 Then y=x If x 0 Then y = y * x Else y = 0 End IfEnd If D） End If If x0 Then 主观题部分： 编程题（每题15分，共1题） 编程实现一个窗体Form的click事件，单击该窗体后从键盘接收变量n的数值然后计算并打印1+2+.+n的值，如果和已经大于1000则停止计算。 Private Sub Command1_Click(