タイトル : Re: 計算結果を表示 投稿日 : 2008/02/05(Tue) 18:21 投稿者 : 花ちゃん
> 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 |