計算器的vb編程代碼

A. 怎樣用vb編程一部簡單的計算器呢

1、打開VB新建一個EXE。

B. 用VB編寫一個計算器程序的代碼

1、創建控制項組的方法
首先創建一個命令按鈕，調整其大小（覺得合適就行），名稱為Command1，Caption 屬性為數字 0 ；然後進行「復制」和「粘貼」，當選擇「粘貼」時，出現對話框提示已有一個同名控制項，詢問是否創建控制項組，選擇「是」後，即創建了一個名為「Command」的控制項組。

這時，第一個按鈕的Index屬性值默認為「0」，第二個的Index屬性值自動設為「1」，並且大小與第一個按鈕相同，只需修改其 Caption 屬性為數字「1」並將其拖至合適位置即可。此後繼續使用「粘貼」的方法建立其他控制項組中其餘按鈕，共20個按鈕，每建立一個，就將它拖到合適處，並修改相應的Caption屬性值。

2、各控制項組其屬性設置如下：

二、編寫代碼

Dim s1 As Single， s2 As Single， ysf As String

『定義兩個單精度數變數用與存放參與運算的數，一個字元型存放運算符

Private Sub Command1_Click（Index As Integer）

Text1.Text = Text1.Text & Command1（Index）.Caption 』將command1的單擊事件與文本框顯示的內容連接

End Sub

Private Sub Command2_Click（）

Text1.Text = Text1.Text + 「。」

If （InStr（Text1.Text， 「。」） = 1） Then 『第一位不能為小數

Text1.Text = 「」

End If

If InStr（Text1.Text， 「。」） 《 Len（Text1.Text） Then 』防止出現兩個小數點

Text1.Text = Left

（Text1.Text， Len（Text1.Text） - 1）

End If

End Sub

Private Sub

Command3_Click（）

s2 = Val（Text1.Text） 『開始加減乘除運算

Select Case ysf Case 「+」

Text1.Text = s1 + s2

Case 「-」

Text1.Text = s1 - s2

Case 「*」

Text1.Text = s1 * s2

Case 「/」

If s2 = 0 Then

MsgBox 「分母不能為零！」

Text1.Text = 「」

Else

Text1.Text = s1 / s2 End If End Select

Text1 = IIf（Left（Text1.Text， 1） = 「。」， 0 & Text1.Text， Text1.Text） 『

這個很關鍵，如果沒有這個的話，得出小於1的小數前面沒有0

End Sub

Private Sub Command4_Click（）

If Text1.Text = 「」 Then 』文本為空就結束

Exit Sub

End If

Text1.Text = Left（Text1.Text， Len（Text1.Text） - 1） 『文本退一格

End Sub

Private Sub Command5_Click（）

Text1.Text = 「」 』清除當前框內文本

End Sub

Private Sub Command6_Click（Index As Integer）

s1 = Val（Text1.Text） 『將s1隱藏起來 ysf = Command6（Index）.Caption

Text1.Text = 「」

End Sub

Private Sub Command7_Click（）

If Left（Text1.Text， 1） 《》 「-」 Then 』判斷作為負數

Text1.Text = 「-」 & Text1.Text

Else

Text1.Text = Right（Text1.Text， Len（Text1.Text） - 1）

End If

End Sub

Private Sub Command8_Click（）

Text1.Text = Text1.Text * Text1.Text 『平方

End Sub

拓展資料

Visual Basic（VB）是由微軟公司開發的包含環境的事件驅動編程語言。它源自於BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連接資料庫，或者輕松的創建ActiveX控制項。程序員可以輕松地使用VB提供的組件快速創建一個應用程序。

參考鏈Visual Basic——網路接

C. 用VB編寫計算器的代碼如何寫

