VB程序设计作业(二)答案(共3页).doc
精选优质文档-倾情为你奉上VB程序设计作业（二）客观题部分：选择题（每题1分，共15题）1. 当VB执行下面语句后，A的值为（ A ）。A=1 IF A>0 THEN A=A+1 IF A>1 THEN A=0A）0 B）1 C）2 D）32. 当VB执行下面语句后，输出的结果是（ B ）。Private Sub Form_Click（）score = Int(Rnd * 10) + 30 Select Case score Case Is < 10 A$ = "F" Case 10 To 19 A$ = "D"Case 20 To 29 A$ = "C" Case 30 To 39 A$ = "B" Case Else A$ = "A" End Select Print A$ End SubA） A B） B C） C D） D3. 执行下面的程序段后，x 的值为( C )。x=2 For i=1 To 10 Step 3 x=x+i2 Next iA) 2 B) 4 C) 7 D) 94. 假定有以下循环结构：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）24C）15 D）186. 以下程序段的输出结果为（ D ）。x = 2 y = 8 Do Until y>8 x = x * y y = y +1 Loop Print xA）2 B）9C）10D）167. 用下面的语句所定义的数组的元素个数是（ D ）。Dim A（-3 To 5） As IntegerA）6 B）7C）8D）98. 阅读下面的程序段：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) 3B) 4C) 5D) 69. 在窗体上画一个命令按钮，然后编写如下事件过程：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 iPrint x End Sub程序运行后，单击命令按钮，输出结果是( B )。A) 11 B) 19 C) 57 D) 6310. 在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click()x=1 Do While x<50 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和56C) 3和 70 D) 4和16811. 以下正确的叙述是（ C ）。A） Select Case语句中的测试表达式可以是任何形式的表达式B） Select Case语句中的测试表达式只能是数值表达式或字符串表达式C） 在执行Select Case语句时，所有Case子句均按出现的次序被顺序执行D） 如下Select Case语句中的Case表达式是错误的：Select Case x Case 1 to 10 End Select12. 在窗体上绘制一个命令按钮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 * 10 Next i Print s End Sub运行程序，单击命令按钮，输出结果为（ B ）。A）54321 B)12345 C)1234 D)432113. 在窗体上绘制一个命令按钮Commandl，编写以下事件过程： Private Sub Commandl_C1ick() Dim b bArray(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 iB) For i0 To 5 tmp=b(i) b(i)b(5-i-1) b(5-i-1)=tmp Next iC) For i0 To 52 tmpb(i) b(i)b(5-i-1) b(5-i-1)=tmp Next iD) For i1 To 52 b(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 Integer For i = 1 To 3 For j = 1 To 3 a(i, 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） 5B）6 C) 6 D）56 7 8 77 8 7 68 9 9 815. 设有函数y，下面不能正确求得函数值的程序段是（ D ）。A） Select Case xCase Is < 0y=xCase 0y=0Case Is > 0y=x*xEnd SelectB） If x>0 Then y=x*xEnd IfIf x=0 Theny=0End IfIf x<0 Theny=xEnd IfC） If x < 0 Theny = x Else If x > 0 Then y = y * x Else y = 0 End If End IfD） If x<=0 Theny=xEnd IfIf x>0 Theny=x*xElsey=0End 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 <= 1000)i = i + 1s = s + iLoop Until i >= nPrint "1+2+3+.+n=" & sEnd Sub专心-专注-专业
