瓦罗兰之盾皮肤价表:VB编程小问题,会的帮帮忙

来源：百度文库编辑：杭州交通信息网时间：2024/04/25 00:26:20

Function gcd(m As Integer, n As Integer) As Integer
Dim r As Integer
r = m Mod n
Do While r <> 0
'**********FOUND**********
m = n
n = r
r = m Mod n
Loop
'**********FOUND**********
gcd = r
End Function

Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
Dim r As Integer
a = InputBox("输入一个整数")
b = InputBox("输入一个整数")
a = Val(a)
b = Val(b)
'**********FOUND**********
Call gcd(a, b)
Print a, b, c
End Sub

改错求最大公约数

会的帮帮吧~~~ 在线等呢

Do While r <> 0
'**********FOUND**********
m = n
n = r
r = m Mod n
Loop

改成
Do While r <> 0
'**********FOUND**********
m = n
n = r
r = m Mod n
Wend

不行的话 +370128549 我可以帮你写一个。

VB编程小问题,会的帮帮忙 vb小问题,会的帮帮忙 vb小问题,会的请帮帮忙 vb小问题,会的请帮帮忙 VB编程的小问题 vb编程的小问题 vb的编程问题，大家帮帮忙哦 VB编程很简单的小问题一个VB编程的小问题! VB编程的问题