更多"[单选题]下面程序段输出的结果是().Private Sub Comm"的相关试题:
[单选题]第264题 （1.0分）
下面程序段输出的结果是().
Private Sub Command1_Click()
X = 8
For i = 0 To 20 Step 5
X = x + i
Next
Print "X="; x
End Sub
A.X=210
B.X=218
C.X=50
D.X=58
[单选题]题 （1.0分）
下面程序段输出的结果是().
Private Sub Command1_Click()
Dim a(1 To 3, 4) As Integer
Print LBound(a, 1), UBound(a, 1), LBound(a, 2), UBound(a, 2)
End Sub
A.1 3 0 4
B.0 3 1 4
C.1 3 1 4
D.0 3 0 4
[单选题]有如下程序段,该程序段执行完毕后,共循环次数为().
Private Sub Commandl_Click()
For i=1 To 5
For j=1 To i
For k=j To 4
Print"a";
Next k
Print
Next j
Print
Next i
End Sub
A.4
B.5
C.38
D.40
[单选题]设有程序段
Private Sub Commandl Click()
Dim k%
K=5
Do Until k=0
K=k-1
Loop
End Sub
则下面对循环语句描述正确的是().
A.循环体1次也不执行
B.循环体执行1次
C.循环体执行5次
D.循环体执行无限次
[单选题]第193题 （1.0分）
设有程序段
Private Sub Commandl Click()
Dim k%
K=5
Do Until k=0
K=k-1
Loop
End Sub
则下面对循环语句描述正确的是().
A.循环体1次也不执行
B.循环体执行1次
C.循环体执行5次
D.循环体执行无限次
[单选题]下面程序运行后,输出的结果是().Private Sub Command1_Click()X=.ForJ=.To .X=X-1:Y=.For K=.To .X=X+1:Y=Y+.Next K:Next J Print X;Y End Sub
A.. 5
B.2.5
C.2.10
D.1.5
[单选题]第188题 （1.0分）
下面程序运行后,输出的结果是().
Private Sub Command1_Click()
S=0
For K=1 To 3
If K<=1 Then
x=1
ElseIf K<=2 Then
X=2
Elself K<=3 Then
x=3
Else
X=4
End lf
Print x; S=S+x
Next K
Print S
End Sub
A.3 3 3 9
B.3 2 1 6
C.1 1 1 3
D.1 2 3 6
[单选题]第189题 （1.0分）
下面程序运行后,输出的结果是().
Private Sub Command1_Click()
X=0
ForJ=1 To 5
X=X-1.Y=0
For K=1 To 5
X=X+1.Y=Y+1
Next K
Next J
Print X;Y
End Sub
A.1 5
B.20 5
C.20 10
D.10 5
[单选题]第185题 （1.0分）
有如下程序段,该程序段执行完毕后,共循环次数为().
Private Sub Commandl_Click()
For i=1 To 5
For j=1 To i
For k=j To 4
Print"a";
Next k
Print
Next j
Print
Next i
End Sub
A.4
B.5
C.38
D.40
[单选题]以下程序的输出结果是().
Private Sub Command1_Click()
a=100
Do
s=s+a
a=a+1
Loop Until a>100
print a
End Sub
A.100
B.120
C.201
D.101
[单选题]当输入4时,以下程序的输出结果是().
Private Sub Command1_Click()
x=InputBox(x)
If x^2<15 Then y=1/x
If x^2>15 Then y=x^2+1
Print y
End Sub
A.4
B.17
C.18
D.25
