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) 10 D ) 167. 用下面的语句所定义的数组的元素个数是( D )。Dim

2、 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) 57D) 6310. 在窗体上画两个文本框 Textl和Text2, 个命令按钮 Commandl，然后编写如下事件过程：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 和 0B) 2 和 56 C) 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 EndSelect12. 在窗体上绘制一个命令按钮Command1，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim aa = Array(1,2, 3, 4, 5)j = 1For i = 5 To 1 Step -1s =s + a(i)

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

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

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