by tak » 2005年7月06日(水) 16:09
H.K.さんのコードに少し変更を加えて、こちらでも検証しました。
コード: 全て選択
Dim a As QWord, i As DWord
Dim QWArr(64) As QWord
a=&HFFFFFFFFFFFFFFFF
For i = 0 To 64
QWArr(i) = a >> i
Next
Debug
ブレークポイントで配列の内容を表示したところ、すべての要素が&HFFFFFFFFFFFFFFFFとなっていることを確認しました。
シフト演算がうまく行われないようです。
H.K.さんのコードに少し変更を加えて、こちらでも検証しました。
[code]Dim a As QWord, i As DWord
Dim QWArr(64) As QWord
a=&HFFFFFFFFFFFFFFFF
For i = 0 To 64
QWArr(i) = a >> i
Next
Debug[/code]
ブレークポイントで配列の内容を表示したところ、すべての要素が&HFFFFFFFFFFFFFFFFとなっていることを確認しました。
シフト演算がうまく行われないようです。