作者Yaiba (水球)
看板Visual_Basic
標題Re: [VBS ] 請問如何重排矩陣？
時間Wed Jan 6 11:18:40 2010
小的只會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
1F：推 lancelet:感謝 01/07 20:41