以下程序段中,执行结果与其他3个选项不同的是
A: Dim y As Integer
B: y = 11
C: Select Case y
D: Case 15 To 5
E: Print "Executed"
F: End Select
G: Dim y As Integer
H: y = 10
I: Select Case y
J: Case Is > 10, Is < 10
K: Print " Executed "
L: End Select
M: Dim y As Integer
N: y = 10
O: Select Case y
P: Case Is > 15, 1, 5 To 8
Q: Print " Executed "
R: End Select
S: Dim y As Integer
T: y = 10
U: Select Case y
V: Case 1, 3, Is > 6
W: Print " Executed "
X: End Select
A: Dim y As Integer
B: y = 11
C: Select Case y
D: Case 15 To 5
E: Print "Executed"
F: End Select
G: Dim y As Integer
H: y = 10
I: Select Case y
J: Case Is > 10, Is < 10
K: Print " Executed "
L: End Select
M: Dim y As Integer
N: y = 10
O: Select Case y
P: Case Is > 15, 1, 5 To 8
Q: Print " Executed "
R: End Select
S: Dim y As Integer
T: y = 10
U: Select Case y
V: Case 1, 3, Is > 6
W: Print " Executed "
X: End Select
举一反三
- 编写如下程序: Private Sub Command1_Click; Dim m As Integer, n As Integer m = 2 : n = 1 Select Case m Case 1 Select Case n Case 1 Print "AAA" Case 2 Print "BBB" End Select Case 2 Print "CCC" End Select End Sub 程序运行后,单击命令按钮Command1,输出结果为 A: BBB B: CCC C: AAA D: 1
- 假设X的值是5,则执行以下语句时,可得到的输出结果是ABCDEF的Select Case语句是 ( ) A: Select Case X Case 10 To 1 Print“ABCDEF” End Select B: Select Case X Case Is>15,Is<5 Print"ABCDEF" End Select C: Selecl Case K Case Is>5,1,3,To 10 Print"ABCDEF" End Select D: Select Case X Case 1,3,Is>5 Print"ABCDEF" End Select
- 假定x的值为5,则在执行以下语句时,其输出结果为"Result"的正确表示Select Case语句是( ) A: Select Case x Case 1 To 10 Print "Result" End Select B: Select Case x Case Is>5,Is<5 Print "Result" End Select C: Select Case x Case Is>5,1,3 To 4 Print "Result" End Select D: Select Case x Case 1,3,Is>5 Print "Result" End Select
- 以下语句正确的是:______。 A: Select Case a B: Case C: b=1 D: Case “B” E: b=2 F: Case Else G: b=3 H: End Select I: Select Case a J: Case “A” K: b=1 L: Case “B” M: b=2 N: Case Default O: b=3 P: End Select Q: Switch a R: Case “A” S: b=1 T: Case “B” U: b=2 V: Case Else W: b=3 X: End Switch Y: Switch a Z: Case “A” [: b=1 \: Case “B” ]: b=2 ^: Case Default _: b=3 `: End Select
- 下列程序段的运行结果为( )。 Dim x x = Int(Rnd) + 5 Select Case x Case 5 Print "优秀" Case 4 Print "良好" Case 3 Print "及格" Case Else Print "不及格" End Select