求VB编程大神，求高手解答！！！急急急！！！

Question

求两个数的最大公约数，分别在文本框1和文本框2输入，结果显示在标签3和文本框3。因为两个按钮都要计算最大公约数，所以要把这部分代码独立出来，用自定义函数来做，使用for exit for next 来完成。

Answer 1

Private Sub Command1_Click()

  Dim m As Long, n As Long

  m = Text1

  n = Text2

  Label3.Caption = m & "和" & n & "的最大公约数是" & gcd(m, n)

End Sub

Private Sub Command2_Click()

  Dim m As Long, n As Long

  m = Text1

  n = Text2

  Text3 = m & "和" & n & "的最大公约数是" & gcd(m, n)

End Sub

Private Sub Form_Load()

  Label1.Caption = "第一个数："

  Label2.Caption = "第二个数："

  Label3.Caption = ""

  Text1 = ""

  Text2 = ""

  Text3 = ""

  Command1.Caption = "标签显示结果"

  Command2.Caption = "文本框显示结果"

End Sub

Function gcd(m As Long, n As Long) As Long

  r = m Mod n

  While r > 0

    m = n

    n = r

    r = m Mod n

  Wend

  gcd = n

End Function

Answer 2

追问

谢谢

本回答被提问者采纳

Answer 3

自己动动脑袋不要只查手机

Answer 4

2！！！！！！！！！！！

Answer 5

不知道啊！哈哈哈哈哈嘻嘻嘻嘻嘻呵呵呵呵呵