vb简易计算器源码
代码如下： <BR><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code77303"> <BR>/** <BR>*Author:乌鸟heart <BR>*Version:1.0 <BR>*/ <BR>Dim IntX As Double '全局变量，用于存储计算的数值 <BR>Dim IntOperation As Double '标记运算类型 <BR>Dim isBegin As Boolean '标记是否已经给IntX赋值 <BR>Public Sub Clear() '清空命令函数 <br><br>screen.Caption = "" <BR>End Sub <BR>Public Sub SavaToIntX() <br><br>Select Case IntOperation <br><br>Case 1 '加法 <BR>If isBegin = False Then <BR>IntX = Val(screen.Caption) <BR>isBegin = True <BR>Else <BR>IntX = IntX + Val(screen.Caption) <BR>End If <br><br>Case 2 '减法 <BR>If isBegin = False Then <BR>IntX = Val(screen.Caption) <BR>isBegin = True <BR>Else <BR>IntX = IntX - Val(screen.Caption) <BR>End If <br><br>Case 3 '乘法 <BR>If isBegin = False Then <BR>IntX = Val(screen.Caption) <BR>isBegin = True <BR>Else <BR>IntX = IntX * Val(screen.Caption) <BR>'screen.Caption = IntX <BR>End If <br><br>Case 4 '除法 <BR>If isBegin = False Then <BR>IntX = Val(screen.Caption) <BR>isBegin = True <BR>Else <BR>IntX = IntX / Val(screen.Caption) <BR>End If <br><br>End Select <br><br>End Sub <br><br>Private Sub Command0_Click() <BR>screen.Caption = screen.Caption & 0 <BR>End Sub <BR>Private Sub Command1_Click() <BR>screen.Caption = screen.Caption & 1 <BR>End Sub <BR>Private Sub Command2_Click() <BR>screen.Caption = screen.Caption & 2 <BR>End Sub <BR>Private Sub Command3_Click() <BR>screen.Caption = screen.Caption & 3 <BR>End Sub <BR>Private Sub Command4_Click() <BR>screen.Caption = screen.Caption & 4 <BR>End Sub <BR>Private Sub Command5_Click() <BR>screen.Caption = screen.Caption & 5 <BR>End Sub <BR>Private Sub Command6_Click() <BR>screen.Caption = screen.Caption & 6 <BR>End Sub <BR>Private Sub Command7_Click() <BR>screen.Caption = screen.Caption & 7 <BR>End Sub <BR>Private Sub Command8_Click() <BR>screen.Caption = screen.Caption & 8 <BR>End Sub <BR>Private Sub Command9_Click() <BR>screen.Caption = screen.Caption & 9 <BR>End Sub <br><br>Private Sub CommandClear_Click() '清空命令 <BR>isBegin = False <BR>IntOperation = 0 <BR>IntX = 0 <BR>screen.Caption = "" <BR>End Sub <br><br>Private Sub CommandEqual_Click() '等号运算 <br><br>If IntOperation <> 0 Then '有运算标记的情况 <BR>Call SavaToIntX <BR>IntOperation = 0 <BR>isBegin = False <BR>screen.Caption = IntX <BR>End If <br><br>End Sub <br><br>Private Sub CommandMinus_Click() '减法运算 <br><br>If IntOperation <> 0 Then '有运算标记的情况 <BR>Call SavaToIntX <BR>IntOperation = 2 <BR>Call Clear <br><br>Else <BR>IntOperation = 2 <BR>Call SavaToIntX <BR>Call Clear <br><br>End If <BR>End Sub <br><br>Private Sub CommandMultiple_Click() '乘法运算 <BR>If IntOperation <> 0 Then '有运算标记的情况 <BR>Call SavaToIntX <BR>IntOperation = 3 <BR>Call Clear <br><br>Else <BR>IntOperation = 3 <BR>Call SavaToIntX <BR>Call Clear <br><br>End If <br><br>End Sub <br><br>Private Sub CommandPlus_Click() '加法运算 <br><br>If IntOperation <> 0 Then '有运算标记的情况 <BR>Call SavaToIntX <BR>IntOperation = 1 <BR>Call Clear <br><br>Else <BR>IntOperation = 1 <BR>Call SavaToIntX <BR>Call Clear <br><br>End If <br><br>End Sub <br><br>Private Sub CommandSlash_Click() '除法运算 <br><br>If IntOperation <> 0 Then '有运算标记的情况 <BR>Call SavaToIntX <BR>IntOperation = 4 <BR>Call Clear <br><br>Else <BR>IntOperation = 4 <BR>Call SavaToIntX <BR>Call Clear <br><br>End If <BR>End Sub <BR></div><div class="art_xg">
</div>
</div>
<!--endmain-->
頁:
[1]