'点击窗体出现输入框,分别输入第2个整数,在窗体内就会出现最大公约数,代码如下:Private Sub Form_Click()
Dim C As Long, D As Long, E As Long
C = InputBox("请输入第1个整数:")
D = InputBox("请输入第2个整数:")
E = Zdgys(C, D)
Print C; " 和 "; D; " 的最大公约数是:"; EEnd Sub'下面是自定义函数—最大公约数函数Private Function Zdgys(ByVal A As Long, ByVal B As Long)
Dim R As Long
R...
点击窗体出现输入框,分别输入第2个整数,在窗体内就会出现最大公约数,代码如下:Private Sub Form_Click()Dim C As Long, D As Long, E As LongC = InputBox("请输入第1个整数:")D = InputBox("请输入第2个整数:")E = Zdgys(C, D)Print...
Private Sub Form_Click()Dim a, b As IntegerDim m, n, t, r As Integer m = Val(InputBox("输入整数m")) n = Val(InputBox("输入整数n"))If m < n Then t = m: m = n: n = tEnd If...