编写一个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
1个回答 分类:综合 2014-11-17

问题解答:

我来补答
①处应填入: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
 
 
展开全文阅读
剩余:2000
下一页:先解十一题