在窗體上放置以下控制項：
1、lblResult
Label控制項
設置lblResult.Caption
=
0
2、btnNum(0)~btnNum(9)
按鈕控制項數組，下標對應齊數字（如：btnNum(0).Caption=0，依次類推）
3、添加btnAdd（加法）、btnSub（減法）、btnMul（乘法）、btnDiv（除法）、btnEnter（等於號）、btnReset（清除鍵）六個按鈕。
在窗體代碼中輸入以下內容：
Dim
byteOperation
As
Byte
'操作符
Dim
byteTmp
As
Byte
'臨時操作符
Dim
intNum
As
Double
'輸入的數字
Sub
Calc()
Select
Case
byteOperation
Case
1
'Add
lblResult.Caption
=
CDbl(lblResult.Caption)
+
intNum
Case
2
'Sub
lblResult.Caption
=
intNum
-
CDbl(lblResult.Caption)
Case
3
'Mul
lblResult.Caption
=
CDbl(lblResult.Caption)
*
intNum
Case
4
'Div
lblResult.Caption
=
intNum
/
CDbl(lblResult.Caption)
Case
Else
End
Select
End
Sub
Private
Sub
btnNum_Click(Index
As
Integer)
If
byteTmp
<>
0
Then
intNum
=
lblResult.Caption
lblResult.Caption
=
0
byteTmp
=
0
End
If
If
lblResult.Caption
=
0
Then
lblResult.Caption
=
Index
Else
If
Len(lblResult.Caption)
<
9
Then
lblResult.Caption
=
lblResult.Caption
&
Index
End
If
End
If
End
Sub
Private
Sub
btnAdd_Click()
If
byteOperation
<>
0
Then
Call
Calc
End
If
byteOperation
=
1
byteTmp
=
1
End
Sub
Private
Sub
btnReset_Click()
byteTmp
=
0
byteOperation
=
0
intNum
=
0
lblResult.Caption
=
0
End
Sub
Private
Sub
btnSub_Click()
If
byteOperation
<>
0
Then
Call
Calc
End
If
byteOperation
=
2
byteTmp
=
2
End
Sub
Private
Sub
btnMul_Click()
If
byteOperation
<>
0
Then
Call
Calc
End
If
byteOperation
=
3
byteTmp
=
3
End
Sub
Private
Sub
btnDiv_Click()
If
byteOperation
<>
0
Then
Call
Calc
End
If
byteOperation
=
4
byteTmp
=
4
End
Sub
Private
Sub
btnEnter_Click()
Call
Calc
byteTmp
=
0
End
Sub

D. 怎樣用VB編寫簡單的計算器程序

其實比較簡單啦,用一個窗體就可以實現啦!
我自己寫的,你可以看看
Option Explicit
Dim strNumber As String
Dim strPoint As String
Dim dblNum1 As Double
Dim intOperator As Integer
'清除結果
Private Sub cmdGT_Click()
txtDisplay.Text = "0."
strNumber = ""
strPoint = "."
intOperator = 7
End Sub
'輸入數字
Private Sub cmdNumber_Click(Index As Integer)
strNumber = strNumber & cmdNumber(Index).Caption
txtDisplay.Text = strNumber & strPoint
End Sub

Private Sub cmdOnOff_Click()
End
End Sub
'運算過程
Private Sub cmdOperator_Click(Index As Integer)
Dim dblnum2 As Double
'是第一次單擊運算符時，將輸入的值先賦給第一個數，否則賦值給第二個數進行運算
If intOperator = 7 Then
dblNum1 = CDbl(txtDisplay.Text)
Else
dblnum2 = CDbl(Val(txtDisplay.Text))
'根據輸入的符號進行運算
'求普通運算
Select Case intOperator
Case 0
dblNum1 = dblNum1 + dblnum2
Case 1
dblNum1 = dblNum1 - dblnum2
Case 2
dblNum1 = dblNum1 * dblnum2
Case 3
If dblnum2 <> 0 Then
dblNum1 = dblNum1 / dblnum2
Else
MsgBox "除數不能為「0」！請重新輸入除數。", vbOKOnly + vbInformation, "除零錯誤"
Index = intOperator
End If
Case 6
dblNum1 = dblNum1 * dblnum2 / 100
End Select
End If

