一个VB函数问题 麻烦来看看 帮帮忙呢
Function fn ( By Val num As Long)Dim k As Longk = 1num = Abs(num)Do while numk = k * (num Mod 10)num = num \ 10Loopfn = kEnd Funcation以下是一个调用函数的事件过程,在运行程序后,在对话框中输入数字"123",该过程运行的结果是( )Private Sub Command5_Click()Dim n As LongDim r As Longn = Inputbox("请输入一个数值")n = Clong(n)r = fn(n)print rEnd sub谢谢了 麻烦教我详细一点的
参考答案:运行结果是6
事件过程:先输入n的值(123),将n这个实参代入fn()函数:
fn()函数首先用abs()函数把n转换成绝对值,再进行循环,第一次循环结果:
k=3,num=12
第二次(最后一次)循环结果:
k=6,num=1
函数fn()的返回植就是k的值,r=fn(n)
再输出r的值:6