更多"有如下的一个函数过程:Function fn(ByVal num As"的相关试题:
[单项选择]有如下的一个函数过程:
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=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 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 Trans(ByVal num As Long) As Long
Dim k As Long
k=l
Do While num
k=k * (num Mod 10)
num=num/10
Loop
Trans=k
Print Trans
End Function
Private Sub Commandl_Click( )
Dim m As Long
Dim s As Long
m=InputBox("请输入一个数")
s=Trans(m)
End Sub
程序运行时,单击命令按钮,在输入对话框中输入“789”,输出结果为【 】,在输入对话框中输入“987”输出【 】,在输入对话框中输入“879”,输出结果为【 】。
[单项选择]有如下函数过程:
Function HFC(ByVal x AS Integer,ByVal y As Integer)As Integer
Do While y < > 0
sic=x/y
X=y
y=sic
Loop
HFC=x
End Function
以下是该函数的调用过程,该程序的运行结果是( )。
Private Sub Command1 _ Click( )
Dim a AS Integer
Dim b As Integer
a=12
b=2
x=HFC(a,b)
Print x
End Sub
A. 0
B. 6
C. 2
D. 80
[填空题]在窗体上画一个命令按钮,然后编写如下程序:
Function fun(ByVal num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num/10
Loop
fun=k
End Function
Private Sub Command1_Click( )
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
Print r
End Sub
程序运行后,单击命令按钮,在输入对话框中输入"345",输出结果为 【10】 。
[填空题]在窗体画一个命令按钮,然后编写如下过程:
Function fun(ByVal num As Long)As Lone
Dim k As Long
k=1
num=Abs (num)
Do While num
k=k*(num Mod 10)
num=num/10
Loop
fun=k
End Function
Private Sub Command1_Click( )
Dim n As Long
Dim r As Long
n= InputBox (“请输入一个数”)
n=CLng (n)
r=fun (n)
Print r
End Sub
程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为 【12】 。