Angel 發問時間: 電腦與網際網路程式設計 · 1 0 年前

vb2005兩數求最大公因數

將設計一個表框

利用textbox1 ,textbox2 輸入兩數

按下button鍵 ,label1就可產生剛輸入的兩數的最大公因數

請問如何打出這樣的程式?

2 個解答

評分
  • 1 0 年前
    最佳解答

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim x As Integer

    Dim y As Integer

    x = TextBox1.Text

    y = TextBox2.Text

    gcd(x, y)

    End Sub

    Sub gcd(ByVal x As Integer, ByVal y As Integer)

    If (x Mod y = 0) And (y <> 1) Then

    Label1.Text = y

    Else

    If y = 1 Then

    Label1.Text = "無最大公因式"

    Else

    y -= 1

    gcd(x, y)

    End If

    End If

    End Sub

    加油~

    2009-12-10 20:36:27 補充:

    第一個亂碼是小於等於

    第二個第三是分號

    參考資料: 自己~
  • 1 0 年前

    Private Function getHCF(ByVal a As Long, ByVal b As Long) As Long

      Do

        If a > b Then

          a = a Mod b

        Else 'If a =< b Then

          b = b Mod a

        End If

        

    '(續下)

    2009-12-12 19:51:26 補充:

        If a = 0 Or b = 0 Then

          If a = 0 Then getHCF = b

          If b = 0 Then getHCF = a

          Exit Function

        End If

      Loop

    End Function

還有問題?馬上發問,尋求解答。