题目内容
（请给出正确答案）
下列程序段的运行结果是()。
Sub sele()
Dim n As Integer
i=21:n=3
Do While i＞n
i=i-n
Loop
Print i
End Sub
A．2
B．4
C．5
D．3
如果结果不匹配，请 联系老师 获取答案
更多“下列程序段的运行结果是（)。Sub sele（)Dim n …”相关的问题
下面程序段，运行后的结果是 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 Form_Click() Dim k As Integer n＝5 m＝1 k＝1 Do m＝m+2 k＝k+1 Loop Until k＞n Print m End Sub
A．1
B．12
C．11
D．32
运行下列程序，显示的结果是
Private Sub Command34_Click()
i=0
Do
i=i+1
Loop While i＜10
MsgBox i
End Sub
A．0
B．1
C．10
D．11
运行下列程序：
Private Sub form_Click()
For i = 1 To 4
t = t * 10 + i
s = s + t
Next i
Print s
End Sub
单击窗体后，则输出结果是()。
A.1234
B.4321
C.1370
D.4444
运行下列程序：
Private Sub Command1_Click()
a = 100
b = 24
a = a Mod b
b = b \ a
a = b - a
Debug.Print a
End Sub
单击Command1命令按钮后，则在立即窗口上输出结果是()。
A.2
B.24
C.50
D.100
运行下列程序：
Private Sub Command1_Click()
Dim s1 As String * 1
Dim s2 As String
s1 = "a"
For i = Asc(s1) To Asc(s1) + 4
s2 = s2 & Chr(i)
Next i
Print s2
End Sub
单击Command1命令按钮后，则在窗体上显示的结果是()。
A.a
B.abcde
C.aaaa
D.s2
运行下列程序：
Private Sub Command1_Click()
a = Val(InputBox("a = "))
Print fun1(a)
End Sub
Private Function fun1(b)
If b ＞ 0 Then
fun1 = 10
ElseIf b = 0 Then
fun1 = 9
Else
fun1 = 8
End If
End Function
单击按钮后从键盘为变量a输入数据3，输出的结果是()。
A.3
B.8
C.9
D.10
下列程序运行后的输出结果是______。
Private Sub f(k，s)
s=1
For j=1 To k
s=s*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i，s)
Sum=Sum+s
Next
Print Sum
End Sub
运行下列程序：
Private Sub Form_Click()
Dim a As Integer
a = 1
For i = 1 To 5
Call fun1(a)
Next i
Print a
End Sub
Private Sub fun1(x)
y = 2
Do
x = x + y
Loop Until x ＞ 10
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.5
B.1 2 3 4 5
C.19
D.7
