更多"下面程序计算并输出的是 Private Sub Command1"的相关试题:
[单项选择]下面程序计算并输出的是( )。
Private Sub Command1_Click（ ）
Num=10
Sum=0
Do
Sum=Sum+Num*Num*Num
Num=Num-1
Loop Until Num＜=0
Print Sum
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（ ）
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 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
[单项选择]下面程序的输出是______。
Private Sub Command1_Click（ ）
Print 7/3
End 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 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 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 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（ ）
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
