输入两个数,找出他们的最小公倍数
æä»ä¹å®ç°ï¼ä¸é¢æ¯VBç.
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = a
Do While a <> 0 And b <> 0
If c Mod a = 0 And c Mod b = 0 Then
MsgBox "[" & a & "," & b & "]=" & c
Exit Do
End If
c = c + 1
Loop
End Sub