テーブルをクリアするには？

解決

---

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

何回もクリアするため、もっと高速にする方法がないかと
色々調べてみたのですが、わかりませんでした。
何か方法はありませんか？

編集 削除

---

Erase num

編集 削除

---

我龍院忠太さん
できました。ありがとうございました。

編集 削除

---

つ【解決】わすれもの

編集 削除

---

⊂【解決】ありがとう
忘れてました。

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。