Print Tab((i - 1) * 8 + 1); x(i);
改为：
Print Tab(((i - 1) Mod 5) * 8); x(i);
换成这个：
Private Sub Command1_Click()
Dim a(1 To 200) As Integer, i%, j%, t%
For i = 1 To 200
a(i) = Int(9000 * Rnd + 1000)
j = j + 1
Print Tab((j - 1) * 8 + 1); a(i);
t = t + 1
If t Mod 10 = 0 Then
Print
j = 0
End If
Next i
End Sub
加个程序
if i mod 10 = 0 then
print x(i);
你可以试一下、
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024