- 建立一个EXE工程
- 双击窗体,编写自定义函数返回x,y的最大公约数。
Function Divisor(ByVal x As Integer, ByVal y As Integer) As Integer
Dim r As Integer
r = x Mod y
Do While r <> 0
x = y
y = r
r=x Mod y
Loop
Divisor=y
End Function
- 在窗体的载入事件中输入代码:
Sub Form1_Shown(hWndForm As hWnd,UserData As Integer)
Dim m As Integer,n As Integer,g As Integer
n = Val(InputBox("请输入n"))
m = Val(InputBox("请输入n"))
g = Divisor(n, m)
Print(g)
End Sub
- 程序运行后将连续弹出两次输入框,分别输入两个整数,如12,8,最大公约数4将被输出在开发环境下方的控制台处。