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

VB 程序设计 作业 二 客观题部分 选择题 每题 1 分 共 15 题 1 当 VB 执行下面语句后 A 的值为 A A 1 IF A 0 THEN A A 1 IF A 1 THEN A 0 A 0 B 1 C 2 D 3 2 当 VB 执行下面语句后 输出的结果是 B Private Sub Form Click score Int Rnd 10 30 Select Case score Case Is 8 x x y y y 1 Loop Print x A 2 B 9C 10D 16 7 用下面的语句所定义的数组的元素个数是 D Dim A 3 To 5 As Integer A 6 B 7C 8D 9 8 阅读下面的程序段 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 6 9 在窗体上画一个命令按钮 然后编写如下事件过程 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 i Print x End Sub 程序运行后 单击命令按钮 输出结果是 B A 11 B 19 C 57 D 63 10 在窗体上画两个文本框 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 和 168 11 以下正确的叙述是 C A Select Case 语句中的测试表达式可以是任何形式的表达式 B Select Case 语句中的测试表达式只能是数值表达式或字符串表达式 C 在执行 Select Case 语句时 所有 Case 子句均按出现的次序被顺序执行 D 如下 Select Case 语句中的 Case 表达式是错误的 Select Case x Case 1 to 10 End Select 12 在窗体上绘制一个命令按钮 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 4321 13 在窗体上绘制一个命令按钮 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 1 2 tmp b i b i b 5 i 1 b 5 i 1 tmp Next i B For i 0 To 5 tmp b i b i b 5 i 1 b 5 i 1 tmp Next i C For i 0 To 5 2 tmp b i b i b 5 i 1 b 5 i 1 tmp Next i D For i 1 To 5 2 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 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 5 6 7 8 7 7 8 7 6 8 9 9 8 15 设有函数 y 下面不能正确求得函数值的程序段是 D 0 0 0 0 xx x xxx A Select Case x Case Is 0y x x End Select B If x 0 Then y x xEnd If If x 0 Theny 0 End If If x 0 Theny x End If C If x 0 Then y y x Else y 0 End If End If D If x0 Theny x xElsey 0 End If 主观题部分 编程题 每题 15 分 共 1 题 编程实现一个窗体 Form 的 click 事件 单击该窗体后从键盘接收变量 n 的数值然后计算并打印 1 2 n 的值 如果和已经大于 1000 则停止计算 Private Sub Command1 Cl