第２０講　電卓を作ろう！
第８話　２（Private Sub CommandButton3_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 CommandButton12_Click()
　　w = 0
　　TextBox1.Text = ""
End Sub
解説
Private Sub CommandButton2_Click()
　　w = 10 * w + 1
　　TextBox1.Text = w
End Sub
の２カ所だけ変更すればよいのです。


では、皆さん同様にして残りの数字（３４５６７８９０）もコーティングしましょう。



第７話へ　第９話へ

　　

VBA講義第１部へ
vc++講義へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ

数学研究室に戻る