Text に計算結果を出したいのですが、うまくいきません。
どこがいけないのでしょうか？？

Private Sub Form_Click()
Dim i As Single
Dim q1 As Single
Dim q As Single

Do While i <= 1000
q1 = q + 1
Text1.Text = "q1"
q1 = q

i = i + 1
Loop
End Sub


この場合だったら、Ｔｅｘｔ１に１０００と出てほしいのですが、
結果はq1とでます。
教えてください・・・

> Private Sub Form_Click()
> Dim i As Single
> Dim q1 As Single
> Dim q As Single
>
> Do While i <= 1000
> q1 = q + 1
この場合、q1 はいくつになっていますか？

> Text1.Text = "q1"

q1 は文字列ですか？　　変数ですか？

> q1 = q

ここで、q1 はいくつになりますか？

>
> i = i + 1
> Loop
> End Sub

F8 キーを押して1行づつ実行して、計算の結果がどうなるか確認して見て下さい。

一度下記を試して見て下さい。
Private Sub Command1_Click()
   Dim Total As Integer
   Dim i     As Long
   For i = 1 To 10
      Total = Total + i
      Debug.Print Total
   Next i
End Sub

花ちゃんさん返信ありがとうございます！！
いま色々試しているところなんですが、
まだできてません・・・
もう少しやってみます。
最終的には、点をランダムに動かして、
どこのエリアにたくさんいたか、統計を取るのが
目標なんですが、上のプログラムができればできそうですよね！！

maeさんが最初に書かれたプログラムについて。
1001回ループさせていますが

１．"q1"という文字列を1001回テキストボックスに書き込んでいること
２．「q」は常に「０」であること
３．「q1」は常に「０」か「１」のどちらかであること

上記３つは理解できていますか？

> 最終的には、点をランダムに動かして、
> どこのエリアにたくさんいたか、統計を取るのが目標なんですが、

とありますが、

１．rnd関数
２．エリアが２次元とすれば２次元配列でカウント

は理解できますか？たとえば５×５のエリアだとした場合

Dim Count(1 to 5,1 to 5) as Long

などと定義する。rnd関数を２つ用意して１〜５をランダムに出力させる。
２つの１〜５を２次元配列に組み込んで、該当する配列に１を加える。

あとは1000回なり1万回なり10万回なりループさせてみて
結果を見てみる。もちろん収束するはずですが・・・

しんごさん！！
お礼の返事が遅れてしまってすみません。
ようやく理解できました！
難しいとこはあったんですが、理想だったものができました。
本当にありがとうございました。