上堂專用區．．．＞＞

＊〝|■豬�

　　上堂用嫁　！

　　而家未上堂！唔好講野ａ　！

鼓手~勾根

Private Sub cmdAns_Click()
    Dim x, y As Integer
    x = Val(txtNum1.Text)
    y = Val(txtNum2.Text)
    Ans = 1
    Do Until (i > x Or i > y)    '直至大於其中一個數就停
    i = 2
        Do Until (i > x Or i > y)
        If x Mod i = 0 And y Mod i = 0 Then
                x = x / i
                y = y / i
                Ans = Ans * i
            Exit Do
        End If
        i = i + 1      '下一個
    Loop
Loop
MsgBox "最大公因數是" & Ans
MsgBox "最小公倍數是" & Ans * x * y

End Sub




上了喇~~~~~

月睎

車

◤♀香※腸

ｃｏｐｙ呀ｓｉｒ　戈個ｇａ？．．．

》。柴＊２

　　　　你又知．．我琴晚已經見到有ｇａ　ｌａ．．ｓo唔係ｃｏｐｙ　ｇａ

╭芒果→雪

下.

鼓手~勾根

我都唔知.....=.=''

☆♀小丸子

ＬＣＭ戈條野．．．

╭芒果→雪

ngng~~~

☆♀小丸子

早知佢今日教就唔ｄｏ　ｌａ～～

╭芒果→雪

好采..我冇做.....

☆♀小丸子

車～～

╭芒果→雪

ngng~~~~~

東京人

你地煩緊哥條程序ａ．．．．