電卓で計算するたびカウントするには？ (ID:122335)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 変数が↓です。 Private cal As Integer '1:演算終了 '2:加法 '3:減法 '4:乗法 '5:除法 Private a As Long ↓が足し算の時のソースコードです。 Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click For cal = 0 To 10 cal = cal + (cal > 5) * 5 Select Case cal Case 0, 1 cal = 2 a = Val(TextBox1.Text) TextBox1.Text = Trim(Str(a)) Case 2 cal = 2 a = a + Val(TextBox1.Text) TextBox1.Text = Trim(Str(a)) Case 3 cal = 2 a = a - Val(TextBox1.Text) TextBox1.Text = Trim(Str(a)) Case 4 cal = 2 a = a * Val(TextBox1.Text) TextBox1.Text = Trim(Str(a)) Case 5 If Val(TextBox1.Text) = "0" Then cal = 1 TextBox1.Text = "Error" Else cal = 2 a = a / Val(TextBox1.Text) For cal = 1 To 10 cal = cal + 1 Next End If End Select Next cal End Sub 自分は（＋ − ＊ /）を押したときにカウントを取ってほしいと思っています。