《VB程序设计方案作业(二)答案.docx》由会员分享，可在线阅读，更多相关《VB程序设计方案作业(二)答案.docx（3页珍藏版）》请在三一文库上搜索。
1、 VB程序设计作业（二）客观题部分：选择题（每题1 分，共 15 题）1. 当 VB 执行下面语句后， A 的值为（ A ）。A=1IF A0 THEN A=A+1IF A1 THEN A=0A）0B）1C）22. 当 VB 执行下面语句后，输出的结果是（Private Sub Form_Click （）D ） 3B ）。score = Int(Rnd * 10) + 30 Select Case score Case Is 8 x = x * y y = y +1 Loop Print xA ）2B ） 9C） 10D） 167.用下面的语句所定义的数组的元素个数是（D ）。DimA （ -
2、3 To 5）As IntegerA ）6B ） 7C） 8D ）98. 阅读下面的程序段：For i=1 To 2 For 执行上面的三重循环后， A)3 B)4j=1 To I For k=j To 2 x=x+1 Next k Next j Next ix 的值为 (C)。C)5D)69. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Fori=1 To 3 x=2 Forj =1 To 2 x=4 Fork=1 To 3 x=x+5 Nextk Nextj NextiPrintx End Sub程序运行后，单击命令按钮，输出结果是
3、(B)。A) 11B) 19C) 57D) 6310. 在窗体上画两个文本框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 和 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 10End Select12. 在窗体上绘制一个命令按钮 Command1，然后编写如下程序：Option Base 1 Private 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 s End Sub运行程序，单击命令按钮，输出结果为（B）。A ）54321B)12345C)1234D)432113. 在窗体上绘制一个命令按钮Commandl，编写以下事件过程：Private Sub Commandl_C1ick() Dim b b Array(1,2,3,4,5)End Sub此过程的功能是把数组 b 中的 5 个数逆序存放。为了实现此功能，省略号处的程序段应该是（C）。A) For i 0 To 5-12 tmp b(i)B)For i 0To 5tmp=b(i)C)For i 0To 52tmp b(i)D)For i
6、1To 52b(5-i-1) tmpb(i) b(5-i-1)b(5-i-1) tmpNext ib(i) b(5-i-1)b(5-i-1)=tmpNext ib(i) b(5-i-1)b(5-i-1)=tmpNext itmp=b(i)b(i) b(5-i-1)Next i14. 在窗体上绘制一个命令按钮 Commandl，编写以下事件过程：Option Base 1Private Sub Command1_Click()Dim a(3, 3) As IntegerFor i = 1 To 3For j = 1 To 3a(i, j) = 2 * i + jNext jNext iFor i
7、 = 2 To 3For j = 2 To 3Print a(j, i)Next jNext iEnd Sub程序运行后，单击命令按钮，输出的结果是（C ）。A ） 5B ）6C) 6D ）5678778768998x* x(x0)15. 设有函数 y 0( x0) ，下面不能正确求得函数值的程序段是（D ）。x(x0)A ） Select Case xCase Is 0y=x*xEnd SelectB ） If x0 Then y=x*xEnd IfIf x=0 Theny=0End IfIf x0 Theny=xEnd IfC）If x 0 Theny = y * xD ） If x0 Theny=x*xElseElsey=0End Ify = 0End If End If主观题部分：编程题（每题15 分，共 1 题）编程实现一个窗体Form 的 click 事件，单击该窗体后从键盘接收变量n 的数值然后计算并打印1+2+.+n的值，如果和已经大于1000 则停止计算。Private 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 Sub