计算器的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);
}
}
}
}