Do N = InputBox("") Loop Until N > 0 And N <= 10 For k = 1 To N * N i = k \ N j = k Mod N Load Text1(i * 10 + j) Next For i = 1 To N For j = 1 To N Text1(i * 10 + j).Visible = True Text1(i * 10 + j).Top = i * 200 Text1(i * 10 + j).Left = j * 200 Next j Next i 这个有啥问题?????
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