3.6  星形矩阵的显示问题

【例1】 利用双重循环输出矩形（共6行，每行8个星号）。

Private Sub Form_Click()

Cls

For i = 1 To 6                   '按行循环

Print Tab(20);                '确定每行首字符的位置

For j = 1 To 8                 '每行连续打印的字符数

Print "*";

Next j

Print                  '打印一行后换行

Next i

End Sub
程序运行结果如图1所示。

                                              

【例2】 利用双重循环输出输出直角三角形。如图2所示。

Private Sub Form_Click()

Cls

For i = 1 To 5            '按行循环

For j = 1 To i           '每行连续打印的字符数

Print "*";

Next j

Print                  '打印一行后换行

Next i

End Sub

 

                                               

【例3】利用双重循环输出如图3所示的三角形。第一行的星号前面有9个空格。

Private Sub Form_Click()

Dim i As Integer, j As Integer

For i = 1 To 6

    Print Spc( 10-i );

    For j = 1 To 2*i-1

      Print "*";

    Next j

    Print

Next i

End Sub

                      

【例4】利用双重循环输出如图4所示的倒三角形。

Private Sub Form_Click()

Dim i As Integer, j As Integer

For i = 6 To 1 step -1

    Print Spc( 10-i );

    For j = 1 To 2*i-1

      Print "*";

    Next j

    Print

Next i

End Sub