arthurliu's blog

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim a, b, c, d As Integer
        d = 173
        a = d \ 10
        d = d Mod 10
        b = d \ 5
        d = d Mod 5
        c = d \ 1
        Response.Write("10元共" & a & "個
")
        Response.Write("5元共" & b & "個
")
        Response.Write("1元共" & c & "個")
    End Sub
End Class