题目内容
（请给出正确答案）
有过程如下：Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下：Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5，运行结果为 ______。
A．100
B．120
C．200
D．50
如果结果不匹配，请 联系老师 获取答案
更多“有过程如下：Sub fact （m As Integer, …”相关的问题
有如下的函数过程： Function Func2(a As Integer, b As Integer)'As Integer Static m As Integer, i As Integer m=0 i=2 a=i+m+1 b=i+a+b Func2=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim p As Integer, k As Integer, m As Integer k=4 m=1 p=Fune2(k, m) Print k; m p = Func2(k, m) Print k; m End Sub 程序运行后，单击命令按钮，输出结果为()。
A．3 6＜CR＞3 6
B．3 6＜CR＞3 11
C．3 11＜CR＞3 6
D．3 11＜CR＞3 11
有如下的函数过程： Function Func2(a As Integer,b As Integer) 'As Integer Static m As Integer,i As Integer m=0 i=2 a=i+m+1 b=i+a+b Func2=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim p AS Integer,k As Integer,m As Integer k=4 m=1 p=Func2(k,m) Print k; m p=Func2(k,m) Print k; m End Sub 程序运行后，单击命令按钮，输出结果为()。
A．3 6＜CR＞3 6
B．3 6＜CR＞3 11
C．3 11＜CR＞3 6
D．3 11＜CR＞3 11
在窗体上画一个命令按钮,然后编写如下事件过程。
Private Sub Command1_Click()
Dim m As Integer, n As Integer, p As Integer
m=3: n=5: p=0
Call Y(m, n, p)
Print Str(p)
End Sub
Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer)
k=i + j
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是
A．4
B．6
C．8
D．10
如果存在如下过程：
Private Function FMax（a（） As Integer）
Dim First As Integer, Last As Integer, i As Integer
First=LBound（A）
Last=UBound（A）
Max=a（First）
For i=First To Last
If a（i） ＞ Max Then Max=a（i）
Next i
FMax=Max
End Function
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（）
ReDim m（1 To 4） As Integer
m（1） =20: m（2） =30: m（3） =50: m（4） =100
c=FMax（m）
Print c
End Sub
单击命令按钮，其输出结果为 【12】 。
在窗体上画1个命令按钮，并编写如下事件过程i
Private Sub Commandl—Click()
Dim a(3，3)
For m=1 T0 3
F0r n=1 To 3
If n=m Or n=4-m Then
a(m，n)=m+n
Else
a(m，n)：0
End If
Print a(m，n)；
Next n
Prim
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为
A．2 0 0
B．2 0 4
C．2 3 0
D．2 0 0
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a = 2 For i=1 To 3 Call funl(i，A)Next i x = i + 2 Print x；a End Sub Private Sub fun1(n，m) m=m + n * 2 n = n + m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．1 5
B．4 5
C．8 4
D．3 4
在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程： Private Sub Form_Load() List1.Addltem "357" List1.Addltem "246" List1.Addltem "123" List1.AddItem "456" Text1.Text = "" End Sub Private Sub Listl_DblClick0 m=List1.Text Print m + Text1.Text End Sub 程序运行后，在文本框中输入“123”，然后双击列表框中的“456”，输出结果为()。
A．1245
B．456123
C．123456
D．0
窗体上有一个命令按钮Command1，编写如下事件过程：
Private Sub Command1_Click()
Sum = 0
For m = 1 To 3
Select Case m
Case 1
a = 1
Case 2
a = 2
Case 3
a = 3
End Select
Print a,
Sum = Sum + a
Next m
Print Sum
End Sub
运行时，单击按钮，输出结果是()。
A、 3 3 3 9
B、 3 2 1 6
C、 1 1 1 3
D、 1 2 3 6
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim m As Integer，n As Integer，p As Integer m=3：n=5：p=O Call Y(m，n，p) Print Str(p)End SubSub Y(ByVal i As Integer，ByVal j As Integer，k As Integer) k=i + jEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A．4
B．6
C．8
D．10
在窗体上画一个命令按钮，然后编写如下事件过程：
Sub BTC（oldCopy（） As Integer, newCopy（） As Integer）
Dim i As Integer
For i=LBound（oldCopy（） ） To UBound（oldCopy（） ）
newCopy（i） =oldCopy（i）
Next i
End Sub
Private Sub Command1_Click（）
Dim m（10） As Integer, n（10） As Integer
For i=1 To 10
m（i） =i i
Next i
Call BTC（m, n）
Print n（5）
End Sub
程序运行后，单击命令按钮输出结果为（）。
A．0
B．2
C．10
D．25
