更多"有过程如下：Sub fact (m As Integer, total"的相关试题:
[单项选择]有过程如下：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 Sub1(m As Integer，total As Long)
Dim i AS Integer
total=1
For i=1 To m
total=total*i
Next
End Sub
调用它的事件过程如下：
Private Sub Command1_Click（ ）
Dim tot As Long，a As Integer
a=Val(InputBox("请输入数据"))
Call Subl(a,tot)
Print tot
End Sub
则输入数据5，运行结果为______。
[填空题]有一个过程如下：
Sub Sub1(m As Integer,total As Long)
Dim i AS Integer
total=1
For i=1 To m
total=total*i
Next
End Sub
调用它的事件过程如下：
Private Sub Command1_Click（ ）
Dim tot As Long,a As Integer
a:Val(InputBox("请输入数据”))
Call Sub1(a,tot)
Print tot
End Sub
则输入数据5，运行结果为 (11)
[填空题]有一过程如下：
Sub Subl (m As Integer,total As Long)
Dim i AS Integer
total = 1
For i = 1 To m
total = total * i
Next
End Sub
调用它的事件过程如下：
Private Sub Commandl_Click( )
Dim tot As Long, a As Integer
a = Val( InputBox ("请输入数据")
Call Subl (a,tot)
Print tot
End Sub
则输入数据5，运行结果为 【10】 。
[单项选择]有如下的一个函数过程：
Function fn(ByVal num As Long)
Dim k As Long
k=1:num=Abs(num)
Do While nuin
k=k*(num Mod 10)
num=num/10
Loop
fn=k
End Function
通过以下事件过程调用该函数，程序运行后，在输入对话框中输入数字“123”，则运行结果为( )。
Private Sub Command1_Click（ ）
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数值")
n=CLng(n):r=fn(n)
Print r
End Sub
A. 12
B. 6
C. 3
D. 1
[单项选择]有如下的一个函数过程：
Function fn(ByVal num As Long)
Dim k As Long
k= 1
num = Abs(num)
do while num
k = k * (num Mod 10)
num= num/10
Loop
fn=k
End Function
以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框中输入数字123，该过程的运行结果是 ______。
Private Sub Command1_Click（ ）
Dim n As Long
Dim r As Long
n = CLng(n)
r = fn(n)
Print r
End Sub
A. 12
B. 6
C. 3
D. 1
[单项选择]有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Next fact=p End Function 调用它的事件过程如下： Private Sub Command1_Click（ ） i=Val(Inputbox("请输入数据")) a=fact((i)) Print a End Sub 若输入数据5，则运行结果为
A. 120
B. 60
C. 80
D. 100
[单项选择]有如下过程代码：
Sub var_dim（ ）
static numa As Integer
Dim numb As Integer
numa=numa+2．
numb=numb+1
print numa；mub
End Sub
连续3次调剧var_dim过程，第3次调用时的输出是( )。
A. 2 1
B. 2 3
C. 6 1
D. 6 3
[单项选择]有如下过程代码：
Sub var_dim（ ）
Static numa As Integer
Dim numb As Integer
numa = numa + 2
numb = numb + 1
print numa ; numb
End Sub
连续3次调用var_dim过程，第3次调用时的输出是( )。
A. 2 1
B. 2 3
C. 6 1
D. 6 3
[单项选择]编写如下事件过程：
Private Sub Form Activate（ ）
Dim score(1 To 3) As Integer
Dim i As Integer,t As Variant
For i=3 To 1 Step-l
score(i)=2*i
Next i
For Each t In score
Print t;
Next
End Sub
程序运行后窗体上显示( )。
A. 6 4 2
B. 2 4 6
C. 2
D. 6
[填空题]有如下事件过程：
Private Sub Form Active ( )
Dim Score (1 to 3) As Integer
Dim i As Integer
Dim t As Variant
Fori=3 To 1 step-1
Score (i) = 2 * i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为 【14】 。
[单项选择]有如下函数过程：
Function f1(x As Integer)As Long
Dim s As Long
Dim i As Integer
s=0
For i=1 To x
s=s+i
Next i
f1=s
End Function
在窗体上添加一个命令按钮，名为Command1，并编写事件过程调用该函数，则输出结果为( )。
Private Sub Command1_Click（ ）
Dim i As Integer
Dim sum As Long
For i=1 To 5
sum=sum+f1(i)
Next i
Print sum
End Sub
A. 25
B. 35
C. 45
D. 55
[单项选择]编写如下事件过程和函数过程：
Private Sub Command1_Click（ ）
Dim num(1 To 6)As Single
num(1)=103:num(2)=190:num(3)=0
num(4)=32:num(5)=-56：num(6)=100
Print
Print p2(6，num（ ）)
End Sub
Private Function p2(By Val n As Integer, number（ ） As Single) As Integer
p2=number(1)
For j=2 To n
If number(j)＜p2 Then p2=number(j)
Next j
End Function
程序运行后，在窗体上输出( )。
A. -56
B. 0
C. 103
D. 190
[填空题]有如下事件过程：
Private Sub Form_Active（ ）
Dim Score(1 to 3) As Integer
Dim i As Integer
Dim t As Variant
For i=3 To 1 step-1
Score (i)=2*i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为______。
