编写一个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

①处应填入:min'因为最大公约数不会超过较小的那个数②处应填入:填不了,似乎不能这样写,参考下面的③处应填入:text3=t参考Private Sub gys(m As Integer,n As Integer) '求出两个数的最大公约数 Dim r As Integer...