'Text1,Text2,Text3输入'Text4,Text5输出公约数,公倍数Private Sub Command1_Click()Dim a As Integer,b As Integer,c As IntegerDim gys As Integer,gbs As IntegerDim i As IntegerDim min As Integera = Int(Text...