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

编写一个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
penglai 1年前 已收到1个回答 举报
赞

hubawang 幼苗

共回答了16个问题采纳率：100% 举报

①处应填入：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

1年前

3
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 2.432 s. - webmaster@yulucn.com