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
转载于:https://www.cnblogs.com/single-elephant/p/5684081.html
相关资源：vb.net 数字时钟小程序
