VB6でループさせて配列に値を入れて、計算させて最終的に求めたい値をRとします。そのときループで繰り返すためか同じ配列に値を入れてどんどん値がでかくなりRの値がおかしくなってしまいます;
おそらく問題は一回前に入れた配列がそのままのこってしまってるからなのだと思うのですが;
配列の中の値をクリアする方法はないものでしょうか?
一応、配列=0として初期化しようとしても値は変わらず前のが残ったままになってしまっています;
どなたかわかる方いらっしゃいましたらご回答宜しくお願いします
その他何かいい方法があればそれも教えていただけたらと思います
No.2ベストアンサー
- 回答日時:
Eraceステートメントを使用
Dim a() as Long
Dim s(100) as String
Dim x() as Long
Erase a ’要素が0になる
Erase s ’要素が""になる
Redim x(100) as Long
Erase x ’メモリを解放
注)VB2005の場合は動作が異なるので注意して下さい。
さっそくのお返事ありがとうございます<(_ _)>
なるほどEraseを使えばいいんですね
2005とは動作が異なるという貴重なアドバイス
本当にありがとうございます
don_goさんのアドバイスを参考に再度挑戦してみたいと思います
お忙しい中回答ありがとうございます<(_ _)>
No.1
- 回答日時:
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(でしたか)は配列宣言が定数である必要があるので、汎用を考えると使えません。
お返事ありがとうございます<(_ _)>
なるほどローカル変数としてあとはコール文をうまく使っていく方法がだぶらなくて安全そうですね
注意事項まで書いていただきありがとうございます
これを参考に頑張ってみたいと思います
お忙しい中ご回答いただきましてありがとうございます<(_ _)>
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Visual Basic 6.0 コンボボックスのChangeイベントが発生しません
Visual Basic(VBA)
-
VB6.0-整数と余りを求める
Visual Basic(VBA)
-
VB6でユーザー定義型がNothingかどうか調べるには?
Visual Basic(VBA)
-
-
4
VisualBasic6.0のFormat関数でmSecを表示したい
Visual Basic(VBA)
-
5
Redim とEraseの違いは?
Access(アクセス)
-
6
定数配列の書き方
Visual Basic(VBA)
-
7
VB6 開発環境のエディタに行番号を表示
Visual Basic(VBA)
-
8
配列を関数に渡す方法
Visual Basic(VBA)
-
9
テキストボックスの入力制限
Visual Basic(VBA)
-
10
VB6.0 ファイルの一括読込み
Visual Basic(VBA)
-
11
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
12
VBプログラムの終了
Visual Basic(VBA)
-
13
【VB6.0】 あるフォームから他のフォームへ値を受け渡したい
Visual Basic(VBA)
-
14
VB6のメモリ解放に関して
Visual Basic(VBA)
-
15
構造体をコレクションに入れて扱いたいのですが…
コレクション
-
16
メモリ不足
Visual Basic(VBA)
-
17
MSFlexGridのデータを初期化したいのですが。
Visual Basic(VBA)
-
18
frxファイルの役目
Visual Basic(VBA)
-
19
フォームを開く時のイベント処理
Visual Basic(VBA)
-
20
VB6とVB.NETでNullの扱いが違う?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
配列数式の解除
-
2つ以上の変数を比較して最大数...
-
特定のセル範囲で4文字以上入力...
-
for each の現在の配列ポインタ...
-
Dim は何の略ですか?
-
VBA Match関数の限界
-
配列変数の添字が範囲外ですと...
-
subの配列引数をoptionalで使う...
-
verilogで配列の任意の8bitを取...
-
エクセルで最小値から0を除く方法
-
Excel VBA TREND関数について
-
VBA 1次元配列を2次元に追加する
-
VBのFunctionで、配列を引数...
-
ListViewで、非表示列って作れ...
-
順列の作成
-
Excel-VBAの配列「Public Const...
-
FORTRANのCOMMON文
-
Excel VBA配列をFunctionに渡す
-
Excel VBA 2次元配列...
-
《エクセル2000》A列・B列の商...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
配列数式の解除
-
2つ以上の変数を比較して最大数...
-
特定のセル範囲で4文字以上入力...
-
VB6 配列を初期化したい
-
subの配列引数をoptionalで使う...
-
VBA 1次元配列を2次元に追加する
-
ListViewで、非表示列って作れ...
-
for each の現在の配列ポインタ...
-
配列変数の添字が範囲外ですと...
-
エクセルで最小値から0を除く方法
-
2次元動的配列の第一引数のみを...
-
VBのFunctionで、配列を引数...
-
配列を任意の数値で埋める方法
-
《エクセル2000》A列・B列の商...
-
Excel VBA配列をFunctionに渡す
-
AES暗号にて、AES_set_encrypt_...
-
VBA Match関数の限界
-
Array配列の末尾に追加したい。
-
VBAで近似曲線の係数取得
-
配列内の内容を全て表示する方法
おすすめ情報