菜鸟请教一个vb输出问题,关于tab()的,在线等谢谢大家!

aierong 2003-01-04 05:33:33
我有一个5×5的矩阵,如下

88 11 11 11 11
11 88 11 11 11
11 11 88 11 11
11 11 11 88 11
11 11 11 11 88

我的目的是单击窗口,可以显示如上矩阵
代码如下

option base 1

private sub form_click()

:
:
: '以上是定义数组a(5,5)并赋值

for i=1 to 5
for j=1 to 5
print tab(3*j);a(i,j);
next j,i
end sub

代码输入完毕后,运行程序,结果显示数组如下
88
11
11
11
11
11
88
11
11
11
11
11
88
11
11
11
11
11
88
11
11
11
11
11
88

为什么会出现这种情况,如我把代码中tab(3*j)改为tab(4*j)或tab(5*j),怎么就可以正常显示如下数组了

88 11 11 11 11
11 88 11 11 11
11 11 88 11 11
11 11 11 88 11
11 11 11 11 88


...全文
52 点赞 收藏 5
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
超级大笨狼 2003-01-05
哈哈,这个问题是无聊的学生时代的事情拉,池塘边的榕树上,知了在声声的叫者夏天

回复
zyl910 2003-01-04
for i=1 to 5
for j=1 to 5
Print Format(a(i,j),"00");" ";
next j
Print
next i
回复
qiuzhongshu 2003-01-04
Dim i As Integer
Dim j As Integer
Dim istr As StringFor i = 1 To 5
istr = ""
For j = 1 To 5
If i = j Then
istr = istr + " " + Str(88)
Else
istr = istr + " " + Str(11)
End If
Next j
Print istr
Next i
回复
qqqdong 2003-01-04
Dim a(5, 5) As Integer
Dim i As Integer
Dim j As Integer
Dim istr As String

For i = 1 To 5
For j = 1 To 5
If i = j Then
a(i, j) = 88
Else
a(i, j) = 11
End If
Next
Next


For i = 1 To 5
istr = ""
For j = 1 To 5
istr = istr + " " + Str(a(i, j))
Next j
Print istr
Next i
回复
redwrite 2003-01-04
奇怪,我测试了,也是这种情况,不知道为什么
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告