dim aa() as string
dim n as string
dim i as integer
dimj as integer
n = inputbox("请输入一个整数!")
redim aa(1 to val(n))
for i = 1 to val(n)
for j = 1 to val(n)
aa(i) = "顶"
print" " & aa(i) & " ";
next j
next i
dim n as string
dim i as integer
dimj as integer
n = inputbox("请输入一个整数!")
redim aa(1 to val(n))
for i = 1 to val(n)
for j = 1 to val(n)
aa(i) = "顶"
print" " & aa(i) & " ";
next j
next i