VB-阅读题及答案.doc

text2.text="x" sub="" 2.="" private="" if="" then="" y="" else="" print="" 3.="" is="">4
Print "分支 2"
Case Else
Print "Else 分支 "
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是      Else分支

4. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
A = 75
If A > 60 Then
 I = 1
ElseIf A > 70 Then
 I = 2
ElseIf A > 80 Then
 I = 3
ElseIf A > 90 Then
 I = 4
End If
Print "I="; I
End Sub
程序运行后，单击命令按钮，窗体上显示的是    1

5. 阅读下列程序，写出运行结果。
   Private Sub Command1_Click()
Dim x As Integer, s As Integer
x = Val(InputBox("请输入一个正整数"))
If x < 5 Then
   s =x * x
Else
            s = x + x
End If
Text1.Text = Str(s)
End Sub
程序运行时连续三次单击Command1，且设输入的数是5，2和4时，分别写出文本框text1.text的值。 10 4 16

6. 阅读程序
Private Sub Form_Click()
  Dim strC As String*1
  strC=InputBox("请输入数据")
  Select Case strC
     Case "a" To "z","A" To quot;Z"
        Form1.Print strC+" Is Alpha Character"
     Case "0" To "9"
        Form1.Print strC+" Is Numeral Character"
     Case Else
        Form1Print strC+" Is Other Character"
   End Select
End Sub
设输入的数据为“W”时，单击窗体后，窗体上显示是什么？ W Is Alpha Character

7. 阅读程序
Private Sub Form_Click()
  Dim strC As String*1
  strC=InputBox("请输入数据")
  Select Case strC
     Case "a&quot; To "z","A" To "Z"
        Form1.Print strC+" Is Alpha Character"
     Case "0" To "9"
        Form1.Print strC+" Is Numeral Character"
     Case Else
        Form1.Print strC+" Is Other Character"
   End Select
End Sub
设输入的数据为“8”时，单击窗体后，窗体上显示是什么？ 8 Is Numeral Character

8. 阅读程序
Private Sub Form_Click()
  Dim strC As String*1
  strC=InputBox("请输入数据")
  Select Case strC
     Case "a" To "z","A" To "Z"
        Form1.Print strC+" Is Alpha Character"
     Case "0" To "9"
        Form1.Print strC+" Is Numeral Character"
     Case Else
        Form1.Print strC+" Is Other Character"
   End Select
End Sub
设输入的数据为“?”时，单击窗体后，窗体上显示是什么？ ? Is Other Character

9. 阅读程序
Private Sub Form_Click()
A=1：I=0
SELECT  CASE  A*2
CASE 1
&nbsp;  A=A+1
CASE 2
   A=A+2
CASE ELSE
   A=A+3
END SELECT
Print A
End Sub
单击窗体后，窗体上显示是什么？  3

10. 执行如下程序段，输出结果为：
x=2
If x>=3 Then A=3
If x>=2 Then A=2
If x>=1 Then A=1
Print A
1

11. 下列程序段的执行结果为
A=1：B=0
Select Case A
Case 1
Select Case B
Case 0
Print "**O**"
Case 1
Print "**1**"
End Select
Case 2
Print "**2**"
End Select

**O**

12. 下列程序段的执行结果为
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Int(Rnd() + 1)
Select Case a
Case 1
  Print "****"
Case 2
  Print "####"
Case Else
  Print "@@@@"
End Select
End Sub
****
13. 下列程序段的执行结果为
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Sgn(-10)
Select Case a
Case  1
  Print "****"
Case  -1
  Print "quot;
Case Else
  Print "@@@@"
End Select
End Sub

####

14. 下列程序段的执行结果为
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Sgn(-10)
Select Case a
Case  1
  Print "****"
Case  2
  Print "####"
Case Else
  Print "@@@@"
End Select
End Sub

@@@@

15. 下列程序段的执行结果为
Private Sub Command1_Click()
Dim a As String, b As Integer, c As String
c = 0
a = InputBox("输入第1个数据：")
b = InputBox("输入第2个数据：")
If a > b Then
c = Int(-11.99) + Int(-100 Mod 7) * Sgn(Rnd() * 100)
Else
 c = 3 ^ 3 \ 3 * 3
End If
Print c
End Sub
设输入的数据分别为“-3”和“-4”时，单击后，窗体上显示是什么？ -14

16. 下列程序段的执行结果为
Private Sub Command1_Click()
Dim a As String, b As Integer, c As String
c = 0
a = InputBox("输入第1个数据：")
b = InputBox("输入第2个数据：")
If a > b Then
c = Int(-11.99) + Int(-100 Mod 7) * Sgn(Rnd() * 100)
Else
 c = 3 ^ 3 \ 3 * 3
