程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> vb簡略單純盤算器源碼

vb簡略單純盤算器源碼

編輯:VB綜合教程

vb簡略單純盤算器源碼。本站提示廣大學習愛好者:(vb簡略單純盤算器源碼)文章只能為提供參考,不一定能成為您想要的結果。以下是vb簡略單純盤算器源碼正文


代碼以下:

/**
*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
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved