vb简易计算器源码

页面导航:首页 > 软件编程 > vb > vb简易计算器源码

vb简易计算器源码

来源:互联网 作者:脚本宝典 时间:2015-07-28 13:12 【

代码如下: 复制代码 代码如下: /** *Author:乌鸟heart *Version:1.0 */ Dim IntX As Double 全局变量,用于存储计算的数值 Dim IntOperation As Double 标记运算类型 Dim isBegin As Boolean 标记是否已经给IntX赋

代码如下: 

复制代码代码如下:


/** 
*Author:乌鸟heart 
*Version:1.0 
*/ 
Dim IntX As Double '全局变量,用于存储计算的数值 
Dim IntOperation As Double '标记运算类型 
Dim isBegin As Boolean '标记是否已经给IntX赋值 
Public Sub Clear() '清空命令函数 

screen.Caption = "" 
End Sub 
Public Sub SavaToIntX() 

Select Case IntOperation 

Case 1 '加法 
If isBegin = False Then 
IntX = Val(screen.Caption) 
isBegin = True 
Else 
IntX = IntX + Val(screen.Caption) 
End If 

Case 2 '减法 
If isBegin = False Then 
IntX = Val(screen.Caption) 
isBegin = True 
Else 
IntX = IntX - Val(screen.Caption) 
End If 

Case 3 '乘法 
If isBegin = False Then 
IntX = Val(screen.Caption) 
isBegin = True 
Else 
IntX = IntX * Val(screen.Caption) 
'screen.Caption = IntX 
End If 

Case 4 '除法 
If isBegin = False Then 
IntX = Val(screen.Caption) 
isBegin = True 
Else 
IntX = IntX / Val(screen.Caption) 
End If 

End Select 

End Sub 

Private Sub Command0_Click() 
screen.Caption = screen.Caption & 0 
End Sub 
Private Sub Command1_Click() 
screen.Caption = screen.Caption & 1 
End Sub 
Private Sub Command2_Click() 
screen.Caption = screen.Caption & 2 
End Sub 
Private Sub Command3_Click() 
screen.Caption = screen.Caption & 3 
End Sub 
Private Sub Command4_Click() 
screen.Caption = screen.Caption & 4 
End Sub 
Private Sub Command5_Click() 
screen.Caption = screen.Caption & 5 
End Sub 
Private Sub Command6_Click() 
screen.Caption = screen.Caption & 6 
End Sub 
Private Sub Command7_Click() 
screen.Caption = screen.Caption & 7 
End Sub 
Private Sub Command8_Click() 
screen.Caption = screen.Caption & 8 
End Sub 
Private Sub Command9_Click() 
screen.Caption = screen.Caption & 9 
End Sub 

Private Sub CommandClear_Click() '清空命令 
isBegin = False 
IntOperation = 0 
IntX = 0 
screen.Caption = "" 
End Sub 

Private Sub CommandEqual_Click() '等号运算 

If IntOperation <> 0 Then '有运算标记的情况 
Call SavaToIntX 
IntOperation = 0 
isBegin = False 
screen.Caption = IntX 
End If 

End Sub 

Private Sub CommandMinus_Click() '减法运算 

If IntOperation <> 0 Then '有运算标记的情况 
Call SavaToIntX 
IntOperation = 2 
Call Clear 

Else 
IntOperation = 2 
Call SavaToIntX 
Call Clear 

End If 
End Sub 

Private Sub CommandMultiple_Click() '乘法运算 
If IntOperation <> 0 Then '有运算标记的情况 
Call SavaToIntX 
IntOperation = 3 
Call Clear 

Else 
IntOperation = 3 
Call SavaToIntX 
Call Clear 

End If 

End Sub 

Private Sub CommandPlus_Click() '加法运算 

If IntOperation <> 0 Then '有运算标记的情况 
Call SavaToIntX 
IntOperation = 1 
Call Clear 

Else 
IntOperation = 1 
Call SavaToIntX 
Call Clear 

End If 

End Sub 

Private Sub CommandSlash_Click() '除法运算 

If IntOperation <> 0 Then '有运算标记的情况 
Call SavaToIntX 
IntOperation = 4 
Call Clear 

Else 
IntOperation = 4 
Call SavaToIntX 
Call Clear 

End If 
End Sub 


Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <