阿罵尼 ` Station

  Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim A As Integer = 100
        Dim B As Integer = 75
        Dim X As Integer = 30000
        Dim I As Integer = 0
        While X >= 0
            X = X - 100 - 75
            I += 1
        End While
        Response.Write("A和B在" & I & "秒後相遇。")
    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim x, y, z As Integer
        Dim a As Integer = 173
        x = a / 10
        y = Int((a - x * 10) >= 5)
        z = a - x * 10 - y * 5
        Response.Write("可兌換10元" & x & "個，5元" & y & "個，1元" & z & "個")
    End Sub

    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim i, j As Integer
        For i = 1 To 7 Step 2
            For j = 1 To i
                Response.Write("*")
            Next
            Response.Write("<BR>")
        Next
        For i = 5 To 1 Step -2
            For j = 1 To i
                Response.Write("*")
            Next
            Response.Write("<BR>")
        Next
    End Sub

    Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim x() As Integer = {7, 36, 47, 39, 19, 25, 54, 13, 61, 8}
        Dim i, j, tmp As Integer
        For i = 0 To 9
            For j = 0 To 9
                If x(i) > x(j) Then
                    tmp = x(j)
                    x(j) = x(i)
                    x(i) = tmp
                End If
            Next
        Next

        For Each temp As Integer In x
            Response.Write(" " & temp)
        Next temp
        'For i = 0 To 9
        'Response.Write(" " & x(i))
        'Next
    End Sub