下列程序用来在窗体上输出如下图所示大小可变的正方形数据。 Dim a() As Integer Private Sub Form_Click() Dim n As Integer, i As Integer Dim j As Integer, k As Integer n = Val(InputBox("请输入数据:")) For i = 1 To For j = i To n - i + 1 For k = i To n - i + 1 Next k, j, i For i = 1 To n For j = 1 To n Print Tab(j * 3); a(i, j); Next j Next i End Sub