Question

用VB双重循环输出下列图形* *** ***** ******* ***** *** *

是VB 的啊

Answer 1

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

For i = -3 To 3

Print Tab(Abs(i) + 1);

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

Print "*";

Next j

Print

Next i

End Sub

Answer 2

是不是棱形的？ Private Sub form_Click()
Dim I As Integer, J As Integer
For I = 1 To 4
For J = 1 To 4 - I
Print " ";
Next
For J = 1 To 2 * I - 1
Print "*";
Next
Print
NextFor I = 3 To 1 Step -1
For J = 1 To 4 - I
Print " ";
Next
For J = 1 To 2 * I - 1
Print "*";
Next
Print
NextEnd Sub