VB.NET 小程序 3

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label1.Text = ""
        Dim i, j As Integer
        For i = 0 To 5
            For j = 0 To 5
                Label1.Text = Label1.Text & "*"
            Next
            Label1.Text = Label1.Text & Chr(13)
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Label2.Text = ""
        Dim i, j As Integer
        For i = 0 To 5
            For j = 0 To 5
                If j <= i Then
                    Label2.Text = Label2.Text & "*"
                Else
                    Exit For
                End If
            Next
            Label2.Text = Label2.Text & Chr(13)
        Next
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Label3.Text = ""
        Dim i, j As Integer
        For i = 0 To 5
            For j = 0 To 5
                If j > i Then
                    Label3.Text = Label3.Text & "*"
                End If
            Next
            Label3.Text = Label3.Text & Chr(13)
        Next
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Label4.Text = ""
        Dim i, j As Integer
        For i = 0 To 5

            For j = 0 To 5 - i
                Label4.Text = Label4.Text & " "
            Next

            For j = 0 To 2 * i
                Label4.Text = Label4.Text & "*"
            Next

            For j = 0 To 5 - i
                Label4.Text = Label4.Text & " "
            Next

            Label4.Text = Label4.Text & Chr(13)
        Next
    End Sub
End Class