VB程序选择题
- 格式：doc
- 大小：146.00 KB
- 文档页数：6
VB程序选择题
1 1、程序运行后，在Text1和Text2中分别输入123和321，然后单击命令按钮，则输出结果为(C )。
Private Sub Command1_Click()
a = Text1.Text + Text2.Text
Print a
End Sub
Private Sub Form_Load()
Text1 Text = "" : Text2 Text = ""
End Sub
A) 444 B) 321123 C) 123321 D) 空
2、下列程序的执行结果是( C )。
Dim A, B, C, D, E
A = 20 : B = 80 : C = 70 : D =
30
E = A + B > 160 Or (B * C > 200 And Not D > 60)
Print E
A) 70 B) 80 C) True D) False
3、若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为( A )。
If a > 5 Then
If b < 4 Then c = a - b Else c = b - a
Else
If b > 3 Then c = a * b Else c = a Mod b
End If
A) 2 B) - 1 C) 1 D) 6
4、运行程序，若输入1，输出结果为( C )。
Private Sub Form_Click()
x = -1
t = InputBox(“请输入一个数：”)
Select Case t
Case Is > 0
Y = x + 1
Case Is = 0
Y = x + 2
Case Else
Y = x + 3
End Select
Print x;Y
End Sub
A) 1 4 B) 1 3 C) -1 0 D) -1 1
5、下列程序段的执行结果为( C )。
X = 5 : Y = -20
If Not x > 0 Then
x = y - 3
Else
y = x + 3
Print x - y; y - x
End If
A) 3 -3 B) 5 -8 C) -3 3 D) 25 -25
6、执行下列程序片段结果是( D )。
a = 5 : b = 9 : c = 14
a = a + b : c = c - b
If a - c > b - c Then a = b + c If a - b > b - c Then b = a - c
Print a,b,c
A) 5 9 14 B) 23 9 14 C) 5 -9 9 D) 14 9
5
7、下列程序的输入值为5时，其运行结果为( C )。
Dim a as Integer
A = InputBox("请输入a的值")
Select Case A
Case 1 To 4
Print "D"
Case 5 To 10
Print "C"
Case 11 To 14
Print "B"
Case Else
Print "A"
End Select
A) A B) B C) C D) D
8、下列程序的执行结果为( A )。
A = 100 : b = 50
If a < b Then a = a - b Else b = b + a
Print a, b
A) 100 150 B) 50 50 C) 150 50 D) 150 150
9、 以下错误的For„„Next结构是( D )。
A) For k = 1 To 10 B) For x=10 To 3 Step -3
„„ „„
Next k Next x
C) For x = 1 To 10 D) For x=3 To 10 Step -3
„„ „„
Next x Next x
10、下列能正常结束循环的是( c )。
A) i = 5 B) i = 1
Do Do
i = i + 1 i = i + 2
Loop Until i < 0 Loop Until i = 10
C) i = 10 D) i = 6
Do Do
i = i + 1 i = i - 2
Loop Until i > 0 Loop Until i = 1
11、程序的执行结果为( D)。
Dim k As Integer
n = 5 : m = 1 : k = 1
Do Until k > n
m = m * 2
k = k + 1
Loop
Print m
A) 26 B) 28 C) 30 D) 32
12、如下事件过程运行结果是(C )。
Private Sub Form_Load()
Text1.Text = "" : Text1.SetFocus
For i = 1 To 10
Sum = Sum + i VB程序选择题
2 Next i
Text1.Text = Sum
End Sub
A) 文本框Text1中输出55 B) 在文本框Text1中输出0 C) 出错 D)文本框Text1中输出不定值
13、下列程序段的运行结果是( B )。
Private Sub Command1_Click()
Dim n as Integer
i = 21 : n = 3
Do While I > n
i = i - n
Loop
Print I
End Sub
A) 21 B) 3 C) 4 D) 24
14、程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、 -1，则输出结果为( C )。
Prevate Sub Command1_Click()
x = 0
Do Until x = - 1
a = Val(InputBox(“请输入A的值”))
b = Val(InputBox(“请输入B的值”))
x = Val(InputBox(“请输入x的值”))
a = a + b + x
Loop
Print a
End Sub
A) 4 B) 3 C) 2 D) 1
15、下列程序的执行结果是( D )。
M1 = 1 : m2 = 1
Do While m2 <> 6
m1 = m1 * m2
m2 = m2 + 1
Loop
Print m1
A) 1 B) 2 C) 110 D) 120
16、下列程序段的执行时，输出结果是( C )。
For a = 0 To 1
For b = 1 To 2
For c = 1 To 3
I = I + 1
Next c
Next b
Next a
Print I
A) 10 B) 11 C) 12 D) 13
17、执行下面的程序段后，s的值为( A )。
S = 5
For I = 2.6 To 4.9 Step 2
S = S + 1
Next I
A) 7 B) 9.9 C) 7.6 D) 8
18、下面程序段的输出结果是( D )。 P = 0 : s = 0
Do
p = p + 2
s = s + p
Loop While p < 11
Print s
A) 39 B) 40 C) 41 D) 42
19、程序运行后，单击命令按钮，输出结果是( D)。
Private Sub Command1_Click()
For I = 1 To 4
x = 4
For j = 1 To 3
x = 3
For k = 1 To 2
x = x + 6
Next k
Next j
Next I
Print x
End Sub
A) 9 B) 13 C) 14 D) 15
20、单击窗体，程序的运行结果是( D )。
Private Sub Form_Click()
Text1.Text = "" : Text1.SetFocus
For I = 1 To 10
Sum = Sum + I
Next I
Text1.Text = Sum
End Sub
A) 0 B) 35 C) 45 D) 55
21、程序运行后，在文本框中输入“789”，然后双击列表框中的"456"，则输出结果为( D )。
Private Sub Form_Load ()
List1.AddItem"357" : List1.AddItem"246" :
List1.AddItem"123" : Listl.AddItem"456"
Text1.Text = ""
End Sub
Private Sub List1_ DblClick ( )
a = List1.Text
Print a + Text1.Text
End Sub
A) 123456 B) 357246 C) 789456 D) 456789
22、下列程序的执行结果为( D )。
Dim intsum As Integer
Dim I As Integer
