[单项选择]有如下的一个函数过程：
Function fn(By Val hum AS Long)
Dim k As Long
k=l
num=Abs(nam)
Do While nnm
k=k*(nnm Mod 10)
num=num/10
Loop
fn=k
End Function
以下是一个调用该函数的事件过程，运行程序后，在输入对话框输入数字“123”，该过程的运行结果是( )。
Private Sub Command5_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(By Val hum"的相关试题:

[单项选择]有如下的一个函数过程： Function fn(By Val hum AS Long) Dim k As Long k=l num=Abs(nam) Do While nnm k=k*(nnm Mod 10) num=num/10 Loop fn=k End Function 以下是一个调用该函数的事件过程，运行程序后，在输入对话框输入数字“123”，该过程的运行结果是( )。 Private Sub Command5_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=kEnd Function 以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框中输入数字123，该过程的运行结果是 ______。Private Sub Command1_Click（　） Dim n As Long Dim r As Long n = CLng(n) r = fn(n) Print rEnd Sub
A. 12
B. 6
C. 3
D. 1

查看答案

[单项选择]有如下函数过程：
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

查看答案

[单项选择]有如下函致：
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

查看答案

[单项选择]有如下函数过程:
Function lj(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
1j= s
End Function
在窗体上添加一个命令按钮，名为Command1, 编写事件过程调用该函数：
Private Sub Command1 Click（　）
Dim i As Integer
Dim sum As Long
For i = 1 To 5
sum = sum + 1j(i)
Next i
Print sum
End Sub
A. 25
B. 35
C. 45
D. 55

查看答案

[单项选择]有如下函数过程： Function Fun(By Val x As Ingeger，ByVal y As Integer) As Integer DO While …y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click（　） Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a,b) Print x End Sub Ａ) 0 Ｂ) 25 Ｃ) 50 Ｄ) 100

查看答案

[填空题]有如下函数过程：
Function gys(By Val x As Integer, ByVal y As Integer) As Integer
Do While y＜＞0
preminder=x/y
x=Y
y=preminder
Loop
gys=x
End Function
以下是调用该函数的事件过程：
Private Sub Command1_Click
Dim a As Integer,b As Integer
a=10；b=2
x=gys(a，b)
Print x
End Sub
该程序的运行结果是______。

查看答案

[单项选择]有如下函数过程：
Function Fun (By Val x As Ingeger, ByVal y As Integer)As Integer
Do While…y＜＞0
reminder=x Mod y
x=y
y=reminder
Loop
Fun=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是
Private Sub Command1_Click（　）
Dim a As Integer
Dim b As Integer
a=100:b=25
x=Fun(a，b)
Print x
End Sub
A. 0
B. 25
C. 50
D. 100

查看答案

[填空题]有如下函数过程：
Function gys(By Val x As Integer，ByVal y As Integer)As Integer
　　Do While Y＜#0
　　　　preminder=x/y
　　　　 x=Y
　　　　y=preminder
　　Loop
　　gys=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是______。
Private Sub Command1_Click（　）
Dim a As Integer，b As Integer
　　a=10：b=2
　　x=gys(a,b)
　　Print x
　　End Sub

查看答案

[单项选择]有如下函数过程：
Function Fun(By Val x As Ingeger，ByVal y As Integer) As Integer
DO While …y＜＞0
reminder=x Mod y
x=y
y=reminder
Loop
Fun=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是
Private Sub Command1_Click（　）
Dim a As Integer
Dim b As Integer
a=100:b=25
x=Fun(a,b)
Print x
End Sub
Ａ) 0 Ｂ) 25 Ｃ) 50 Ｄ) 100

查看答案

我来回答:

提交