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
        For i As Integer = 1 To 4
            For j As Integer = 1 To (2 * i - 1)
                Response.Write("*")
            Next
            Response.Write("
")
        Next

        For i As Integer = 3 To 1 Step -1
            For j As Integer = (2 * i - 1) To 1 Step -1
                Response.Write("*")
            Next
            Response.Write("
")
        Next
    End Sub
End Class