《VB簡(jiǎn)易計(jì)算器代碼》由會(huì)員分享，可在線閱讀，更多相關(guān)《VB簡(jiǎn)易計(jì)算器代碼（4頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。
1、VB簡(jiǎn)易計(jì)算器代碼
TextBox1 、Text = TextBox1 、Text + "5"
這就是一個(gè)簡(jiǎn)易計(jì)算器的 VB弋碼，下面就是這個(gè)計(jì)算器的界面，有一個(gè)文本輸入框與16個(gè)按鈕
Public Class Forml
Dim Operatorstate As Integer
Dim data1 As Integer
Dim result As Integer
Dim data2 As Integer
'下面就是0~葉個(gè)按鈕的點(diǎn)擊事件
Handl
2、es
Private Sub Button1_Click( ByVal sender As System、Object, ByVal e As System、EventArgs)
Button1、Click
TextBox1 、Text = TextBox1 、Text + "1"
End Sub
Handles
Private Sub Button2_Click( ByVal sender As System> Object, ByVal e As System> EventArgs)
Button2、Click
TextBox1 、Text = TextBox1 、Text
3、 + "2"
End Sub
Handles
Private Sub Button3_Click( ByVal sender As System> Object, ByVal e As System> EventArgs)
Button3、Click
TextBox1 、Text = TextBox1 、Text + "3"
End Sub
Handles
Private Sub Button4_Click( ByVal sender As System> Object, ByVal e As System> EventArgs)
Button4、Click
TextBox
4、1 、Text = TextBox1 、Text + "4"
End Sub
Private Sub Button5_Click(
ByVal sender As System > Object,
ByVal e As System > EventArgs)
Handles
Button5、Click
VB簡(jiǎn)易計(jì)算器代碼
TextBox1 、 Text = ""
End Sub
Private Sub Button6_Click( ByVal
sender
As System 、 Object,
ByVal e As System 、 EventA
5、rgs)
Handles
Button6 、 Click
TextBox1
、 Text = TextBox1
Text +
"6"
End Sub
Private Sub Button7_Click( ByVal
sender
As System 、 Object,
ByVal e As System 、 EventArgs)
Handles
Button7 、 Click
TextBox1
、 Text = TextBox1
Text +
"7"
End Sub
Private Sub Button8_Click( ByVal
sender
As
6、System 、 Object,
ByVal e As System 、 EventArgs)
Handles
Button8 、 Click
TextBox1
、 Text = TextBox1
Text +
"8"
End Sub
Private Sub Button9_Click( ByVal
sender
As System 、 Object,
ByVal e As System 、 EventArgs)
Handles
Button9 、 Click
TextBox1
、 Text = TextBox1
Text +
"9"
End Sub
P
7、rivate Sub Button10_Click( ByVal sender As System 、
Object,
ByVal
As System 、
EventArgs)
Handles Button10 、 Click
TextBox1
、 Text = TextBox1 、 Text + "0"
下面就是清除鍵的代碼
End Sub
Private Sub Button15_Click( ByVal
sender
As System 、
Object,
ByVal
As System 、
EventArgs)
Handles Button15 、 C
8、lick
TextBox1
、 Text = ""
下面就是加減乘除四個(gè)按鈕的代碼
End Sub
Private Sub Button11_Click( ByVal
sender
As System 、
Object,
ByVal
As System 、
EventArgs)
Handles Button11 、 Click
data1 = Val(TextBox1
、 Text)
OperatorState = 1
TextBox1
、 Text = ""
End Sub
Private Sub Button12_Click( ByVal
sende
9、r
As System 、
Object,
ByVal
As System 、
EventArgs)
Handles Button12 、 Click
data1 = Val(TextBox1
、 Text)
OperatorState = 2
TextBox1
、 Text = ""
End Sub
Private Sub Button13_Click( ByVal
sender
As System 、
Object,
ByVal
As System 、
EventArgs)
Handles Button13 、 Click
data1 = Val(
10、TextBox1
、 Text)
OperatorState = 3
VB簡(jiǎn)易計(jì)算器代碼
End Sub
ByVal e As System 、 EventArgs)
Private Sub Button14_Click( ByVal sender As System 、 Object,
Handles Button14 、 Click
11、data1 = Val(TextBox1 、 Text)
OperatorState = 4
TextBox1 、 Text = ""
End Sub
’ 下面就是等于號(hào)的的代碼
e As System、 EventArgs) Handles
Private Sub Button16_Click( ByVal sender As System 、 Object, ByVal
Button16 、 Click
data2 = Val(TextBox1 、 Text)
If (OperatorState = 1) Then
result = data1 + data2
End If
If (OperatorState = 2) Then
result = data1 - data2
End If
If (OperatorState = 3) Then
result = data1 * data2
End If
If (OperatorState = 4) Then
result = data1 / data2
End If
TextBox1 、 Text = Str(result)
End Sub
End Class
VB簡(jiǎn)易計(jì)算器代碼
