| 内容を把握できていませんが。
意訳実装において
Forループの直後に
m = CInt(m / 4)
Dim mq As Integer = CInt(m / 4)
を置きましたが
これは間違いで
Forループの最後に置く必要があることに気が付きました。
Dim m As Integer = n
Dim mq As Integer = m \ 4
For g As Integer = 1 To CInt(Math.Log(n, 4))
~~~計算
m = mq 'l → 256, 64, 16, 4, 1
mq = m \ 4
Next g
これなら問題ないと思いますがどうでしょうか?
|