更多"下面程序计算并输出的是( )。 Private Sub Comma"的相关试题:
[单项选择]下面程序计算并输出的是
Private Sub Command1_Click（ ）
a=10
s=0
Do
s=s+a*a*a
a=a-1
Loop until a＜=0
Print s
End sub
A. 13+23+33+…103的值
B. 10!+…+3!+2!+1!的值
C. (1+2+3+…+10)3的值
D. 10个103的和
[单项选择]下面程序计算并输出的是
Private Sub Command1_Click（ ）
a=10:s=0
Do
s=s+a*a*a:a=a-1
Loop Until a＜=0
Print s
End Sub
A. 13+23+33+…+103的值
B. 10!+…+3!+2!+1!的值
C. (1+2+3+…+10)3的值
D. 10个103的和
[单项选择]下面程序的输出是______。Private Sub Command1_Click（ ） Print 7/3End Sub
A. 3.5
B. 7
C. 3
D. 2
[单项选择]下面程序运行后的输出结果是
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 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
[单项选择]某人设计了如下程序用于计算并输出7!(7的阶乘)。
Private Sub Command1_Click（ ）
t=0
For k=7 To 2 Step -1
t=t*k
Next
Print t
End Sub
执行程序时，发现结果是错误的。下面的修改方案中能够得到正确结果的是
A. 把t=0改为t=1
B. 把For k=7 To 2 Step -1改为For k=7 To 1 Step -1
C. 把For k=7 To 2 Step -1改为For k=1 To 7
D. 把Next改为Next k
[单项选择]下面程序运行后的输出结果是______。
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
[单项选择]
下面程序运行时，若输入395，则输出结果是（）
Private sub command1_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
[单项选择]下面程序运行时，若输入395，则输出结果是( )。
Private Sub Cmd1_Click（ ）
Dim a%
a=InputBox("请输入一个3位整数")
Print a Mod 10,a/100,(a Mod 100)/10
End Sub
A. 5 9 3
B. 3 5 9
C. 5 3 9
D. 3 9 5
[单项选择]下面的程序运行时，若输入395，则输出结果是
Private Sub Command1_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 Form_Activate（ ）
Dima
a=Array(1,2,3,4,5)
Fori=LBound(a)To UBound(a)
a(i)=i*a(i)
Nexti
Printi，LBound(a)，UBound(a)，a(i)
End Sub
A. 4 0 4 25
B. 5 0 4 25
C. 不确定
D. 程序出错
[单项选择]下列程序的输出结果为( )。 Private Sub Command1_Click（ ） Dim a(20) For j=1 To 20 Step2 a(j)=j Next i Print a(1)+a(2)+a(3) End Sub
A. 4
B. 5
C. 6
D. 7
[单项选择]下列程序的输出结果为______。
Private Sub Command1_Click（ ）
Dim a(20)
For j=1 To 20 Step 2
a(j)=j
Next j
Print a(1)+a(2)+a(3)
End Sub
A. 4
B. 5
C. 6
D. 7
[单项选择]下列程序的输出结果是______。 Private Sub command1_click（ ） a=10：b=20 Print a；Spc(5)；b； Print Print b；SpaCe＄(5)；a； End Sub
A. 10 20 20 10
B. 10 20 20 10
C. 20 10 20 10
D. 20 10 20 10
[单项选择]下列程序运行时输出的结果是
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. 天天向上清华大学天上人间程序设计
