VB计算器代码

来源：百度知道编辑：UC知道时间：2024/05/09 10:22:03

本程序能运行，但是输入1+2+3=5？输入2+3+4=7？请高手解决这个问题
本程序不要0，不要. 共15个按钮,1--9分别为1至9 ,10---13 分别为+ - * / ，14为等于号，15为清屏.

Dim flag As Integer
Dim s1 As String

Private Sub Command1_Click() 数字“1”
Text1.Text = Text1.Text + Str$(1)
End Sub

Private Sub Command2_Click() 数字“2”
Text1.Text = Text1.Text + Str$(2)
End Sub

Private Sub Command3_Click() 数字“3”
Text1.Text = Text1.Text + Str$(3)
End Sub

Private Sub Command4_Click() 数字“4”
Text1.Text = Text1.Text + Str$(4)
End Sub

Private Sub Command5_Click() 数字“5”
Text1.Text = Text1.Text + Str$(5)
End Sub

Private Sub Command6_Click() 数字“6”
Text1.Text = Text1.Text + Str$(6)
End Sub

Private Sub Command7_Click() 数字“7”
Text1.Text = Text1.Text + Str$(7)
End Sub

Private Sub Command8_Click() 数字“8”
Text1.Text = Text1.Text + Str$(8)
End

'这是我改的程序,看不懂的可以Q(287944966)我一同探讨一下
Dim flag As Integer
Dim s1 As String

Private Sub Command1_Click() '数字“1”
Text1.Text = Text1.Text + Str$(1)
End Sub

Private Sub Command2_Click() '数字“2”
Text1.Text = Text1.Text + Str$(2)
End Sub

Private Sub Command3_Click() '数字“3”
Text1.Text = Text1.Text + Str$(3)
End Sub

Private Sub Command4_Click() '数字“4”
Text1.Text = Text1.Text + Str$(4)
End Sub

Private Sub Command5_Click() '数字“5”
Text1.Text = Text1.Text + Str$(5)
End Sub

Private Sub Command6_Click() '数字“6”
Text1.Text = Text1.Text + Str$(6)
End Sub

Private Sub Command7_Click() '数字“7”
Text1.Text = Text1.Text + Str$(7)
End Sub

Private Sub Command8_Click() '数字“8”
Text1.Text = Text1.Text + Str$(8)
End Sub

Private Sub Command9_Click() '数字“9”
Text1.Text = Text1.Text + Str$(

求VB计算器代码计算器VB代码 VB计算器代码求一个VB计算器代码谁知道人品计算器VB代码? 急求VB计算器代码我的vb计算器代码紧急！垂泣跪求VB简易计算器代码！求一个VB简易计算器代码用VB编计算器的代码是什么?