目前分類：Visual Basic-小筆記 (2)

瀏覽方式： 標題列表 簡短摘要
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n As Integer
        n = TextBox1.Text
        Label1.Text = 2 ^ TextBox1.Text
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim m As Integer
        m = TextBox2.Text
        Dim ans As Integer
        Do Until m = 1
            ans += 1
            m /= 2
        Loop
        Label2.Text = ans
    End Sub
End Class


台中家商 小柯 發表在 痞客邦 留言(0) 人氣()

▲top

一

Function GCD(ByVal a%, ByVal b%)

        Do Until a = b

            If a > b Then a -= b

            If a < b Then b -= a

        Loop

        GCD = a

    End Function

二

Function GCD(ByVal a%, ByVal b%)

        GCD = If(b = 0, a, GCD(b, a Mod b))

    End Function

三

Function GCD(ByVal a%, ByVal b%)

        If b = 0 Then

            GCD = a

        Else

            GCD = GCD(b, a Mod b)

        End If

    End Function

台中家商 小柯 發表在 痞客邦 留言(0) 人氣()

▲top

Close

您尚未登入，將以訪客身份留言。亦可以上方服務帳號登入留言

請輸入暱稱 ( 最多顯示 6 個中文字元 )

請輸入標題 ( 最多顯示 9 個中文字元 )

請輸入內容 ( 最多 140 個中文字元 )

reload

請輸入左方認證碼：

看不懂,換張圖

請輸入驗證碼