2017年最新vb末复习题(有答案).docVIP

PAGE  PAGE 17 Visual Basic 复习题库 一、单项选择题 1) 下列程序运行后，输出的结果为______。 B=1 Do while (b40) 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 (x10) s=s+x x=x+2 Loop Print s a) 10 b) 25 c) 50 d) 100 答案：B 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 答案：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 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 答案：A 11) 下列程序的运行后s的值是_____。 S=0 For x=99 to 1 Step-2 s=s+x Next x Print s a) 100 b) 500 c) 2500 d) 5000 答案：C 12) 下列程序的执行结果是____。 K=0 For I=1 To 3 a=I^I^K print a; Next I a) 1 1 1 b) 1 2 3 c) 0 0 0 d) 1 4 9 答案：A 13) 下列程序的执行结果是_____。 Dim a(5) As String Dim b As Integer Dim I As Integer For I =0 To 5 a(I)=I+1 Print a(I) Next I a) 123456 b) 6 c) 654321 d) 0 答案：A 14) 下列程序的执行结果为_____。 Dim intsum As Integer Dim I As Integer intsum=0 For I=20.2 To 5 Step -4.7 intsum=intsum +I Next I Print intsum a) 150 b) 200 c) 50