vb习题vb习题.doc

习题 1) 下列程序运行后，输出的结果为______。 B=1 Do while (b40) b=b*(b+1) Loop Debug.write b a) 42 b) 39 c) 6 d) 1 答案 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 Debug.write b(K) a) 1 b) 3 c) 5 d) 0 答案K=0 a(1)=1 b(3)=a(1)=1 K=1 a(2)=3 b(2)=a(2)=3 K=2 a(3)=5 b(1)=a(3)=5 K=3 循环结束 所以b(k)=b(3)=1 3) 下列程序执行后，变量s的值为______。 Dim s As long ,x As Integer s=0:x=1 Do While (x10) s=s+x x=x+2 Loop Debug.write s a) 10 b) 25 c) 50 d) 100 答案Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single) If Shift=6 And Button=2 Then Debug.write Hello End If End Sub 程序运行后，为了在窗体上输出Hello，应在窗体上执行以下_______操作。 a) 同时按下 Shift 键和鼠标左键 b) 同时按下 Shift 键和鼠标右键 c) 同时按下Ctrl、Alt 键和鼠标左键 d) 同时按下 Ctrl、Alt 键和鼠标右键 答案：D 解析：鼠标的keydown事件中，按下左键button=1按下右键button=2。键盘上按下shift键时shift=1，按下ctrl键时shift=2，按下alt键时shift=4，若同时按下多键，shift值相加。 5) 当变量x=2,y=5时，以下程序的输出结果为____。 Do until y5 x=x*y y=y+1 loop debug.write x a) 2 b) 5 c) 10 d) 20 答案 Private Sub cmdlt_click() Dim I,R R=0 For I=1 To 5 Step 1 R=R+I Next I lblResult.text=Str（R） End Sub a) 字符串15 b) 整数15 c) 字符串5 d) 整数5 答案：A 解析： I=1 r=1 I=2 r=3 I=3 r=6 I=4 r=10 I=5 r=15 本题关键在于标签框内将显示什么，标签框内显示的是转换为字符串后的“15” 7) 如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。 x=1 do x=x+3 debug.write x loop until(___) a) x=8 b) x=8 c) x=7 d) x=7 答案x=1+3=4 x=4+3=7 x=7+3=10 也就是说x=7时还能执行循环，x=10时不能执行循环，所以结束条件可设为x7的某一个条件 8) 若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。 If a5 then if b4 then c=a-b else c=b-a End if elseif b3 then c=a*b else c=a mod b End if a) 2 b) -1 c) 1 d) 6 答案 b) “” c) “练