Re: [VB6]VB交換問題!!麻煩各位了!!
※ 引述《hebe52h (Aki)》之銘言:
: 100101011101111100100001110101101
: 100010000101111111110000111011110
: 000011001000011100101101101010010
: 000110001010000001011101111001010
: 100101110001001100001011011111100
: 以上面五組為例
: 請問我想把每組的前9位元以兩組方式互換
: 成為五組新的33位元的二進位
: 要怎麼打這程式呢??
: 還有這是我用亂數產生的
: 所以最少可能沒有半組最多有20組
: 我想要以兩組,兩組做偶數組的互換
: 例:1、2互換3、4互換..剩下的第5組放著
: 如果出來為奇數組,最後剩下的一組就不用作互換
: 大概是這樣子!!
: 麻煩各位了!
'定義資料來源
bits = Array("100101011101111100100001110101101", _
"100010000101111111110000111011110", _
"000011001000011100101101101010010", _
"000110001010000001011101111001010", _
"100101110001001100001011011111100" _
)
length = UBound(bits) - LBound(bits) + 1
n = UBound(bits)
'產生組數為奇數組
If length And 1 = 1 Then
n = n - 1
End If
'交換前9bit
For i = LBound(bits) To n Step 2
tmp = bits(i)
bits(i) = Mid(bits(i + 1), 1, 9) & Mid(tmp, 10)
bits(i + 1) = Mid(tmp, 1, 9) & Mid(bits(i + 1), 10)
Next
'輸出結果
For i = LBound(bits) To UBound(bits)
Print bits(i)
Next
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.47.213.7
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):