怎样编个程序，利用inputbox接收任意正整数n，生成以下格式方阵：
10000 00001 10000 11111
01000 00010 11000 01111
00100 00100 11100 00111
00010 01000 11110 00011
00001 10000 11111 00001


怎样生成？？？告我一声，谢了～～～～～～

你的n和矩阵有什么关系?

Private Sub Command1_Click()
Dim a(4, 4) As Integer
Dim i%, j%
For i = 1 To 4
For j = 1 To 4
a(i, j) = InputBox("input a number")
Debug.Print a(i, j) & " ";
Next
Debug.Print

Next

End Sub

谢了各位～～～～～～～～～～～