第６話 足し算実行プログラム例
Dim w As Double, v As Double
Private Sub CommandButton0_Click()
w = 10 * w
TextBox1.Text = w
End Sub
Private Sub CommandButton1_Click()
w = 10 * w + 1
TextBox1.Text = w
End Sub
Private Sub CommandButton2_Click()
w = 10 * w + 2
TextBox1.Text = w
End Sub
Private Sub CommandButton3_Click()
w = 10 * w + 3
TextBox1.Text = w
End Sub
Private Sub CommandButton4_Click()
w = 10 * w + 4
TextBox1.Text = w
End Sub
Private Sub CommandButton5_Click()
w = 10 * w + 5
TextBox1.Text = w
End Sub
Private Sub CommandButton6_Click()
w = 10 * w + 6
TextBox1.Text = w
End Sub
Private Sub CommandButton7_Click()
w = 10 * w + 7
TextBox1.Text = w
End Sub
Private Sub CommandButton8_Click()
w = 10 * w + 8
TextBox1.Text = w
End Sub
Private Sub CommandButton9_Click()
w = 10 * w + 9
TextBox1.Text = w
End Sub
Private Sub CommandButtonCE_Click()
w = 0
TextBox1.Text = ""
End Sub
Private Sub CommandButtonT_Click()
v = TextBox1.Text
w = 0
End Sub
Private Sub CommandButtonE_Click()
TextBox1.Text = w + v
w = 0
v = 0
End Sub
参考ダウンロード添付ファイル
さて、次は
をコーティングして引き算も出来るようにしますが、その際に、もう一つグローバル変数を用意する必要もありますし、
Private Sub CommandButtonE_Click()
TextBox1.Text = w + v
w = 0
v = 0
End Sub
も改良しなければなりなりません。
