Public Function GCD(ByVal x As Integer, ByVal y As Integer) '//求最大公约数
Dim reminder As Integer
Do While y <> 0
reminder = x Mod y
x = y
y = reminder
Loop
Return (x)
End Function
Dear purana大姐 什么时候我能达到你的那种高度, 只给方法和思想, 让他自己思考自己受益,
[此贴子已经被作者于2007-8-24 22:47:47编辑过]