Question

vb循环做一菱形

形状：每边为6 个×

Answer 1

Dim i As Integer
For i = 1 To 11
Print Space(Abs(6 - i));
Print String((5 - Abs(6 - i)) * 2 + 1, "X")
Next
XP+VB6运行通过!!

Answer 2

For i = -5 To 5
Print Tab(Abs(i) + 1);
For j = Abs(i) - 5 To 5 - Abs(i)
Print "*";
Next j
Print
Next i

如果是×
For i = -5 To 5
Print Tab((Abs(i) + 1)*2);
For j = Abs(i) - 5 To 5 - Abs(i)
Print "×";
Next j
Print
Next i

Answer 3

Dim R(1 To 11) As String, i As Integer
R(1) = Space(5) + "X"
For i = 2 To 6
R(i) = Space(6 - i) + "X" + Space(2 * i - 3) + "X"
Next i
For i = 7 To 11
R(i) = R(12 - i)
Next i
For i = 1 To 11
Print R(i)
Next i