Question

VB题目 都知道答案不知道为什么?

1 以下正确的语句是(b)
(A) If a>b Then t=a; a=b; b=t (B) If a>b Then t=a: a=b: b=t
(C) If a>b Then t=a a=b b=t (D) If a>b Then t=a, a=b, b=t
2 语句Print IIf(2,3,4)的输出结果为(c)
(A) 0 (B) 2 (C) 3 (D) 4
4 以下是窗体的Click事件过程及程序代码：
Private Sub Form_Click(b)
Dim a As Single, b As Single, c As Single, m As Single
a=Val(InputBox(“输入第1个数：”,”输入数据”)
b=Val(InputBox(“输入第2个数：”，”输入数据”)
c=Val(InputBox(“输入第3个数：”，”输入数据”)
m=a
if b>m Then m=b
if c>m Then m=c
Print m
End Sub
在程序运行过程中，单击窗体时，在3次出现的输入对话框中分别输入-10，20,-30后，程序的输出结果为()
(A) –10 (B) 20 (C) –30 (D) 0
5 以下是窗体的Click事件过程及其程序代码：
Private Sub Form_Click(a)
Dim x As Integer, a As Integer , b As Integer, c As Integer
Dim b1 As Boolean, 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
在程序运行过程中，单击窗体时，程序的输出结果是()
(A) –50 (B) –30 (C) –10 (D) 10
7 以下是窗体的Click事件过程及其程序代码：
Private Sub Fot_Click()
Dim y As Integer,l As Integer,s As String
s=”Between 2050 And 3000”
s=Val(Mid(s,InStr(s,”2”),4))
If y Mod 400=0 Or (y Mod 100=0 And y Mod 4<>0) Then
L=1
Else
l=-1
End If
Print l
End Sub
在程序运行过程中，单击窗体时，程序的输出结果是()
(A) –1 (B) 1 (C) 0 (D) Null
8 以下窗体的Click事件过程及其程序代码：
Private Sub Form_Click(d)
Dim a As String, b As String, c As Integer
c=0
a=InputBox(“输入第1个数据：”)
b=InputBox(“输入第2个数据：”)
if a>b Then
c=Fix(-11.99)+Int(-100 Mod 7)*Sgn(Rnd*100)
else
c=3^3\3*3/3 Mod 3<3
End If
Print c
End Sub
在程序运行过程中，单击窗体时，分别在两次出项的输入对话框中输入-3和-4后，程序的输出结果为()
(A) 0 (B) 1 (C) –1 (D) –13
11 以下是命令按钮Command1的Click事件过程：
Private Sub Command1_Click(c)
Dim a As Integer, b As Integer, c As integer
a=2:b=1:c=0
If a Then
Print a>c
Else
Print a<c
End If
End Sub
在程序运行过程中，单击命令按钮Command1时，在出现的输入对话框中输入-5，按Enter键后，程序的输出结果是()
(A) 出错 (B)-1 (C) True (D) False
13 以下程序段的输出结果是(b)
Dim a As Integer, b As Integer, c As Integer
a=2:b=1
If a Then if b Then if c Then Print 1 Else Print 2 Else Print 3
(A) 出错 (B) 2 (C) 3 (D) 1

Answer 1

1.then后只能跟一个语句，只有B符合。
2.Iif后的参数，第一个为ture,就选第二个，每个为false，就选第三个，而第一个是2，为true，（只有0才是false），故选第二个数。故选C。
4.这段程序是求输入的三个数中最大的数，因为20最大，故选B。
5.Private Sub Form_Click(a)
Dim x As Integer, a As Integer , b As Integer, c As Integer
Dim b1 As Boolean, b2 As Boolean
x=10:a=1:b=2:b1=-5:b2=0
If a<b Then 'a=1:b=2,判断正确，往下走。
If b<>3 Then 'b=2,判断正确，往下走。
If Not b1 Then 'b1=-5，为true，因此Not b1为false，故跳到最近的Else
X=-10
Else'跳到这里，继续往下走
If b2 Then x=-30 'b2=0，为false，故本行不执行，继续往下走。
x=-50 '令x=-50
End if
End if
End if
Print x '打印出x
End Sub
所以答案选A.
7.因为y从一开始就默认是0，故选B
8.因为"-3"<"-4"(这是字符串比较),所以执行c=3^3\3*3/3 Mod 3<3，而3^3\3*3/3 Mod 3<3的运算顺序是：
3^3\3*3/3 Mod 3<3
27\3*3/3 Mod 3<3
27\9/3 Mod 3<3
27\3 Mod 3<3
9 Mod 3<3
0<3
结果为true，而此时c=0,故c=true的值，c=-1，答案选C
11.显然a>c是正确的，故打印出来的是a>c的值，为true.
13.因为a=2:b=1,所以If a Then (if b Then <if c Then Print 1> Else Print 2) Else Print 3先执行小括号内的，在小括号内，又因为c=0(没赋值，默认为0)，故执行else，即执行print 2,故选 B.

Answer 2

太长了。不愿意看