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

解決

のんち 2005-09-10 18:14:39 No: 125137

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

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

我龍院忠太 2005-09-10 19:55:55 No: 125138

Erase num

のんち 2005-09-10 22:56:30 No: 125139

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

名無し 2005-09-10 23:24:25 No: 125140

つ【解決】わすれもの

のんち 2005-09-10 23:38:24 No: 125141

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