配列データを高速で操作するには？ (ID:116540)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 早くしたいならベタベタに作ってしまうとか。 (i mod 3)だからできること。 3の部分がnになったときは使えないので。 Dim bytData(10) as Byte For i = 0 To UBound(bytData) - 3 Step 3 bytData(i) = bytData(i) Xor bytKey(0) bytData(i + 1) = bytData(i + 1) Xor bytKey(1) bytData(i + 2) = bytData(i + 2) Xor bytKey(2) Next '残りの部分の補正は必要です。 '(bytData(9), bytData(10)は上記FORでは処理されていない) 'ここは考えてね。