最大公约数和最小公倍数vb代码如何写

Private Sub Command1_Click()
Dim a As Long, b As Long, n As Long, s As Long
a = Text1.Text
b = Text2.Text
If a <= 0 Or b <= 0 Then
MsgBox "请输入一个正整数！", vbInformation + vbOKOnly, "错误！"
Exit Sub
ElseIf Int(a) <> a Or Int(b) <> b Then
MsgBox "请输入一个正整数！", vbInformation + vbOKOnly, "错误！"
Exit Sub
End If
Do
r = a Mod b
a = b
b = r
Loop While r <> 0
Label2.Caption = CStr(a)
a = Text1.Text
b = Text2.Text
n = 2
Do Until n Mod a = 0 And n Mod b = 0
n = n + 1
Loop
Label3.Caption = CStr(n)
Text1.SetFocus
End Sub
’label2是大公约，lebel3是小公倍，text1与text2为两数输入
’command1是计算