End If
Print c
End Sub
设输入的数据分别为“5”和“7”时，单击后，窗体上显示是什么？ 3

17. 阅读程序
Private Sub Command1_Click()
Dim a As String, b As Integer, c As String
c = 0
a = InputBox("输入第1个数据：")
b = InputBox("输入第2个数据：")
If a > b Then
c = Int(-9.45) + Int(-100 Mod 3) * Sgn(Rnd() * -100)
Else
 c = 3 ^ 3 \ 3 * 3 + a ^ 3
End If
Print c
End Sub
输入的数据分别为“5”和“7”时，单击后，窗体上显示是什么？ 128

18. 阅读程序
Private Sub Command1_Click()
Dim a As String, b As Integer, c As String
c = 0
a = InputBox("输入第1个数据：")
b = InputBox("输入第2个数据：")
If a > b Then
c = Int(-9.45) + Int(-100 Mod 3) * Sgn(Rnd() * -100)
Else
 c = 3 ^ 3 \ 3 * 3 + a ^ 3
End If
Print c
End Sub设输入的数据分别为“7”和“5”时，单击后，窗体上显示是什么？ -9

19. 阅读程序
Private Sub Command1_Click()
Dim x As Single, y As Single, s As String
s = "1234"
x = Right(s, 1)
Select Case x
Case Is <= 1="" 2="" 3="" y="4" x="" case="" to="" mod="" is=""> 3
 y = (5 * x + 1) \ (6 * x - 8)
End Select
Print y
End Sub
单击后，窗体上显示是什么？ 1

20. 阅读程序
Private Sub Command1_Click()
Dim x As Single, y As Single, s As String
s = "1234"
x = left(s, 1)
Select Case x
Case Is <= 1="" 2="" 3="" y="4" x="" case="" to="" mod=&quot;" is=""> 3
 y = (5 * x + 1) \ (6 * x - 8)
End Select
Print y
End Sub
单击后，窗体上显示是什么？ 0

21. 阅读下列程序，写出运行结果。
   Private Sub Command1_Click()
Dim x As Integer, s As Integer
x = Val(InputBox("请输入一个正整数"))
If x > 5 Then
   s =sqr(x)
Else
            s =asb(x) + x
End If
Text1.Text = Str(s)
End Sub
程序运行时连续三次单击Command1，且设输入的数是16，5和-1时，分别写出文本框text1.text的值。 4 10 0

22. 阅读程序
Private Sub Command1_Click()
Dim x, a, b, c As Integer
Dim b1, b2 As Boolean
x = 10: a = 1: b = 2: b1 = -5: b2 = 0
If a < b Then
If b <> 3 Then
 If Not b1 Then
  x = -10
  Else
   If b2 Then x = -30
    x = -50
    End If
   End If
End If
Print x
End Sub
单击命令按钮后，窗体上显示是什么？ -10
23. 阅读程序
Private Sub Command1_Click()
Dim x, a, b c As Integer
Dim b1, b2 As Boolean
x = 10: a = 5: b = 3: b1 = 0: b2 = -1
If a < b Then
If b <> 3 Then
 If Not b1 Then
  x = -10
  Else
   If b2 Then x = -30
    x = -50
    End If
   End If
End If
Print x
End Sub
单击命令按钮后，窗体上显示是什么？ 10

24. 阅读程序
Private Sub Command1_Click()
Dim s As String
Dim n As Integer
s = Left(InputBox("请输入字符串"), 1)
If s >= "c" Then
Print Asc(s) + 1
Else
 Print Asc(s) - 1
 End If
End Sub
单击命令按钮输入abcd后，窗体上显示是什么？96

25. 阅读程序
Private Sub Command1_Click()
Dim s As String
Dim n As Integer
s = Right(InputBox("请输入字符串"), 1)
If s >= "c" Then
Print Asc(s) + 1
Else
Print Asc(s) - 1
End If
End Sub
单击命令按钮输入abcd后，窗体上显示是什么？101