'取得當前輸入的運算符，以做下次運算
intOperator = Index
strNumber = ""
txtDisplay = CStr(dblNum1)
'判斷是否為文本框中的數字加點
If Not txtDisplay Like "*.*" Then
txtDisplay.Text = txtDisplay.Text & "."
End If
End Sub

Private Sub cmdOtherOper_Click(Index As Integer)
Dim dblNum As Double
'求平方根，平方，
dblNum = CDbl(Val(txtDisplay.Text))

Select Case Index
Case 0
'驗證數據是否有效
If dblNum >= 0 Then
txtDisplay.Text = CStr(Sqr(dblNum))
Else
MsgBox "負數不能開平方根！", _
vbOKOnly + vbCritical, "開平方根錯誤"
End If
Case 1
txtDisplay.Text = CStr(dblNum ^ 2)
End Select
'判斷是否為文本框中的數字加點
If Not txtDisplay Like "*.*" Then
txtDisplay.Text = txtDisplay.Text & "."
End If
End Sub

Private Sub cmdPoint_Click()
strNumber = strNumber & strPoint
strPoint = ""
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'使被按下的數字鍵的對應按鈕取得焦點
Select Case KeyCode
Case 48 To 57
cmdNumber(KeyCode - 48).SetFocus
Case 96 To 105
cmdNumber(KeyCode - 96).SetFocus
Case Else
'使按下的符號鍵對應的按鈕取得焦點
If KeyCode = 107 Or (Shift = vbShiftMask And KeyCode = 187) Then
cmdOperator(0).SetFocus
cmdOperator_Click (0)
ElseIf KeyCode = 109 Or KeyCode = 189 Then
cmdOperator(1).SetFocus
cmdOperator_Click (1)
ElseIf KeyCode = 106 Or (Shift = vbShiftMask And KeyCode = 56) Then
cmdOperator(2).SetFocus
cmdOperator_Click (2)
ElseIf KeyCode = 111 Or KeyCode = 191 Then
cmdOperator(3).SetFocus
cmdOperator_Click (3)
ElseIf KeyCode = 13 Then
cmdOperator(7).SetFocus
cmdOperator_Click (7)
ElseIf KeyCode = 8 Then
cmdGT.SetFocus
Call cmdGT_Click
End If
End Select
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
'將合法的數據輸入到文本框
Select Case KeyAscii
Case 48 To 58
'調用數字鍵點擊處理程序
cmdNumber_Click KeyAscii - 48
KeyAscii = 0
Case 46
'調用小數點輸入
cmdPoint_Click
KeyAscii = 0
Case 13
'當敲擊回車時，不能觸發Form的 KeyUp 事件，因此在這里設置文本框的焦點
txtDisplay.SetFocus
Case Else
KeyAscii = 0
End Select
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay.SetFocus
End Sub

Private Sub Form_Load()
strNumber = ""
strPoint = "."
intOperator = 7
End Sub

E. 計算器的vb代碼是什麼

Dim 符號 As String
Private Sub Command1_Click()
Select Case 符號
Case "+"
Text3 = Val(Text1) + Val(Text2)
Case "-"
Text3 = Val(Text1) - Val(Text2)
Case "*"
Text3 = Val(Text1) * Val(Text2)
Case "/"
Text3 = Val(Text1) / Val(Text2)
End Select
End Sub

Private Sub Form_Load()
Command1.Enabled = False
Command1.Caption = "運算"
Text1 = ""
Text2 = ""
Text3 = ""
Option1.Caption = "加"
Option2.Caption = "減"
Option3.Caption = "乘"
Option4.Caption = "除"
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then 符號 = "+"
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then 符號 = "-"
End Sub
Private Sub Option3_Click()
If Option3.Value = True Then 符號 = "*"
End Sub
Private Sub Option4_Click()
If Option4.Value = True Then 符號 = "/"
End Sub

Private Sub Text2_Change()
If Text1 <> "" And Text2 <> "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub

簡單寫一個~希望對你有幫助 一個按鈕 3個文本框 4個單選

