vb简易计算器源码_vb教程-查字典教程网
vb简易计算器源码
vb简易计算器源码
发布时间:2016-12-28 来源:查字典编辑
摘要:代码如下:复制代码代码如下:/***Author:乌鸟heart*Version:1.0*/DimIntXAsDouble'全局变量,用于存...

代码如下:

复制代码 代码如下:

/**

*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

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新vb学习
    热门vb学习
    编程开发子分类