タイトル : Re: VB6で配列の中のデータをクリアする方法 投稿日 : 2008/02/11(Mon) 19:58 投稿者 : 花ちゃん
> VB6でループさせて配列a(800)に値を入れて、計算させて最終的に求めたい値をRとします。そのときループで繰り返すためか同じ配列に値を入れてどんどん値がでかくなりRの値がおかしくなってしまいます; どうおかしくなるのでしょうか? > おそらく問題は一回前に入れた配列がそのままのこってしまってるからなのだと思うのですが; > 一応、配列a(800)=0として初期化しようと試したのですが、それをしても値は変わらず前の値が残ったままになってしまっています; 普通にすれば、0 になるはずですが。 再現できるコードを作って提示して見て下さい。 Private Sub Command1_Click() Dim a(10) As Integer Dim i As Long For i = 0 To 10 a(i) = i + 1 Next i For i = 0 To 10 a(i) =a(i) + 1 Next i Debug.Print a(10) '結果 12 a(10) = 0 Debug.Print a(10) '結果 0 End Sub |