F. 用vb編程做一個簡單的計算器程序代碼

Option Explicit

Dim Op1, Op2 ' 預先輸入操作數。
Dim DecimalFlag As Integer ' 小數點存在嗎？
Dim NumOps As Integer ' 操作數個數。
Dim LastInput ' 指示上一次按鍵事件的類型。
Dim OpFlag ' 指示未完成的操作。
Dim TempReadout

' C (取消) 按鈕的 Click 事件過程
' 重新設置顯示並初始化變數。
Private Sub Cancel_Click()

Readout = Format(0, "0.")
Op1 = 0
Op2 = 0
Form_Load

End Sub

' CE (取消輸入) 按鈕的 Click 事件過程。
Private Sub CancelEntry_Click()

Readout = Format(0, "0.")
DecimalFlag = False
LastInput = "CE"

End Sub

' 小數點 (.) 按鈕的 Click 事件過程
' 如果上一次按鍵為運算符，初始化 readout 為 "0."；
' 否則顯示時追加一個小數點。
Private Sub Decimal_Click()

If LastInput <> "NUMS" Then
Readout = Format(0, "0.")
End If
DecimalFlag = True
LastInput = "NUMS"

End Sub

' 窗體的初始化過程
' 設置所有變數為其初始值。
Private Sub Form_Load()

DecimalFlag = False
NumOps = 0
LastInput = "NONE"
OpFlag = ""
Readout = Format(0, "0.")

End Sub

'改變數字的正負號
Private Sub negcmd_Click()

If LastInput <> "OPS" Or OpFlag = "=" Then
If Left(Readout, 1) <> "-" Then
Readout = "-" & Readout
Else
Readout = Right(Readout, Len(Readout) - 1)
End If
End If

End Sub

' 數字鍵 (0-9) 的 Click 事件過程
' 向顯示中的數追加新數。
Private Sub Number_Click(Index As Integer)

If LastInput <> "NUMS" Then
Readout = Format(0, ".")
DecimalFlag = False
End If
If DecimalFlag Then
Readout = Readout + Number(Index).Caption
Else
Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".")
End If
LastInput = "NUMS"

End Sub

' 運算符 (+, -, x, /, =) 的 Click 事件過程
' 如果接下來的按鍵是數字鍵，增加 NumOps。
' 如果有一個操作數，則設置 Op1。
' 如果有兩個操作數，則將 Op1 設置為 Op1 與
' 當前輸入字元串的運算結果，並顯示結果。
Private Sub Operator_Click(Index As Integer)

TempReadout = Readout
If LastInput <> "OPS" Then
NumOps = NumOps + 1
End If
Select Case NumOps
Case 0
'什麼也不做
Case 1
Op1 = Readout
Case 2
Op2 = TempReadout
Select Case OpFlag
Case "+"
Op1 = CDbl(Op1) + CDbl(Op2)
Case "-"
Op1 = CDbl(Op1) - CDbl(Op2)
Case "X"
Op1 = CDbl(Op1) * CDbl(Op2)
Case "/"
If Op2 = 0 Then
MsgBox "除數不能為零", 48, "計算器"
Else
Op1 = CDbl(Op1) / CDbl(Op2)
End If
Case "="
Op1 = CDbl(Op2)
Case "%"
Op1 = CDbl(Op1) * CDbl(Op2)
End Select
Readout = Op1
NumOps = 1
End Select
LastInput = "OPS"
OpFlag = Operator(Index).Caption

End Sub

' 百分比鍵 (%) 的 Click 事件過程
Private Sub Percent_Click()

If LastInput <> "OPS" Or OpFlag = "=" Then
Readout = Readout / 100
LastInput = "PER"
DecimalFlag = True
End If

End Sub

G. 計算器的VB程序代碼

function
caption(n1,n2,action)
dim
result
select
case
action
case
1
result=n1+n2
case
2
result=n1-n2
case
3
result=n1*n2
case
4
result=n1/n2
end
select
return
cstr(result)
end
function
普通計算器代碼，具體的可以修改一下。

