第７話 クリアできるようにする
解答例
Dim w As Double
Private Sub CommandButton2_Click()
w = 10 * w + 1
TextBox1.Text = w
End Sub
Private Sub CommandButton12_Click()
w = 0
TextBox1.Text = ""
End Sub
解説
TextBox1.Text = ""だけではだめです。
w = 0も入れないと、初期化になりませんね。
本当の電卓は、０と表示されているので、
Dim w As Double
Private Sub CommandButton2_Click()
w = 10 * w + 1
TextBox1.Text = w
End Sub
Private Sub CommandButton12_Click()
w = 0
TextBox1.Text = 0
End Sub
でもよいですね。
では次の課題です。
２を３回押すと２２２、
２→１→１→２と押すと２１１２などと表示できるように
Private Sub CommandButton3_Click()をコーティングしましょう。
第６話へ 第８話へ
VBA講義第１部へ
vc++講義へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
数学研究室に戻る
