Private Sub js_Click() a = Forms!gys!n1 b = Forms!gys!n2 Do While b 0 t = a Mod b a = b b = t Loop Forms!gys!maxgys = a Forms!gys!mingbs = Forms!gys!n1 * Forms!gys!n2 / a End Sub
a=b就是把(b包含的内容)带入a,(在这个程序中a = Forms!gys!n1 b = Forms!gys!n2就表示把Forms!gys!n1带入a,即a就是Forms!gys!n1 同理b就是 Forms!gys!n2。 Do While b <> 0 t = a Mod b就是当b不等于0时t就是Forms!gys!n1Mod Forms!gys!n2)