close

金幣兌換程式碼

Private Sub B1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles B1.Click

        Dim m, s50, s10, s5, s1

        m = CInt(T1.Text)

        s50 = m \ 50

        T2.Text = s50

        s10 = (m - s50 * 50) \ 10

        T3.Text = s10

        s5 = (m - s50 * 50 - s10 * 10) \ 5

        T4.Text = s5

        s1 = (m - s50 * 50 - s10 * 10 - s5 * 5) \ 1

        T5.Text = s1

    End Sub

End Class

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 allnewtim 的頭像
    allnewtim

    Timmilk

    allnewtim 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