教えてください。Visual Basic 2010
教えてください。Visual Basic 2010で電卓でわからないところ
Visual Basic 2010で四則演算ができる簡易電卓を 作っています。
下のソースは+,-.×,÷のボタンが押された時の処理なのですが、
3+6-3の計算が、0になってしまします
3+6-の時点で-3と表示されてしまいます。
str1は最初に入力された数値が保存されています。
Private Sub ButtonAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonAdd.Click
flag = 1
Call kei()
End Sub
Private Sub ButtonSub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSub.Click
flag = 2
Call kei()
End Sub
Private Sub ButtonMul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonMul.Click
flag = 3
Call kei()
End Sub
Private Sub ButtonDiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDiv.Click
flag = 4
Call kei()
End Sub
Private Sub kei()
Dim c1 As Single
If IsNumeric(str1) = True Then
c1 = CSng(str1)
Else
Exit Sub
End If
str1 = ""
Select Case flag
Case 1
anser = anser + c1
Case 2
anser = anser - c1
Case 3
anser = anser * c1
Case 4
If c1 = 0 Then Exit Sub
anser = anser / c1
Case Else
anser = c1
End Select
TextBox1.Text = CStr(anser)
flag = 0
End Sub