作者chph (愁痕飘絮)
看板Visual_Basic
标题Re: [VB6]VB交换问题!!麻烦各位了!!
时间Wed Dec 3 23:41:42 2008
※ 引述《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