テーブルをクリアするには？ (ID:125137)

名前

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

本文 VB6を使用しています。 Dim num(10,500,500) As Integer 上のように定義したテーブルを繰り返し使用するため テーブル全体を0でクリアしたいのですが、 現在は下記のようにForで回してます。 For i = 0 to 10 For j = 0 to 500 For k = 0 to 500 num(i, j, k) = 0 Next Next Next 何回もクリアするため、もっと高速にする方法がないかと 色々調べてみたのですが、わかりませんでした。 何か方法はありませんか？