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 · ベストアンサー

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

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

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

回答No.3

shishishishi

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

回答No.1

raad

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

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