题目内容
（请给出正确答案）
下列程序段的运行结果是：Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while I＞n I=I- n Loop Print IEnd Sub在窗体上打印的结果是______。
A．3
B．5
C．6
D．8
安装简答题APP，拍照搜题省时又省心！
更多“下列程序段的运行结果是：Private Sub Comman…”相关的问题
A.X+Y=11
B.5+6=11
C.11
D.True
Private Sub
Form_Click Dim X#, Y#
X = 5: Y = 6
Print X + Y = 11 End Sub
A. X+Y=11
B. 5+6=11
C. 11
D. True
A.出错
B.5 5
C.5 10
D.5 7
下列程序段，运行后窗体上输出结果是()。
Private Sub Command1_Click()
a=5:b=4:c=3:d=2
x=3＞2*b Or a=c And b＜＞c Or c＞d
Printx
End Sub
A．1
B．True
C．False
D．2
下列程序段，运行后窗体上输出结果是 Private Sub Commnad1_Click() a=5∶b=4∶c=3∶d=2 x=3＞2*b Or a=c And b＜＞c Or c＞d Print X End SubA. 1 B. True C. False D. 2
A.4321
B.1234
C.34
D.12
A.AABAAB
B.ABBABA
C.BABBA
D.BBABBA
下面程序段的运行结果是()。 Private Sub Form_Click() For I=3 to 1 step-1 Print Spc(10-I)； For j=1 to 2*I-1 print"*"; Next j Print Next I End Sub
A．***** *** *
B．* *** *****
C． * *** *****
D． * *** *****
下面程序段，运行后的结果是 Private Sub Commandl_Click() Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i 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 i Tof=t End Function
A．t=18
B．t=24
C．t=30
D．t=32
下面程序段,运行后的结果是
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
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
