VBで、このようなことはどうやっら出来るのでしょうか？

こんばんは。単刀直入のこんなことです。

Private Sub Command1_Click()
Dim a As Double
a = a + 1
Text1.Text = a
End Sub

このプログラムを実行して、、コマンドボタン１を押すと　テキスト1には、1が表示されます。

で、やりたいことは、またコマンドボタン１を押すと、テキスト1には2｛a=1(一回目によって代入された値）+1｝が表示されるようにしたいのですが、どうすればよいのでしょうか？

No.2 ベストアンサー 回答者： MovingWalk 回答日時： 2003/12/15 02:50

こんな風にはできませんか？

Private Sub Command1_Click()
Dim a As Double
a = VAL(Text1.Text) + 1
Text1.Text = a
End Sub

但し、Text1.Text = 0　に初期化しておいてください。

No.3 回答者： shishishishi 回答日時： 2003/12/15 18:24

Dim a As Double を

Static a As Integerにかえてみてください。

No.1 回答者： raad 回答日時： 2003/12/15 01:11

変数名aをグローバル変数化してしまえばいいのではないでしょうか？

つまり、Dim～をプログラムの一番最初…Private～の外に記述することです。
心配なら、Form1_Load（例）に a=0 で初期化しておけばどうでしょうか？