Private Sub Command1 Click()
Dim m As Integer,n As Integer
Dim gys As Integer
m=Val(Text1.Text)
n=Val(Text2.Text)
a=m:b=n
Do While m<>n
If ① Then m=m-n Else n=n-m
Loop
gys=n
Label3.Caption=“最小公倍数是:”+ ②
End Sub
① ②
微信扫码预览、分享更方便