Question

、 在窗体上打印输出以下图形，要求用FOR循环实现。

1
-1 -12
1 12 123
-1 -12-123 -1234

Answer 1

Private Sub Form_click()
Dim a(1 To 4, 1 To 4) As String, k As Integer
Dim i As Integer, j As Integer
k = 1
For i = 1 To 4
a(i, 1) = Str(k * 1)
For j = 2 To i
a(i, j) = a(i, j - 1) & j
Next j
k = -1 * k
Next i

For i = 1 To 4
For j = 1 To i
Print a(i, j);
Next j
Print
Next i
End Sub

Answer 2

图形呢?