神马品牌网最强狂暴妖孽系统下载:高手帮我看看这段VB代码？解释一下 ～谢谢 了 ～在线等
来源：百度文库 编辑：神马品牌网 时间：2024/04/30 00:53:32
Public Function f(ByVal n As Integer, ByVal r As Integer)
If n <> 0 Then f = f(n \ r, r)
Print n Mod r
End Function
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub Form_Click()
Print f(100, 8)
End Sub
大家写详细点~~~非常谢谢啊
If n <> 0 Then f = f(n \ r, r)
Print n Mod r
End Function
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub Form_Click()
Print f(100, 8)
End Sub
大家写详细点~~~非常谢谢啊
Private Sub Form_Click()
Print f(100, 8) '调用函数f 传递值
End Sub
Public Function f(ByVal n As Integer, ByVal r As Integer)
If n <> 0 Then f = f(n \ r, r) '如果n不等于0，则递归调用，直到n为0
Print n Mod r '输出n mod r
End Function
------------------------------
运行结果：
略
Public Function f(ByVal n As Integer, ByVal r As Integer) 函数f,参数值传递
If n <> 0 Then f = f(n \ r, r) 不为0,递归调用
Print n Mod r
End Function 这个函数应该是求最小公约数,欧的递归算法
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub Form_Click()
Print f(100, 8)
End Sub
1.定义整形n,r
如果n不等于0,那么f = f(n \ r, r)
2.打印n取余r
Private Sub Form_Click() 单击窗体
Print f(100, 8) 在(100, 8) 位置打印f
End Sub
这是递归算法
运行过程如下
先运行f(100,8)
然后运行f(100\8,8)
这样递归下去，一直到第一个参数＝0 才结束运行