VB问题，请高手赐教！
随机产生200个4位整数，用print和tab有序函数输出，我写的是这样的：
Private Sub Command1_Click()Dim x(1 To 200) As Integer, i As IntegerFor i = 1 To 200x(i) = Int(9000 * Rnd + 1000)Print Tab((i - 1) * 8 + 1); x(i);Next iEnd Sub运行的结果是这样：
关键是要输出200个数啊，它怎么不自动换行呢？求解！求解！！！O(∩_∩)O谢谢！
O(∩_∩)O谢谢各位啦,@千幻想：那个程序里的j和t,是什么意思？
第1个回答 2012-06-30
Print Tab((i - 1) * 8 + 1); x(i);
改为：
Print Tab(((i - 1) Mod 5) * 8); x(i);追问
改为：
Print Tab(((i - 1) Mod 5) * 8); x(i);追问
(⊙v⊙)嗯，有换行了，而且分五列显示出来，请详细解释下:-D，可以不？O(∩_∩)O谢谢
本回答被提问者采纳第2个回答 2012-06-30
换成这个：
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本回答被网友采纳
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
j = 0
End If
Next i
End Sub本回答被网友采纳
第3个回答 2012-06-29
加个程序
if i mod 10 = 0 then
print x(i);
你可以试一下、
if i mod 10 = 0 then
print x(i);
你可以试一下、
相似回答
大家正在搜