在窗体上有一个命令按钮和两个文本框。程序运行后,在前两个文本框中输入两个两位的正整数,单击命令按钮

求两个正整数a、b的最大公约数并显示在第三个文本框中。
2025-01-01 02:34:53
推荐回答(1个)
回答1:

Private Sub Command1_Click()
Dim a, b, c As String
a = Text1.Text
b = Text2.Text
Do While (b <> 0)
c = a Mod b
a = b
b = c
Loop
Text3.Text = a
End Sub