H. 用vb 編寫計算器怎麼編

Dim x!, N1!, N2! ' N1,N2分別代表輸入的第一個數和第二個數
Dim StrN1$, StrN2$ ' StrN1,StrN2分別代表輸入第一個數和第二個數的字元串形式
Dim FirstN As Boolean ' 判斷是否是數字開頭

Dim PointFlag As Boolean ' 判斷是否已有小數點

Dim Runsign As Integer ' 變數Runsign用來儲存運算符號
Dim SignFlag As Boolean ' 變數SignFlag判斷是否已有運算符號

Private Sub Form_Load()
N1 = 0: N2 = 0 ' 令 N1 和 N2 為 0
StrN1 = "": StrN2 = "" ' 令 StrN1 和 StrN2 為空串
FirstN = True ' 確定為數字開頭

PointFlag = False ' 將 PointFlag 設為否，即沒有小數點

Runsign = 0
SignFlag = False ' 沒有運算符號輸入

End Sub
Private Sub CmdN_Click(Index As Integer)
Select Case Index ' 用Index 作為判斷分支的條件
Case 0 To 9 ' 如果Index是0到9,即數字
If FirstNum Then ' 輸入為第一個數字的話
StrN1 = Str(Index) ' 實型轉字元型
FirstN = False ' 初賦值標志為假
Else ' 輸入不是第一個數字的話
StrN1 = StrN1 + Str(Index) ' 將輸入的字元添加到原有字元串上
End If ' 結束 if 塊
Labxs.Caption = StrN1 ' 將字元串結果顯示到標簽上

Case 10 ' 如果輸入為小數點
If Not PointFlag Then ' 如果沒有小數點
If FirstN Then ' 如果是第一個字元
StrN1 = "0." ' 顯示為" 0." 不變
FirstN = False ' 初賦值標志為假
Else ' 否則
StrN1 = StrN1 + "." ' 字元串上加上小數點符號
End If ' 結束if塊
Else ' 已有小數點
Exit Sub ' 則退出單擊事件,也就是對單擊事件不反應
End If
PointFlag = True ' 將小數點標志為真,即在輸入串中有了小數點
Labxs.Caption = StrN1 ' 在顯示屏上顯示數字串

Case 11 ' 如果輸入等號
If Not SignFlag Then ' 如果沒有輸入運算符
Labxs.Caption = StrN1 ' 以下均為重置各個變數
Ysjg = Val(StrN1)
FirstN = True
PointFlag = False
Else ' 如果已輸入運算符在內
Call Run ' 計算
SignFlag = False ' 清除是否有運算符標志
End If

Case 12 To 15 ' 當輸入為運算符號時
FirstN = True ' 使下一次可以輸入新數據
PointFlag = False ' 還原小數點標記值
If SignFlag Then ' 前面已有運算符未運算
Call Run ' 調用計運算元程序,該子程序在下面有說明
Else ' 前面沒有未運算的
SignFlag = True ' 將有無運算符標志設為"有"
StrN2 = StrN1 ' 把字元串1復制給字元串2
StrN1 = "" '字元串1清空
End If
Runsign = Index - 11 ' 儲存鍵入的運算符

Case 16 ' 如果輸入清除按鈕
N1 = 0 ' 以下均為重置各個變數,相當於Form_Load中的代碼
N2 = 0
StrN1 = ""
StrN2 = ""
FirstN = True
PointFlag = False
Runsign = 0
SignFlag = False
Labxs.Caption = "0."

Case 17 ' 如果輸入的是正負號
If Sgn(Val(StrN1)) = 1 Then ' 如果顯示的是正數
StrN1 = "-" + StrN1 ' 則在顯示之前加上符號
Else
If Sgn(Val(StrN1)) = -1 Then ' 如果顯示的是負數
StrN1 = Right(StrN1, Len(StrN1) - 1) '則去掉前面的符號
End If ' 如果顯示為"0"
StrN1 = "0." ' 則顯示"0."，保持小數形式
End If
Labxs.Caption = StrN1 ' 將其值顯示在標簽

