用 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
