更多"有一过程如下：
Sub Subl (m As Integer,t"的相关试题:
[填空题]有一个过程如下：
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 Subl(a,tot)
Print tot
End Sub
则输入数据5，运行结果为______。
[单项选择]有过程如下：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
[单项选择]在窗体中添加一个命令按钮，编写如下程序：
Private Sub Subl(p,m,n)
p=p+1:m=m+1:n=n+1
Print"subl:";p;m;n
End Sub
Private Sub Command1_Click（ ）
al=1:b=2:c1=3
Call Subl(a,b1+3,c1)
Print"Main:";a1;b1;c1
End Sub
程序运行后，输出结果为
[填空题]Sub subl(x As Single, ByVal y As Single)
t=x
x=t/y
y=t Mod y
End Sub
Private Sub Form_Click（ ）
Dim a As Single
Dim b As Single
a=5
b=4
sub1 a,b
Print "a="；a，"b="；b
End Sub
程序运行后，单击命令按钮，则a= (6) ，b= (7) 。
[填空题]程序执行结果s的值是 【7】 。
Private Sub subl(Byval p As Integer)
p=p*2
End Sub
Private Sub Commandl_Click（ ）
Dim i As Integer
i=3
Call subl(i)
ifi＞4 then i=i mod 2
Print cstr(i)
End Sub
[填空题]编写如下通用过程：
Sub proc(By Val num As Long， ByRef ren As Long)
Dim k As Long
K = 1
hum = Abs(num)
Do While num
k = k *(num Mod 10)
num = num/ 10
Loop
ren = k
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim n As Long， r As Long
n = InputBox("请输入一个整数")
n = CLng(n)
proc n， r
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中345，输出结果是______。
[填空题]编写如下通用过程：
Sub proc(By Val Rum As Long，ByRef ren As Long)
Dim k As Long
K=1
hum=Abs(NUN)
Do While num
k=k*(num Mod 10)
num=num/10
Loop
ren=k
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim m As Long, r As Long
n=InputBox("请输入一个整数")
n=CLng(n)
proc n, r
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中345，输出结果是______。
[填空题]编写如下通用过程：
Sub proc(By Val num As Long，ByRef ren As Long)
Dim k As Long
K = 1
num=Abs(num)
Do While num
k= k *(num Mod 10)
num=num/ 10
Loop
ren=k
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click（ ）
Dim n As Long， r As Long
n=InputBox("请输入一个整数")
n = CLng(n)
proc n，r
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入345，输出结果是 【15】 。
[单项选择]假定有如下的Sub过程：
Sub Sub1 (x As Single, y As Single)
t=x
x = t/y
y = t Mod y
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_ Click（ ）
Dim a As Single
Dim b As Single
a = 5
b = 4
Sub1 a, b
Print a; b
End Sub
程序运行后，单击命令按钮，输出结果为______。
A. 5 4
B. 1 1
C. 1.2 5.4
D. 1.25 1
[填空题]有如下Sub过程：
Sub ind(a As Integer)
Static x As Integer
x= x + a
Print x：
End Sub
以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为 【14】 。
Private Sub Command1_Click（ ）
Ind 2
End Sub
[填空题]有如下Sub过程：
Sub ind(a As Integer)
Static x As Integer
x= x + a
Print x：
End Sub
以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为 【14】 。
Private Sub Command1_Click（ ）
Ind 2
End Sub
