更多"下列程序段的执行结果为（ ）。
a=5
Fork=1 "的相关试题:
[单项选择]下列程序段的执行结果为 a=5 Fork=1 To 0 a=a + k Next k Print k；a
A. -1 6
B. -1 16
C. 1 5
D. 11 21
[单项选择]下列程序段的执行结果为（ ）。
a=5
Fork=1 To 0
a=a + k
Next k
Print k；a
A. -1 6
B. -1 16
C. 1 5
D. 11 21
[单项选择]下面程序段执行结果为 x=Int(Rnd（ ）+4) Select Case x Case 5 Print"excellent" Case4 Print"good" Case 3 Print"pass" Case Else Print"fail" End Select
A. excellent
B. good
C. pass
D. fall
[单项选择]下面程序段执行结果为
x=Int(Rnd（ ） +4)
Select Case x
Case 5
Print "excellent"
Case 4
Print "good"
Case 3
Print "pass"
Case Else
Print "fail"
End Select
A. excellent
B. good
C. pass
D. fall
[单项选择]设执行以下程序段时依次输入2，4，6，执行结果为
Dim a(4)As Integer
Dim b(4)AS Integer
For k=0 To 2
a(k+1)=Val(InputBox("Enter data："))
b(3 - k) =a(k + 1)
Next k
Print b(k)
A. 2
B. 4
C. 6
D. 0
[单项选择]下列程序段执行结果为( )。
m=5
n=-6
If Not X〉0 Then m=n-3 Else n=m+3
Print m-n;n-m
A. 1，6，3，1，3
B. 1，6，3，6，3
C. 1，6，3，2，3
D. 1，7，3，2，3
[单项选择]下面程序段执行结果为（ ）。
x=Iht(Rnd（ ）+4)
Select Case x
Case 5
Print"excellent"
Case 4
Print"good"
Case 3
Print"paSS"
Case Else
Print "fail"
End Select
A. 0 0
B. 1 1
C. 2 2
D. 1 2
[单项选择]下面程序段执行结果为（ ）。
x=Int(Rnd（ ）+3)
Select Case x
Case 5
Print "excellent"
Case 4
Print "good"
Case 3
Print"pass"
Case Else
Print"fail"
End Select
A. excellent
B. good
C. pass
D. fail
