vb代码——计算器.docVIP

第三题 Option Explicit Private StoredValue As Double 中间计算值 Private Store1 As Double Private Const opNone = 0 代表没有运算符 Private Const opAdd = 1 代表加法常量 Private Const opSubtract = 2 代表减法常量 Private Const opMultiply = 3 代表乘法常量 Private Const opDivide = 4 代表除法常量 Private Operator As Integer 计算符号 因子 Private NewEntry As Boolean 新数据项逻辑变量,若为True，说明无新数据 Private jscs As Integer Private Const pi = 3.1415926 Private Sub CmdBack_Click() 删除最后一个字符. Dim txt As String Dim min_len As Integer txt = txtDisplay.Text If Left$(txt, 1) = - Then 假如txt中的第一个字符是负号，只有两个字符，删除就会使之为0 min_len = 2 Else 假如txt是正数，只有一个字符，删除就会使之为0 min_len = 1 End If If Len(txt) min_len Then txtDisplay.Text = Left$(txt, Len(txt) - 1) Else txtDisplay.Text = 0 End If End Sub Private Sub CmdCal_Click(Index As Integer) Select Case Index Case 0 Operator = opAdd Case 1 Operator = opSubtract Case 2 Operator = opMultiply Case 3 Operator = opDivide End Select NewEntry=True 这种方法正确，但显得比较烦琐，下面的方法显得更为简单,不但调用了CmdEqual_Click程序 且运算符号可以直接计算 jscs = jscs + 1 If jscs 1 Then 执行前面的操作 cmdEqual_Click End If 存储操作符 Operator = Index + 1 开始新数据. NewEntry = True End Sub Private Sub cmdClear_Click() cmdClearEntry_Click StoredValue = 0 jscs = 0 Operator = opNone End Sub Private Sub cmdClearEntry_Click() txtDisplay.Text = 0 End Sub Private Sub cmdNum_Click(Index As Integer) If NewEntry Then txtDisplay.Text = Format$(Index) NewEntry = False Else If txtDisplay.Text = 0 Then txtDisplay.Text = Format$(Index) Else txtDisplay.Text = txtDisplay.Text Format$(Index) End If End If End Sub Private Sub cmdOF