VB6 配列を初期化したい

VB6でループさせて配列に値を入れて、計算させて最終的に求めたい値をRとします。そのときループで繰り返すためか同じ配列に値を入れてどんどん値がでかくなりRの値がおかしくなってしまいます；
おそらく問題は一回前に入れた配列がそのままのこってしまってるからなのだと思うのですが；
配列の中の値をクリアする方法はないものでしょうか？
一応、配列＝０として初期化しようとしても値は変わらず前のが残ったままになってしまっています；
どなたかわかる方いらっしゃいましたらご回答宜しくお願いします

その他何かいい方法があればそれも教えていただけたらと思います

No.2 ベストアンサー 回答者： don_go 回答日時： 2008/02/11 21:29

Eraceステートメントを使用

　　Dim a() as Long
　　Dim s(100) as String
　　Dim x() as Long

　　Erase a　　　　　’要素が０になる
　　Erase s　　　　　’要素が""になる

　　Redim x(100) as Long

　　Erase x　　　　　　’メモリを解放

注)VB2005の場合は動作が異なるので注意して下さい。

この回答へのお礼

さっそくのお返事ありがとうございます<(_ _)>
なるほどEraseを使えばいいんですね
2005とは動作が異なるという貴重なアドバイス
本当にありがとうございます
don_goさんのアドバイスを参考に再度挑戦してみたいと思います
お忙しい中回答ありがとうございます<(_ _)>

お礼日時：2008/02/11 22:09

No.1 回答者： usokoku 回答日時： 2008/02/11 19:59

sub main()

call tekito(Rの配列の大きさ,,,)
IF (サイド計算する場合) then
call tekito(Rの配列の大きさ,,,)
end if
end

sub tekito(Rの配列の大きさ,,,)
dim R()
redim R(Rの配列の大きさ)

call 配列Rの中身の設定(R())
call 配列Rの中身の計算
IF (初期化が必要な場合) then
redim R(Rの配列の大きさ)
call 配列Rの中身の設定(R())
call 配列Rの中身の計算
end if
end sub

ローカル変数として設定して、初期化し、実行して、サブルーチン終了でローカル変数を破棄する破棄する
方法と
redim を使う方法

があります。dim resum(でしたか)は配列宣言が定数である必要があるので、汎用を考えると使えません。

この回答へのお礼

お返事ありがとうございます<(_ _)>
なるほどローカル変数としてあとはコール文をうまく使っていく方法がだぶらなくて安全そうですね
注意事項まで書いていただきありがとうございます
これを参考に頑張ってみたいと思います
お忙しい中ご回答いただきましてありがとうございます<(_ _)>

お礼日時：2008/02/11 22:13