用vb编写所有三角形

Private Sub Command1_Click()

Dim i%, j% For i = 1 To 9

Print Tab(2 * i - 1);

Print "*";

Next j

Print

Next i

End Sub

Private Sub Command2_Click()

Dim i%, j%

Cls

For i = 1 To 9

Print Tab(19 - 2 * i);

For j = 1 To (2 * i - 1)

Print "*";

Next j

Print

Next i

End Sub

Private Sub Command3_Click() Dim i%, j%

Cls

For i = 1 To 9

For j = 1 To (19 - 2 * i)

Print "*";

Next j

Print

Next i

End Sub

Private Sub Command4_Click() Dim i%, j%

Cls

For i = 1 To 9

For j = 1 To (2 * i - 1)

Print "*";

Next j

Print

Next i

End Sub

Private Sub Command5_Click() Dim i%, j%

Cls

For i = 1 To 9

Print Tab(10 - i);

For j = 1 To (2 * i - 1)

Print "*";

Next j

Print

Next i

End Sub

Private Sub Command6_Click() Dim i%, j%

Cls

For i = 1 To 9

Print Tab(i);

For j = 1 To (19 - 2 * i)

Print "*";

Next j

Print

Next i

End Sub

Private Sub Command7_Click()

Dim i%, j%

Cls

For i = 1 To 9

Print Tab(10 - i);

For j = 1 To (2 * i - 1)

If i = 9 Or j = 1 Or j = (2 * i - 1) Then Print "*";

Else

Print " ";

End If

Next j

Print

Next i

End Sub

Private Sub Command8_Click()

Dim i%, j%

Cls

For i = 1 To 9

Print Tab(i);

For j = 1 To (19 - 2 * i)

If i = 1 Or j = 1 Or j = (19 - 2 * i) Then Print "*";

Else

Print " ";

End If

Next j

Print

Next i

End Sub

Private Sub Command9_Click() Dim i%, j%, m%, s$

Cls

m = 64

For i = 1 To 9

Print Tab(10 - i);

For j = 1 To (2 * i - 1)

If m <= 89 Then

m = m + 1

Else

m = 65

End If

s = Chr(m)

Print s;

Next j

Print

Next i

End Sub