更多"下面程序执行时，输出的结果是( )。 Private Sub Fo"的相关试题:
[单项选择]下面程序运行后的输出结果是 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（ ） ch $ = "Welcome to China!" n = Len(ch $ ) For i =1 To n-1 s$ =Mid(ch$ ,i,1) If s$ ="o" Then m=m + 1 Next i Print m End Sub
A. 1
B. 2
C. 8
D. 0
[单项选择]
下面程序运行时，若输入395，则输出结果是（）
Private Sub Comand1_Click（ ）
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10,x/100,(x Mod 100)/10
End Sub
A. 3 9 5
B. 5 3 9
C. 5 9 3
D. 3 5 9
[单项选择]下面程序运行后的输出结果是______。Private Sub Command1_ Click ( ) for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j/3 Next j Print aEnd Sub
A. 20
B. 10
C. 3
D. 9
[单项选择]执行下面的程序，单击命令按钮后，窗体中的输出结果是 ______。 Private Sub Cotomand1_Click（ ） Ch$="Welcome Home!" a=Len(ch$) For i= 1 To a b$ = Mid(ch$， i 1) If b$ = "m" Then m = m + 1 Next 1 Print m End Sub
A. 2
B. 3
C. 1
D. 0
[单项选择]下列事件过程运行后输出结果是 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（ ） For k=3 To 1 Step-1 x=String(k，"*") Print x Next End Sub
A. * * * * * *
B. 1 * 2 * 3 *
C. 3 * 2 * * 1 * * *
D. * * * * * *
[单项选择]下列事件过程运行后输出结果是 Private Sub Command1_Click（ ） Print Formats(123，456，"###，##%") End Sub
A. 123.46%
B. 123.45%
C. 123.456%
D. 12345.6%
[单项选择]下列程序运行时输出的结果是 Private Sub Form_Click（ ） Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UBound(a，1) If Left(a(i)，1)=“天”Then Print a(i)； Next End Sub
A. 天天向上
B. 天天向上天上人间
C. 出错信息
D. 天天向上清华大学天上人间程序设计
[单项选择]下列程序运行时输出的结果是 Option Base 1
Private Sub Form_Click（ ）
Dim x(10) As Integer，y(5) As Integer
For i=1 to 10
x(i) =10-i+1
Next
For i=1 to 5
y(i)=x(2*i-1)+x(2*i)
Next
For i=1 to 5
Print y(i)
Next
End Sub
A. 3 7 11 45 19
B. 19 15 11 7 3
C. 1 3 5 7 9
D. 不确定的值
[单项选择]下列命令按钮的事件过程执行后，输出的结果是
Private Sub command1_click（ ）
For m=1 To 10 Step 2
a=10
For n=1 To 10 Srep 2
a=a+2
Next
Next
Print a
End Sub
A. 60
B. 50
C. 30
D. 20
[单项选择]当发生Command1_C1ick事件后，以下程序的输出结果是 Private Sub Command1_Click（ ） Dim i As Integer Dim a(10) As Integer For i＝9 To 0 Step -1 a(i)=10-i Next i Print a(2);a(5);a(8) End Sub
A. 2 5 8
B. 7 4 1
C. 8 5 2
D. 3 6 9
