更多"[单选题]以下程序的输出结果是(). Private Sub Com"的相关试题:
[单选题]当输入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
[单选题]第220题 （1.0分）
以下程序的输出结果是().
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
[单选题]第244题 （1.0分）
当输入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
[单选题]下面程序段输出的结果是().
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
[单选题]下面程序运行后,输出的结果是().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
[单选题]题 （1.0分）
程序的输出结果是().
OPtion Base1
Private Sub Command1_Click()
Dim Arr1(12),Arr2(4) As Integer
For i=1 To 12
Arr1(i)=I
Next i
For j=1 To 4
Arr2(j)=Arr1(3*j)
Next j
For k=1 To 4
S=s+Arr2(k)
Next k
Print s
End Sub
A.10
B.18
C.30
D.78
[单选题]第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
[单选题]题 （1.0分）
下列程序运行后,输出的结果是().
Private Sub Command1_Click()
Sum=0
For k=3 To 5
Call Multi(k,s)
Sum=Sum+S
Next k
Print Sum
End Sub
Private Sub Multi(k,s)
S=1
For j=l To k
S=8*j
Next j
End Sub
A.9
B.120
C.96
D.30
[单选题]第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
