Re: [VBS ] 請問如何重排矩陣？

[Yaiba (水球)]

小的只會VB6
你參考重點在迴圈的使用

Option Explicit

Private Sub Form_Load()
    Dim sStr As String
    Dim X_MAX As Integer
    Dim M_MAX As Integer
    Dim N_MAX As Integer
    Dim X As Integer
    Dim M As Integer
    Dim N As Integer
    X_MAX = 2
    M_MAX = 4
    N_MAX = 3

    For X = 1 To X_MAX
        For M = 1 To M_MAX
            For N = 1 To N_MAX
                sStr = sStr & "X" & (M + (N - 1) * M_MAX + (X - 1) * (M_MAX * N_MAX)) & vbTab
            Next N
            sStr = sStr & vbCrLf
        Next M
    Next X
    MsgBox sStr
    End
End Sub


※ 引述《lancelet (修行非為絕情)》之銘言：
: 假設 m=列 n=行
: m=4 n=3
: console.write 後的結果
: X0001   X0005   X0009
: X0002   X0006   X0010
: X0003   X0007   X0011
: X0004   X0008   X0012
: 但是今天麻煩的是還有一個 m*n 的倍數，假設 L=2*m*n
: console.write 需要排成
: X0001   X0005   X0009
: X0002   X0006   X0010
: X0003   X0007   X0011
: X0004   X0008   X0012
: X0013   X0017   X0021
: X0014   X0018   X0022
: X0015   X0019   X0023
: X0016   X0020   X0024
: 我剛才試了 for
: 似乎過不了第三圈
: 麻煩高手賜教

--

常發人好人名片
　　　Yaiba：您好，我是好人
　　　　　　幫正妹組電腦送到府
　　　　　　　　　外加一年到府維護

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 117.19.212.68
推 lancelet:感謝