作者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