Text1(0)初始化设置height=450,weight=975
似乎还是有点不对
Do
N = InputBox("")
Loop Until N > 0 And N <= 10
For k = 1 To N * N
Load Text1(k)
Text1(k).Visible = True
If k Mod N <> 0 Then
i = k \ N + 1
Else
i = k \ N
End If
j = k Mod N
If j = 0 Then j = k \ N
Text1(k).Top = i * 800
Text1(k).Left = j * 1000
Next