标题:哪儿错了?
只看楼主
cainiao2
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2008-11-20
结帖率:100%
 问题点数:0 回复次数:4 
哪儿错了?
请问下面哪里出错?

Option Base 1
Private Sub Form_Click()
Dim a(9) As Integer, i%
Dim b(3, 3) As Integer, j%
For i = 1 To 9
   a(i) = Int(Rnd * 41 + 20)
   Print a(i)
   Rem
   If i Mod 3 = 0 Then
   Print
Next i
Print
For i = 1 To 3
    For j = 1 To 3
       b(i, j) = i * 20 + j
       Print b(i, j)
    Next j
    Print
Next i
End Sub


[[it] 本帖最后由 cainiao2 于 2008-12-4 22:38 编辑 [/it]]
2008-12-04 22:33
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
得分:0 
If i Mod 3 = 0 Then
加上endif

烈焰照耀世界,斌凍凍千萬裏
2008-12-05 08:23
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
得分:0 
下回貼出錯在那里或提示什么錯誤

烈焰照耀世界,斌凍凍千萬裏
2008-12-05 08:23
cainiao2
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2008-11-20
得分:0 
我发现错误了,第一个then 与 print同一行不分开就行了
2008-12-06 22:17
快乐一整冬
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-5-17
得分:0 
If i Mod 3 = 0 Then
   Print
end if



Print b(i, j)后面要加一个;
要不然都分开显示的.
2008-12-09 10:24



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-247851-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.892010 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved