例027：求两个数的最大公约数

1. 建立一个EXE工程
2. 双击窗体，编写自定义函数返回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

1. 在窗体的载入事件中输入代码：

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

1. 程序运行后将连续弹出两次输入框，分别输入两个整数，如12，8，最大公约数4将被输出在开发环境下方的控制台处。