二维数组输出的问题?[已解决]

newuser

以下是学习CroosDoor老师的教程遇到的二维数组输出的问题:

Dim $Week[4][3]=[["周一","周二","周三"],["语文","数学","数学"],["英语","语文","体育"],["历史","音乐","班会"]]
ReDim $Week[5][3] ;上面是1天3节课，现在多加了1行，既每天增加了1节课
For $i=0 To 2
        $Week[4][$i]="美术" ;因为行数是从0开始，新加的第5行下标自然就是[4]，这里表示加的课都是美术
Next

For $x=0 To 2
        For $y=0 To 4
                MsgBox(0,"",$Week[$y][$x]&@CRLF)
        Next
Next
我本意是想显示标题为某一天,然后输出改天的所有课程,但越弄越乱?无法实现!

kxing

个人认为这样初始化不好控制，修改为三行四列比较清晰：

Dim $Week[3][4]=[ _
["周一","语文","数学","数学"], _
["周二","英语","语文","体育"], _
["周三","历史","音乐","班会"]]

For $i=0 To 2
MsgBox(0,$Week[$i][0],$Week[$i][1]&" - "&$Week[$i][2]&" - "&$Week[$i][3])
Next

Hen5ei

试试楼上的.,那样比较清晰

3mile

Dim $Week[4][3]=[["周一","周二","周三"],["语文","数学","数学"],["英语","语文","体育"],["历史","音乐","班会"]]
ReDim $Week[5][3] ;上面是1天3节课，现在多加了1行，既每天增加了1节课
Local $str
For $i=0 To 2
        $Week[4][$i]="美术" ;因为行数是从0开始，新加的第5行下标自然就是[4]，这里表示加的课都是美术
Next

For $i=0 To 4
        For $n=0 To 2
                $str&=$week[$i][$n]&@TAB
        Next
        $str&=@CRLF
Next
MsgBox(0,0,$str)

masterpcc

新手！！学习了！谢谢！！

newuser

回复 4# 3mile
& @tab @crlf应用的真的是太棒了!我费了2个多小时也没想出,非常谢谢!

newuser

回复 2# kxing
我想了2个多小时,也想到把行列互换好整些,但只是在循环顺序下手,没想到把数组的结构调整就容易多了,真是退一步海阔天空!

tjwen

新手！！学习了！谢谢！！