26. 阅读程序
Private Sub Command1_Click()
Dim m, n As Integer
m = InputBox(&quot;请输入m的值")
If m / 2 = Int(m / 2) Then
n = m
Else
n = 1
End If
Print n
End Sub
单击命令按钮输入6后，窗体上显示是什么？6

27. 阅读程序
Private Sub Command1_Click()
Dim m, n As Integer
m = InputBox("请输入m的值")
If m / 2 = Int(m / 2) Then
n = m
Else
n = 1
End If
Print n
End Sub
单击命令按钮输入5后，窗体上显示是什么？1

28. 执行下面的语句后显示的结果是
Private Sub Command1_Click()
Dim m, n As Integer
m = InputBox("请输入m的值")
If m / 2 = Int(m / 2) Then
m = n + 5
Else
m = Sqr(m)
End If
If n Then Print n Else Print n - 1
End Sub
单击命令按钮输入5后，窗体上显示是什么？-1

29. 阅读程序
Private Sub Command1_Click()
Dim y As Integer
y = 10
Select Case y
Case 1, 3, Is > 6
 Print "ok"
Case Else
 Print "stop"
End Select
End Sub
单击命令按钮后，窗体上显示是什么？ok
30. 阅读程序
Private Sub Command1_Click()
Dim x, i As Integer
i = InputBox("")
If i = 1 Then x = i
&nbsp;    If i <= 4 Then
       x = x + 1
Else
       x = x + 2
    End If
Print x
End Sub
单击命令按钮输入5后，窗体上显示是什么？2

31. 阅读程序
Private Sub Command1_Click()
Dim x, i As Integer
i = InputBox("")
If i = 1 Then x = i
&nbsp;    If i <= 4 Then
       x = x + 1
Else
       x = x + 2
    End If
Print x
End Sub
单击命令按钮输入1后，窗体上显示是什么？2

32. 阅读程序
Private Sub Command1_Click()
Dim x, i As Integer
i = InputBox("")
If i = 1 Then x = i
&nbsp;    If i <= 2="" 3="" 4="" then="" x="" i="" else="" end="" if="" print="" sub="" 33.="" private="" dim="" y="x" as="" integer="" select="" case="" is="">= 10, Is <= 3="" 9="" 10="" -10="" y="x" case="" to="" end="" select="" print="" sub="" 34.="" private=quot;" dim="" as="" integer="" x="" is="">= 10, Is <= 10="" 20="" -10="" y="x" case="" to="" end="" select="" print="" sub="" 35.="&quot; private="" dim="" as="" integer="" x="" is="">= 10
y = x
Case -10 To 10
y = -x
End Select
Print y
End Sub
单击命令按钮输入20后，窗体上显示是什么？400
36. 阅读程序
Private Sub Command1_Click()
Dim x, y As Integer
x = InputBox("")
Select Case sqr(x)
Case 1, 3,10,20
 y = x * x
Case Is >= 10
y = x
Case -10 To 10
y = -x
End Select
Print y
End Sub
单击命令按钮输入9后，窗体上显示是什么？81

37. 下列程序段的执行结果为
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Int(Rnd()*10 + 1)
Select Case a
Case 0
  Print "****"
Case is<10 print="" case="" else="" end="" select="" sub="" 38.="" private="" dim="" a="" as="" b="InputBox("输入第2个数据：")" c="" string=&quot;" if="">b Then
c = abs(a)+sqr(b)
Else
 c = 3 ^ 3 \ 3 * 3
End If
Print c
End Sub
设输入的数据分别为“5”和“6”时，单击后，窗体上显示是什么？ 3
39. 下列程序段的执行结果为
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入第1个数据：")
b = InputBox("输入第2个数据：")
If a > b Then
If a then
c = abs(a)+sqr(b)
end if
Else
 c = a*b mod 3
End If
Print c
End Sub
设输入的数据分别为“0”和“5”时，单击后，窗体上显示是什么？ 0

40. 下列程序段的执行结果为
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入第1个数据：")
b InputBox("输入第2个数据：")
If a > b Then
If Not a Then
c = Abs(a) + Sqr(b)
Else
c = Abs(a) - Sqr(b)
End If
Else
 If Not a Then
  c = a * b Mod 3
  Else
  c = a ^ 3 + 4
End If
End If
Print c
End Sub
设输入的数据分别为“9”和“3”时，单击后，窗体上显示是什么？ 11

1. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do Until x=-1
a = InputBox(“请输入A的值”)
a = Val(a)
b = InputBox(“请输入B的值”)
b = Val(b)
x = InputBox(“请输入x的值”)
x = Val(x)
a = a+b+x
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 。2
2. 阅读下面的程序段：
For  i=1 To 3
For &nbsp;j=1 To i
For k=j To 3
a=a+1
Next k
Next j
Next i
Print a
执行上面的三重循环后，a 的值为 。
14
3. 在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：
Private Sub Form_Load()
Dim sum as integer
text1.text=""
For  i=1 To 10
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是 。55
4. 在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Print x,n
End Sub
程序运行后，单击命令按钮，显示为    72  2

5. 阅读下面的程序段：
x=2
For i=1 To 5
x=x+i
Print  x,
Next
程序运行后，显示   3 5 8 12 17

6. 阅读下面的程序段：
x=0
For i=1 to 2
 For j=1 to 3
x=x+j
Next j
Next i
Print x
程序运行后，显示    12

7. 阅读下面的程序段：
Dim i As Integer, x As Integer
  For i = 1 To  6
     If i = 1 Then x = i
     If i <= 1="" 2="&quot; 4="" 9="" 10="" 11="" then="" x="1" else="" end="" if="" next="" i="" print="" 8.="" private="" sub="" c="ABCD" for="" n="1" to="" d="" cd="" bcd="" abcd="" 9.="" step="" 10.="" y="" do="" until="">4
X=X*Y
Y=Y+1
Loop
Print X
程序运行后，显示                      4
11. 阅读下面的程序段：
x=0
For i=1 to 2
For j=1 to 3
x=x+j
Next j
Next i
Print x
程序运行后，显示                   12
12. 阅读下面的程序段：
Private Sub Form_Click()
Dim n1 as integer,n2 as integer,n3 as integer
n1=1:n2=1
Do
 N3=n1+n2
 Print n3,
N1=n2:n2=n3
Loop  Until n3>=5
 End  Sub
程序运行后，显示                      2  3  5
13. 阅读下面的程序段：
   X=1
Y=4
Do Until Y>4
X=X*Y^2
Y=Y+1
Loop
Print X
程序运行后，显示       &nbsp;                  16
14. 阅读下面的程序段：
Private Sub Command1_Click( )
For i = 1 T0 3
For j = 0 TO i
S = S + 1
Next j,i
Print s
End Sub
程序运行后，显示                             &nbsp;    9
15. 阅读下面的程序段：
Private Sub Command1_Click( )
x =1:y=1
For i＝1 T0 3
x = x + y : y = y + x
Next i
print x,y
End Sub
程序运行后，显示                                    13  21
16. 阅读下面的程序段：
For a =1 TO 5
For b = 1 TO 10
a=a +1
b=b+1
Next b
Next a
Print b
End Sub
程序运行后，显示                             11
17. 在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do While x<50
x=x^2+(x mod 2)+1
n=n+5
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为           20   123

18. 下面语句运行后的输出结果是                         &nbsp;16
Private Sub Command1_Click( )
x=2
do While x < 10
x =x + l
x = x * x
loop
Print x
End Sub
19. 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
Text1.Text=Strx)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是           27  3
20. 下列程序段的输出结果为＿＿＿＿＿＿＿＿。                            0
Private Sub Command1_Click( )
Dim S as integer, N as integer
i=1:sum=0
Do  While i<=100
 sum=sum+i
 i=i+1