End Select
End Sub
Private Sub Run()
Dim Ysjg As Single ' Ysjg為局部變數,用來存儲運算結果
N1 = Val(StrN2) '將字元串轉換成數值
N2 = Val(StrN1)
Select Case Runsign
Case 1 ' 加,因為Runsign已經在Index上減去11
Ysjg = N1 + N2 ' 鍵運算結果賦給結果變數 Ysjg
Case 2 ' 減
Ysjg = N1 - N2
Case 3 ' 乘
Ysjg = N1 * N2
Case 4 ' 除
Ysjg = N1 / N2
End Select
StrN2 = Str(Ysjg)
StrN1 = StrN2
Labxs.Caption = StrN2
End Sub

I. （vb程序設計）求代碼：設計一個簡單的計算器，並實現對應的功能

' ------------------------------------------------------------------------
' 版權所有 (C) 1994 Microsoft Corporation
'
' 您可以免費以任何方式使用、修改、復制並分發您認為有用的
' 示例應用程序文件 (或任何修改過的版本)。Microsoft 對任何
' 示例應用程序文件不做任何保證，不負任何責任和義務。
' ------------------------------------------------------------------------
Option Explicit
Dim Op1, Op2 ' 預先輸入操作數。
Dim DecimalFlag As Integer ' 小數點存在嗎？
Dim NumOps As Integer ' 操作數個數。
Dim LastInput ' 指示上一次按鍵事件的類型。
Dim OpFlag ' 指示未完成的操作。
Dim TempReadout

' C (取消) 按鈕的 Click 事件過程
' 重新設置顯示並初始化變數。
Private Sub Cancel_Click()
Readout = Format(0, "0.")
Op1 = 0
Op2 = 0
Form_Load
End Sub

' CE (取消輸入) 按鈕的 Click 事件過程。
Private Sub CancelEntry_Click()
Readout = Format(0, "0.")
DecimalFlag = False
LastInput = "CE"
End Sub

' 小數點 (.) 按鈕的 Click 事件過程
' 如果上一次按鍵為運算符，初始化 readout 為 "0."；
' 否則顯示時追加一個小數點。
Private Sub Decimal_Click()
If LastInput = "NEG" Then
Readout = Format(0, "-0.")
ElseIf LastInput <> "NUMS" Then
Readout = Format(0, "0.")
End If
DecimalFlag = True
LastInput = "NUMS"
End Sub

' 窗體的初始化過程
' 設置所有變數為其初始值。
Private Sub Form_Load()
DecimalFlag = False
NumOps = 0
LastInput = "NONE"
OpFlag = " "
Readout = Format(0, "0.")
'Decimal.Caption = Format(0, ".")
End Sub

' 數字鍵 (0-9) 的 Click 事件過程
' 向顯示中的數追加新數。
Private Sub Number_Click(Index As Integer)
If LastInput <> "NUMS" Then
Readout = Format(0, ".")
DecimalFlag = False
End If
If DecimalFlag Then
Readout = Readout + Number(Index).Caption
Else
Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".")
End If
If LastInput = "NEG" Then Readout = "-" & Readout
LastInput = "NUMS"
End Sub

