更多"下面程序运行后的输出结果是______。Private Sub Com"的相关试题:
[单项选择]下面程序运行后的输出结果是
Private Sub Command1_Click（ ）
For j=1 To 10
If j Mod 3＜＞0 Then a=a+j/3
Next
Print a
End Sub
A. 20
B. 10
C. 3
D. 9
[单项选择]下面程序运行后的输出结果是______。
Private Sub Command1_ Click ( )
for j = 1 To 10
if j Mod 3 ＜＞ 0 then a =a+j/3
Next j
Print a
End Sub
A. 20
B. 10
C. 3
D. 9
[单项选择]下列程序运行后的输出结果是
Private Sub Command1_Click（ ）
For k=3 To 1 Step-1
x=String(k，"*")
Print x
Next
End Sub
[单项选择]下面程序段，运行后的结果是( )。
Private Sub Command1_Click（ ）
Dim b%(1 To 4),i%,t#
For i=1 To 4
b(i)=i
Next
t=Tof(b))
Print“t=”：t，
End Sub
Function Tof(a（ ） As Integer)
Dim t%，i%
t=1
For i=2 To UBound(a)
t=t a(i)
Next
Tof=t
End Function
A. t=18
B. t=24
C. t=30
D. t=32
[单项选择]下列程序运行后在立即窗口输出的结果是( )。
Private Sub Form_Click（ ）
x="a":y="b"
z=1:u=2
Debug.Printx;y,z;u
Debug.Printz;x,y;u
End Sub
A. a b 1 2
B. a b 1 2
C. a b 1 2
D. a b 1 2
[单项选择]下面程序的输出结果是( )
Private Sub Command1_Click（ ）
Ch$="ABCDEF"
proc ch:Print ch
End Sub
Private Sub proc(ch As String)
s=" "
For k=Len(ch)To 1 Step-1
s=s＆Mid(ch,k,1)
Next k
ch=s
End Sub
A. ABCDEF
B. FEDCBA
C. A
D. F
[单项选择]下面程序运行后输出的是( )。
Private Sub Form_Click（ ）
for i=1 to 4
x=1
for i=1 to 3
x=3
for k=1 to 2
x=x+6
next k
next j
next i
print x
End Sub
A. 7
B. 15
C. 157
D. 538
[单项选择]以下程序运行后输出的结果是______。
Private Sub Form _Click（ ）
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
A. 10
B. 15
C. 80
D. 100
[单项选择]下列事件过程运行后输出结果是
Private Sub Command1_Click（ ）
Print Formats(123，456，"###，##%")
End Sub
A. 123.46%
B. 123.45%
C. 123.456%
D. 12345.6%
[单项选择]下列事件过程运行后输出结果是
Private Sub Command1_Click（ ）
Print Format$(123,456，"###,##%")
End Sub
A. 123.46%
B. 123.45%
C. 123.456%
D. 12345.6%
[单项选择]下面程序的输出结果是( )。
Private Sub Command1_Click（ ）
ch$="ABCDEF"
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
s=""
For k=Len(ch)To 1 Step-1
s=s & Mid(ch,k,1)
Next k
ch=s
End Sub
A. ABCDEF B) FEDCBA C) A D) F
[单项选择]下面程序运行后输出是 ______。
Private Sub Form_Click（ ）
for i=1 to 4
x=1
for j=1 to 3
x=3
for k=1 to 2
x=x+6
next k
next j
next i
print x
End Sub
A. 7
B. 15
C. 157
D. 538
[填空题]下面程序的输出结果是 【15】 。
Private Sub Form_Click（ ）
i=0
Do Until 0
i=i+1
if i＞10 then Exit Do
Loop
Print i
End Sub
[单项选择]下面程序执行时，输出的结果是( )。
Private Sub Form_Click（ ）
Dim i As Integer,j As Integer
i=10
Do
i=i+j
For j=10 To i Step-3
i=i+j
Next j
Loop While i＜50
Print i;j
End Sub
A. 50 10
B. 50 9
C. 57 10
D. 57 9
[单项选择]下面程序的输出结果是______。
Private Sub Command1_Click（ ）
ch $="ABCDEF"
proc ch: Print ch
End Sub
Private Sub proc(ch As String)
s=" "
Fork=Len(ch) To 1 Step-1
s=s＆Mid(ch,k,1)
Next k
ch=s
End Sub
A. ABCDEF
B. FEDCBA
C. A
D. F
