Visual Basic 期末复习题库 单项选择题 判断题 填空题 编程题 1) 下列程序运行后，输出的结果为______。 B=1 Do while (b<40) b=b*(b+1) Loop Print b a) 42 b) 39 c) 6 d) 1 答案：A 2) 设执行以下程序段时依次输入1、3、5，执行结果为_____。 Dim a(4) As Integer Dim b(4) As Integer For K =0 To 2 a(K+1) =Val(InputBox(“请输入数据：")) b(3-K) =a(K+1) Next K Print b(K) a) 1 b) 3 c) 5 d) 0 答案：A 3) 下列程序执行后，变量 s 的值为______。 Dim s As long ,x As Integer s=0:x=1 Do While (x<10) s=s+x x=x+2 Loop Print s a) 10 b) 25 c) 50 d) 100 答案：B 4) 编写如下事件过程： Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single) If Shift=6 And Button=2 Then Print "Hello" End If End Sub 程序运行后，为了在窗体上输出"Hello"，应在窗体上执行以下_______操作。 a) 同时按下 Shift 键和鼠标左键 b) 同时按下 Shift 键和鼠标右键 c) 同时按下Ctrl、Alt 键和鼠标左键 d) 同时按下 Ctrl、Alt 键和鼠标右键 答案：D 5) 当变量 x=2,y=5 时，以下程序的输出结果为____。 Do until y>5 x=x*y y=y+1 loop print x a) 2 b) 5 c) 10 d) 20 答案：C 6) 当执行以下程序时，在名为lblResult 的标签框内将显示_____。 Private Sub cmdlt_click() Dim I,R R=0 For I=1 To 5 Step 1 R=R+I Next I lblResult.Caption=Str（R） End Sub a) 字符串 15 b) 整数 15 c) 字符串 5 d) 整数 5 答案：A 7) 如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。 X=1 do x=x+3 print x loop until(___) a) x>=8 b) x<=8 c) x>=7 d) x<=7 答案：A 8) 若整型变量 a 的值为2、b 的值为3，则下列程序段执行后整型变量 c 的值为______。 If a>5 then if b<4 then c=a-b else c=b-a End if elseif b>3 then c=a*b else c=a mod b End if a) 2 b) -1 c) 1 d) 6 答案：A 9) 设有如下语句： str1=inputbox("输入","","练习") 从键盘上输入字符串“示例”后，str1 的值是___。 a) “输入” b) “” c) “练习” d) ...
VIP