' 運算符 (+, -, x, /, =) 的 Click 事件過程
' 如果接下來的按鍵是數字鍵，增加 NumOps。
' 如果有一個操作數，則設置 Op1。
' 如果有兩個操作數，則將 Op1 設置為 Op1 與
' 當前輸入字元串的運算結果，並顯示結果。
Private Sub Operator_Click(Index As Integer)
TempReadout = Readout
If LastInput = "NUMS" Then
NumOps = NumOps + 1
End If
Select Case NumOps
Case 0
If Operator(Index).Caption = "-" And LastInput <> "NEG" Then
Readout = "-" & Readout
LastInput = "NEG"
End If
Case 1
Op1 = Readout
If Operator(Index).Caption = "-" And LastInput <> "NUMS" And OpFlag <> "=" Then
Readout = "-"
LastInput = "NEG"
End If
Case 2
Op2 = TempReadout
Select Case OpFlag
Case "+"
Op1 = CDbl(Op1) + CDbl(Op2)
Case "-"
Op1 = CDbl(Op1) - CDbl(Op2)
Case "X"
Op1 = CDbl(Op1) * CDbl(Op2)
Case "/"
If Op2 = 0 Then
MsgBox "除數不能為零", 48, "計算器"
Else
Op1 = CDbl(Op1) / CDbl(Op2)
End If
Case "="
Op1 = CDbl(Op2)
Case "%"
Op1 = CDbl(Op1) * CDbl(Op2)
End Select
Readout = Op1
NumOps = 1
End Select
If LastInput <> "NEG" Then
LastInput = "OPS"
OpFlag = Operator(Index).Caption
End If
End Sub

' 百分比鍵 (%) 的 Click 事件過程
' 計算並顯示第一個操作數的百分數。
Private Sub Percent_Click()
Readout = Readout / 100
LastInput = "Ops"
OpFlag = "%"
NumOps = NumOps + 1
DecimalFlag = True
End Sub

J. vb編輯簡單計算器的代碼

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace WindowsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

double x, y;
int i;

private void button6_Click(object sender, EventArgs e)
{

textBox1.Text += "5";
}

private void button13_Click(object sender, EventArgs e)
{
if (textBox1.Text == "")
{ }
else
textBox1.Text += "0";
}

private void button9_Click(object sender, EventArgs e)
{
textBox1.Text += "1";
}

private void button10_Click(object sender, EventArgs e)
{
textBox1.Text += "2";
}

private void button11_Click(object sender, EventArgs e)
{
textBox1.Text += "3";
}

private void button5_Click(object sender, EventArgs e)
{
textBox1.Text += "4";
}

private void button7_Click(object sender, EventArgs e)
{
textBox1.Text += "6";
}

private void button1_Click(object sender, EventArgs e)
{
textBox1.Text += "7";
}

private void button2_Click(object sender, EventArgs e)
{
textBox1.Text += "8";
}

private void button3_Click(object sender, EventArgs e)
{
textBox1.Text += "9";
}

private void button4_Click(object sender, EventArgs e)
{
x = double.Parse(textBox1.Text);
textBox1.Text = "";
i++;
}

private void button8_Click(object sender, EventArgs e)
{
x = double.Parse(textBox1.Text);
textBox1.Text = "";
i += 2;
}

private void button12_Click(object sender, EventArgs e)
{
x = double.Parse(textBox1.Text);
textBox1.Text = "";
i += 3;
}

private void button16_Click(object sender, EventArgs e)
{
try
{
x = double.Parse(textBox1.Text);
textBox1.Text = "";
i += 4;
}
catch (System.Exception ex)
{ MessageBox.Show(ex.Message); }
}

private void button15_Click(object sender, EventArgs e)

{
try
{
y = double.Parse(textBox1.Text);
textBox1.Text = "";
}
catch (System.Exception ex)
{ MessageBox.Show(ex.Message); }
if (i == 1)
{
x = x + y;
textBox1.Text += x.ToString();
i--;
}
else if (i == 2)
{

x = x - y;
textBox1.Text += x.ToString();
i -= 2;

}
else if (i == 3)
{
x = x * y;
textBox1.Text += x.ToString();
i -= 3;

}
else if (i == 4)
{
try
{
x = x / y;
textBox1.Text += x.ToString();
i -= 4;

}
catch (System.Exception ex)
{ MessageBox.Show(ex.Message); }

}

}

private void button17_Click(object sender, EventArgs e)
{
x = y = 0;
i = 0;
textBox1.Text="";
}

private void button14_Click(object sender, EventArgs e)
{
if (textBox1.Text == "")
{ }
else
{
textBox1.Text = textBox1.Text.Substring(0, textBox1.Text.Length - 1);
}
}
}
}