タイトル : 計算結果を表示 投稿日 : 2008/02/05(Tue) 18:17 投稿者 : mae
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 この場合だったら、Text1に1000と出てほしいのですが、 結果はq1とでます。 教えてください・・・ |