Loop
Print Str(S)
End  Sub
21. 下列程序段的输出结果为＿＿＿＿＿＿＿＿。          37  74  111  148  185
Private Sub Command1_Click( ) 　　
　　　 a=””
      For n=1 To 200
         If n Mod 37=0 Then
           a=a &Str(n)&” ”
         End If
      Next
      Text1.Text=a
End Sub
22. 、设有如下程序段，运行后，x的值是：17
x=2
For i=1 To 5
x=x+i
Next
23. 执行如下程序段，输出结果为0
a=0
For i=1 to 5
a=a*i
Next i
Print a

24. 执行如下程序段，输出结果为：12
x=0
For i=1 to 2
 For j=1 to 3
x=x+j
Next j
Next i
Print x
25. 命令按钮的Name属性为Command1，编写如下代码，则在程序运行时，单击该命令按钮，输出结果为：1 2 6
Private Sub Command1_Click（）
For i=1 to 3
x=1
For j=1 to i
x=x*j
Next j
Print j；
Next i

End Sub
26. 程序
p = InputBox("请输入字符串：")
For i = Len(p) To 2 Step -2
Print Left(p, i)
Next i
End Sub
如果输入：ABCDEFG ，则结果：
ABCDEFG
ABCDE
ABC

27. 程序
p = InputBox("请输入字符串：")
For i = Len(p) To 2 Step -2
Print right(p, i)
Next i
End Sub
如果输入：ABCDEFG ，则结果：
ABCDEFG
CDEFG
EFG

28. 程序3：
Private Sub Form_Click()
    Dim i As Integer ,j As Integer
    Dim star As String
    star="#"
    For i=1 To 6
      For j=i To 6
        Form1.Print star；
      Next j
      Form1.Print
     Next i
End Sub
写出程序运行后，单击窗体后，Form1上输出