Question

VB作业，用For Next、print，在窗体上用"*"输出一个菱形有格式要求

*
**
****
***
*
要求用多种方法输出这个图形，其中必须有一种格式：
For I =____To____Stpe____
_______________________
For J = ____To____Step____
________________________
Next J
Print
Next I
只是一个使出三角形的语句，按照这样的格式写：
For I = 1 To 4 Stpe 1
Print Space(4 - I);
For J = 1 To 2 * I - 1 Step 1
Print "*" ;
Next J
Print
Next I
现在让输出一个菱形，尤其是还是用这样的格式，顿时蒙了，求答案。

Answer 1

Private Sub Command1_Click()

For I = 1 To 4 Step 1

    Print Space(4 - I);

    For J = 1 To 2 * I - 1 Step 1

        Print "*";

    Next J

    Print

Next I

For I = 3 To 1 Step -1

    Print Space(4 - I);

    For J = 1 To 2 * I - 1 Step 1

        Print "*";

    Next J

    Print

Next I

End Sub

追问

我要以我的那个格式写出来，代码不能多也不能少，这样的我也会。

追答

那要说清楚只用一个二重循环，下面的程序运行结果与上面完全相同：
Private Sub Command1_Click()
For i = -3 To 3 Step 1
Print Space(Abs(i));
For J = 1 To 2 * (4 - Abs(i)) - 1 Step 1
Print "*";
Next J
Print
Next i
End Sub