|
|
|
<p>Option Explicit<br/>Dim Op1, Op2 ' 预先输入操作数。<br/>Dim DecimalFlag As Integer ' 小数点存在吗？<br/>Dim NumOps As Integer ' 操作数个数。<br/>Dim LastInput ' 指示上一次按键事件的类型。<br/>Dim OpFlag ' 指示未完成的操作。<br/>Dim TempReadout</p><p>' C (取消) 按钮的 Click 事件过程<br/>' 重新设置显示并初始化变量。<br/>Private Sub Cancel_Click()<br/> Readout = Format(0, "0.")<br/> Op1 = 0<br/> Op2 = 0<br/> Form_Load<br/>End Sub</p><p>' CE (取消输入) 按钮的 Click 事件过程。<br/>Private Sub CancelEntry_Click()<br/> Readout = Format(0, "0.")<br/> DecimalFlag = False<br/> LastInput = "CE"<br/>End Sub</p><p>' 小数点 (.) 按钮的 Click 事件过程<br/>' 如果上一次按键为运算符，初始化 readout 为 "0."；<br/>' 否则显示时追加一个小数点。<br/>Private Sub Decimal_Click()<br/> If LastInput = "NEG" Then<br/> Readout = Format(0, "-0.")<br/> ElseIf LastInput <> "NUMS" Then<br/> Readout = Format(0, "0.")<br/> End If<br/> DecimalFlag = True<br/> LastInput = "NUMS"<br/>End Sub</p><p>' 窗体的初始化过程<br/>' 设置所有变量为其初始值。<br/>Private Sub Form_Load()<br/> DecimalFlag = False<br/> NumOps = 0<br/> LastInput = "NONE"<br/> OpFlag = " "<br/> Readout = Format(0, "0.")<br/> 'Decimal.Caption = Format(0, ".")<br/>End Sub</p><p>' 数字键 (0-9) 的 Click 事件过程<br/>' 向显示中的数追加新数。<br/>Private Sub Number_Click(Index As Integer)<br/> If LastInput <> "NUMS" Then<br/> Readout = Format(0, ".")<br/> DecimalFlag = False<br/> End If<br/> If DecimalFlag Then<br/> Readout = Readout + Number(Index).Caption<br/> Else<br/> Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".")<br/> End If<br/> If LastInput = "NEG" Then Readout = "-" & Readout<br/> LastInput = "NUMS"<br/>End Sub</p><p>' 运算符 (+, -, x, /, =) 的 Click 事件过程<br/>' 如果接下来的按键是数字键，增加 NumOps。<br/>' 如果有一个操作数，则设置 Op1。<br/>' 如果有两个操作数，则将 Op1 设置为 Op1 与<br/>' 当前输入字符串的运算结果，并显示结果。<br/>Private Sub Operator_Click(Index As Integer)<br/> TempReadout = Readout<br/> If LastInput = "NUMS" Then<br/> NumOps = NumOps + 1<br/> End If<br/> Select Case NumOps<br/> Case 0<br/> If Operator(Index).Caption = "-" And LastInput <> "NEG" Then<br/> Readout = "-" & Readout<br/> LastInput = "NEG"<br/> End If<br/> Case 1<br/> Op1 = Readout<br/> If Operator(Index).Caption = "-" And LastInput <> "NUMS" And OpFlag <> "=" Then<br/> Readout = "-"<br/> LastInput = "NEG"<br/> End If<br/> Case 2<br/> Op2 = TempReadout<br/> Select Case OpFlag<br/> Case "+"<br/> Op1 = CDbl(Op1) + CDbl(Op2)<br/> Case "-"<br/> Op1 = CDbl(Op1) - CDbl(Op2)<br/> Case "X"<br/> Op1 = CDbl(Op1) * CDbl(Op2)<br/> Case "/"<br/> If Op2 = 0 Then<br/> MsgBox "除数不能为零", 48, "计算器"<br/> Else<br/> Op1 = CDbl(Op1) / CDbl(Op2)<br/> End If<br/> Case "="<br/> Op1 = CDbl(Op2)<br/> Case "%"<br/> Op1 = CDbl(Op1) * CDbl(Op2)<br/> End Select<br/> Readout = Op1<br/> NumOps = 1<br/> End Select<br/> If LastInput <> "NEG" Then<br/> LastInput = "OPS"<br/> OpFlag = Operator(Index).Caption<br/> End If<br/>End Sub</p><p>' 百分比键 (%) 的 Click 事件过程<br/>' 计算并显示第一个操作数的百分数。<br/>Private Sub Percent_Click()<br/> Readout = Readout / 100<br/> LastInput = "Ops"<br/> OpFlag = "%"<br/> NumOps = NumOps + 1<br/> DecimalFlag = True<br/>End Sub<br/> <br/>□阅读全文(2230) | 回复(1) | 引用通告(0) | 编辑 </p><p></p><p>上一篇：用随机文件编写学生信息管理系统<br/>下一篇：在VB中编写标题栏闪烁的窗体<br/> Re:用VB编写计算器 <br/>□WEF(游客)发表评论于2006-6-18 20:11:00 <br/>Option Explicit <br/>Dim Op1, Op2 ' 预先输入操作数。 <br/>Dim DecimalFlag As Integer ' 小数点存在吗？ <br/>Dim NumOps As Integer ' 操作数个数。 <br/>Dim LastInput ' 指示上一次按键事件的类型。 <br/>Dim OpFlag ' 指示未完成的操作。 <br/>Dim TempReadout </p><p>' C (取消) 按钮的 Click 事件过程 <br/>' 重新设置显示并初始化变量。 <br/>Private Sub Cancel_Click() <br/>Readout = Format(0, "0.") <br/>Op1 = 0 <br/>Op2 = 0 <br/>Form_Load <br/>End Sub </p><p>' CE (取消输入) 按钮的 Click 事件过程。 <br/>Private Sub CancelEntry_Click() <br/>Readout = Format(0, "0.") <br/>DecimalFlag = False <br/>LastInput = "CE" <br/>End Sub </p><p>' 小数点 (.) 按钮的 Click 事件过程 <br/>' 如果上一次按键为运算符，初始化 readout 为 "0."； <br/>' 否则显示时追加一个小数点。 <br/>Private Sub Decimal_Click() <br/>If LastInput = "NEG" Then <br/>Readout = Format(0, "-0.") <br/>ElseIf LastInput <> "NUMS" Then <br/>Readout = Format(0, "0.") <br/>End If <br/>DecimalFlag = True <br/>LastInput = "NUMS" <br/>End Sub </p><p>' 窗体的初始化过程 <br/>' 设置所有变量为其初始值。 <br/>Private Sub Form_Load() <br/>DecimalFlag = False <br/>NumOps = 0 <br/>LastInput = "NONE" <br/>OpFlag = " " <br/>Readout = Format(0, "0.") <br/>'Decimal.Caption = Format(0, ".") <br/>End Sub </p><p>' 数字键 (0-9) 的 Click 事件过程 <br/>' 向显示中的数追加新数。 <br/>Private Sub Number_Click(Index As Integer) <br/>If LastInput <> "NUMS" Then <br/>Readout = Format(0, ".") <br/>DecimalFlag = False <br/>End If <br/>If DecimalFlag Then <br/>Readout = Readout + Number(Index).Caption <br/>Else <br/>Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".") <br/>End If <br/>If LastInput = "NEG" Then Readout = "-" & Readout <br/>LastInput = "NUMS" <br/>End Sub </p><p>' 运算符 (+, -, x, /, =) 的 Click 事件过程 <br/>' 如果接下来的按键是数字键，增加 NumOps。 <br/>' 如果有一个操作数，则设置 Op1。 <br/>' 如果有两个操作数，则将 Op1 设置为 Op1 与 <br/>' 当前输入字符串的运算结果，并显示结果。 <br/>Private Sub Operator_Click(Index As Integer) <br/>TempReadout = Readout <br/>If LastInput = "NUMS" Then <br/>NumOps = NumOps + 1 <br/>End If <br/>Select Case NumOps <br/>Case 0 <br/>If Operator(Index).Caption = "-" And LastInput <> "NEG" Then <br/>Readout = "-" & Readout <br/>LastInput = "NEG" <br/>End If <br/>Case 1 <br/>Op1 = Readout <br/>If Operator(Index).Caption = "-" And LastInput <> "NUMS" And OpFlag <> "=" Then <br/>Readout = "-" <br/>LastInput = "NEG" <br/>End If <br/>Case 2 <br/>Op2 = TempReadout <br/>Select Case OpFlag <br/>Case "+" <br/>Op1 = CDbl(Op1) + CDbl(Op2) <br/>Case "-" <br/>Op1 = CDbl(Op1) - CDbl(Op2) <br/>Case "X" <br/>Op1 = CDbl(Op1) * CDbl(Op2) <br/>Case "/" <br/>If Op2 = 0 Then <br/>MsgBox "除数不能为零", 48, "计算器" <br/>Else <br/>Op1 = CDbl(Op1) / CDbl(Op2) <br/>End If <br/>Case "=" <br/>Op1 = CDbl(Op2) <br/>Case "%" <br/>Op1 = CDbl(Op1) * CDbl(Op2) <br/>End Select <br/>Readout = Op1 <br/>NumOps = 1 <br/>End Select <br/>If LastInput <> "NEG" Then <br/>LastInput = "OPS" <br/>OpFlag = Operator(Index).Caption <br/>End If <br/>End Sub </p><p>' 百分比键 (%) 的 Click 事件过程 <br/>' 计算并显示第一个操作数的百分数。 <br/>Private Sub Percent_Click() <br/>Readout = Readout / 100 <br/>LastInput = "Ops" <br/>OpFlag = "%" <br/>NumOps = NumOps + 1 <br/>DecimalFlag = True <br/>End Sub </p> |
|
发表于 2007-1-26 08:23:10
发表于 2007-1-30 17:31:06