有如下程序: Function funfByVal num As Integer)As Integer Dim k As Integer k=1 hum=Abs(num) Do While num k=k*(hum Mod 10):num=num\10 L

admin2020-04-18  20

问题 有如下程序:
Function funfByVal num As Integer)As Integer
Dim k As Integer k=1
hum=Abs(num)
Do While num
k=k*(hum Mod 10):num=num\10
Loop
fun=k
End Function
Private Sub Form Click()
DimnAsInteger,rAs Integer
n=InputBox(“请输入一个数:”):n=Int(n):r=tim(n):Print r
End S

选项 A、120
B、48  
C、24
D、60

答案B

解析 在函数fun中会对传过来的参数num进行判断,如果不为0则进行循环,将各位数字乘到一起然后作为函数的返回值。
转载请注明原文地址:https://kaotiyun.com/show/JyTp777K
0

最新回复(0)