vb复习题(题目+答案).docVIP

Visual Basic 期末复习题库 单项选择题 判断题 填空题 编程题 1) 下列程序运行后，输出的结果为______。 B=1 Do while (b40) b=b*(b+1) Loop Print 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 Print b(K) a) 1 b) 3 c) 5 d) 0 答案 Dim s As long ,x As Integer s=0:x=1 Do While (x10) s=s+x x=x+2 Loop Print 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 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 y5 x=x*y y=y+1 loop print 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.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 答案 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) “练习” d) “示例” 答案：D 10) 我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下， Private Sub Text1_change( ) Text2.text=ucase(Text1.text) End Sub 则在Text1文本框输入“visual basic”，Text2将______。 a) Text2中无内容显示。 b) Text2显示VISUAL BASIC。 c) Text2显示visual basic d) Text1显示visual basic 答案：B 11) 下列程序的运行后s的值是_____。 S=0 For x=99 to 1 Step-2 s=s+x Next x Print s a) 100 b) 500 c) 2500