【VB开源代码栏目提醒】:网学会员为广大网友收集整理了,VB简易计算器代码 - 编程语言,希望对大家有所帮助!
这是一个简易计算器的VB代码下面是这个计算器的界面有一个文本输入框和16个按钮 Public Class Form1 Dim OperatorState As Integer Dim data1 As Integer Dim result As Integer Dim data2 As Integer ’下面是09十个按钮的点击事件 Private Sub Button1_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button1.Click TextBox1.Text TextBox1.Text 1 End Sub Private Sub Button2_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button2.Click TextBox1.Text TextBox1.Text 2 End Sub Private Sub Button3_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button3.Click TextBox1.Text TextBox1.Text 3 End Sub Private Sub Button4_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button4.Click TextBox1.Text TextBox1.Text 4 End Sub Private Sub Button5_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button5.Click TextBox1.Text TextBox1.Text 5 End Sub Private Sub Button6_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button6.Click TextBox1.Text TextBox1.Text 6 End Sub Private Sub Button7_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button7.Click TextBox1.Text TextBox1.Text 7 End Sub Private Sub Button8_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button8.Click TextBox1.Text TextBox1.Text 8 End Sub Private Sub Button9_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button9.Click TextBox1.Text TextBox1.Text 9 End Sub Private Sub Button10_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button10.Click TextBox1.Text TextBox1.Text 0 End Sub ’下面是清除键的代码 Private Sub Button15_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button15.Click TextBox1.Text End Sub ’下面是加减乘除四个按钮的代码 Private Sub Button11_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button11.Click data1 ValTextBox1.Text OperatorState 1 TextBox1.Text End Sub Private Sub Button12_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button12.Click data1 ValTextBox1.Text OperatorState 2 TextBox1.Text End Sub Private Sub Button13_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button13.Click data1 ValTextBox1.Text OperatorState 3 TextBox1.Text End Sub Private Sub Button14_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button14.Click data1 ValTextBox1.Text OperatorState 4 TextBox1.Text End Sub ’下面是等于号的的代码 Private Sub Button16_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button16.Click data2 ValTextBox1.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 Strresult End Sub End Class