更多"[单选题]下面程序运行后,输出的结果是().Private Sub C"的相关试题:
[单选题]下面程序运行后,输出的结果是().Private Sub Command1_Click() K=.A=.While K<1.K=K+.A=A+K Wend Print A End Sub
A.2
B.10
C.20
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
[单选题]题 （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
[单选题]题 （1.0分）
有如下程序,运行后单击按钮输出的结果是().
Private Sub Command1_Click()
M=5.n=4
Call A(m,n)
Print m,n
End Sub
Private Sub A(m,n)
S=m
M=s/n
N=s Mod n
End Sub
A.1.25 1
B.5 4
C.1 4
D.5 1
[单选题]题 （1.0分）
有如下程序,运行后输出的是().
Private Sub Command1_Click()
Dim aj(1 To 10)
For j=6 To 10
Aj(j)=j*2
Next j
Print aj(1)+aj(j)
End Sub
A.5
B.20
C.22
D.显示出错信息
[单选题]下面程序段输出的结果是().
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
[单选题]第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()
Dim s1 As String ,s2 AS Integer
S1 = "Hello-World,2003"
S2 = Len(s1) + InStr(1,S1,"2")
MsgBOX s2
End Sub
A.Hello-World
B.2003
C.16
D.29
[单选题]第211题 （1.0分）
下列程序运行后,信息框显示的内容是().
Private Sub Commandl_Click()
Dim s1 As String ,s2 AS Integer
S1 = "Hello-World,2003"
S2 = Len(s1) + InStr(1,S1,"2")
MsgBOX s2
End Sub
A.Hello-World
B.2003
C.16
D.29
[单选题]以下程序的输出结果是().
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
