用VB编一求两数m,n最大公约数的函数过程f(m,n);主调程序在两个文本框接收输入数据，在图形框显示结果

在窗体上放一个命令按纽和一个图型框控件，2个文本框，代码如下
Private Sub Command1_Click()
Dim m, n As Long
m = Val(Text1.Text)
n = Val(Text2.Text)
f m, n
End Sub
Function f(m, n As Long)
Dim max, min, i, k As Long
If m < n Then max = n: min = m Else max = m: min = n
For i = 1 To min
If max Mod i = 0 And min Mod i = 0 Then k = i
Next i
Picture1.Print m & "和" & n & "的最大公约数是" & k
End Function

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Dim j As Integer, t As Integer, m As Integer, n As Integer
Dim s As Integer, k As Integer
s = 1
m = text1.text
n = text2.text
Print "m="; m; "n="; n
If n Mod m = 0 Then
Print "最大公约数是"; m;
Exit Sub
End If
k = m
t = n
Do While k <> 0
t = t Mod k
j = t: t = k: k = j
Loop
Print "最大公约数是"; t;