Microsoft Visual Basic 6.0でテキスト1に表示させたい。

質問

Dim i As Integer
Private Sub Command1_Click()
For i = 100 To 1 Step -1
If i Mod 3 = 2 Then
Debug.Print i
End If
Next i
End Sub
のプログラムがあるのですがプログラミング結果が
イミディエイトの方に表示されるのですが
このプログラムの結果をtext1に表示させたいのですが
どのようなプログラムにすれば良いでしょうか？
詳しい方教えてください。

回答No.1

Bickyon · ベストアンサー

現在、Debug.Print i と書いている行のところに
Text1.Text = i と書けば良いのですが、それだと一瞬で最後の答え（２）が表示されるだけです。
Text1のMultiLineプロパティをTrue、ScrollBarsプロパティを2にして、Text1.Text = Text1.Text & i & vbCrLf と書けばイミディエイトウインドウと同じイメージで表示されます。
Forループの前にText1.Text = ""と書くか、プロパティウインドウで、Textプロパティの中身（初期値＝Text）を消しといて下さい。