| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 545 人关注过本帖
标题:哪儿错了?
只看楼主 加入收藏
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
快速回复:哪儿错了?
数据加载中...
 
   



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

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