第９話 残りの数字（Private Sub CommandButton*_Click()）のコーティング
解答例
Dim w As Double
Private Sub CommandButton2_Click()
w = 10 * w + 1
TextBox1.Text = w
End Sub
Private Sub CommandButton3_Click()
w = 10 * w + 2
TextBox1.Text = w
End Sub
Private Sub CommandButton4_Click()
w = 10 * w + 3
TextBox1.Text = w
End Sub
Private Sub CommandButton5_Click()
w = 10 * w + 4
TextBox1.Text = w
End Sub
Private Sub CommandButton6_Click()
w = 10 * w + 5
TextBox1.Text = w
End Sub
Private Sub CommandButton7_Click()
w = 10 * w + 6
TextBox1.Text = w
End Sub
Private Sub CommandButton8_Click()
w = 10 * w + 7
TextBox1.Text = w
End Sub
Private Sub CommandButton9_Click()
w = 10 * w + 8
TextBox1.Text = w
End Sub
Private Sub CommandButton10_Click()
w = 10 * w + 9
TextBox1.Text = w
End Sub
Private Sub CommandButton11_Click()
w = 10 * w
TextBox1.Text = w
End Sub
Private Sub CommandButton12_Click()
TextBox1.Text = ""
w = 0
End Sub
解説
説明は入りませんよね。基本的の同じことの繰り返しですから。数字だけ帰ればよいのです。
ただ、少し違うのは数字０（Private Sub CommandButton11_Click()）のコーティングだけです。
でもこれもw = 10 * wの部分をw = 10 * w + 0であると解釈すれば結局同じです。
さて、最後の課題です。×、÷、＋、−、＝の部分をそれぞれコーティングしてください。
結構難しいですよ。
第８話へ 第１０話へ
VBA講義第１部へ
vc++講義へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
数学研究室に戻る
