作业帮 > 综合 > 作业

编写一个VB程序,计算m和n值的最大公约数t,其中m,n是整数且大于0,要求输入m和n.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/11/05 17:31:59
编写一个VB程序,计算m和n值的最大公约数t,其中m,n是整数且大于0,要求输入m和n.
Private Sub Command1_Click()
Dim m,n As Integer
Dim i,min,t as Integer
m = Val(Text1.Text)
n = Val(Text2.Text)
If m
①处应填入:min'因为最大公约数不会超过较小的那个数
②处应填入:填不了,似乎不能这样写,参考下面的
③处应填入:text3=t
参考
Private Sub gys(m As Integer,n As Integer)
'求出两个数的最大公约数
Dim r As Integer
r = m Mod n
Do While r 0
m = n
n = r
r = m Mod n
Loop
End Su