急急急，求大神用vb教做一个简易计算器，加减乘除就可以。能用加分

有没有大神帮我用VB做个简易计算器啊。。。能够进行十进制整数的加、减、乘、除运算功能就成。。多谢！~

界面上放1个文本框。6个按钮，分别为+、-、*、/、=、C

定义几个窗体级变量
dim x1 as double, x2 as double
dim OperateID as integer

窗体装载时给初值
Private Sub Form1_Load()
x1 = 0
x2 = 0
OperateID = 0
End Sub

C按钮，即清零按钮
Private Sub Button6_Click()
x1 = 0
x2 = 0
OperateID = 0
Text1.Text = 0
End Sub

+按钮
Private Sub Button1_Click()
Calculate()
x1 = Val(Text1.Text)
OperateID = 1
End Sub

-按钮
Private Sub Button2_Click()
Calculate()
x1 = Val(Text1.Text)
OperateID = 2
End Sub

*按钮
Private Sub Button3_Click()
Calculate()
x1 = Val(Text1.Text)
OperateID = 3
End Sub

/按钮
Private Sub Button4_Click()
Calculate()
x1 = Val(Text1.Text)
OperateID = 4
End Sub

=按钮
Private Sub Button5_Click()
Calculate()
End Sub

计算用的函数
Sub Calculate()
x2 = Val(Text1.Text)
Select Case OperateID
Case 1
TextBox1.Text = x1 + x2
Case 2
TextBox1.Text = x1 - x2
Case 3
TextBox1.Text = x1 * x2
Case 4
TextBox1.Text = x1 / x2
End Select
OperateID = 0
End Sub

可以。字符串的相加为字符串的连接。例如 "a"+"b"="ab".但是字符串不能相减 你给的算式结果为 .04 因为a赋值为12数据类型为数值型。他只是把结果变成了STR型的数据。

按你的要求做的代码如下：

在1个新窗体上编排以下控件：

添加1个Label1控件用作显示数据，name=lblScreen

添加1个Command控件数组(10个数字)用作输入数据的按钮0~9，name=cmdNumber，index=0~9

添加1个Command控件用作小数点按钮“.”，name=cmdPoint

添加1个Command控件等号按钮“=”，name=cmdEqual

添加1个Command控件数组(4个符号)用作加减乘除按钮，name=cmdArithmetic，index=0~3

好了，然后复制以下代码运行即可成功啦：

'***************************************************************************************

Private strCalculateType As String '存放运算类型

Private blnCalFlag As Boolean '标记是否已经输入加数、或减数、或乘数、或除数等

Private dblNum1 As Double '存放被加数、或被减数、或被乘数、或被除数等

Private dblNum2 As Double '存放加数、或减数、或乘数、或除数等

Private dblMemo As Double '内存中的数

Private Sub Form_Load()

    Dim i As Integer

    lblScreen = "0"  '初始化显示屏和关闭按钮

    lblScreen.BackColor = vbBlack

    strCalculateType = ""  '初始化运算符类型和标记变量

    blnCalFlag = False

    dblMemo = 0   '初始化内存变量

End Sub

'四则运算

Private Sub cmdArithmetic_Click(Index As Integer)

    Select Case Index

        Case 0 '输入加法

            cmdEqual_Click

            strCalculateType = "+"

            dblNum1 = Val(lblScreen)

        Case 1 '输入减法

            cmdEqual_Click

            strCalculateType = "-"

            dblNum1 = Val(lblScreen)

        Case 2 '输入乘法

            cmdEqual_Click

            strCalculateType = "*"

            dblNum1 = Val(lblScreen)

        Case 3 '输入初法

            cmdEqual_Click

            strCalculateType = "/"

            dblNum1 = Val(lblScreen)

    End Select

End Sub

'求结果(即等于)

Private Sub cmdEqual_Click()

    dblNum2 = Val(lblScreen)

    

    If strCalculateType = "/" Then

        lblScreen = dblNum1 / dblNum2

    ElseIf strCalculateType = "*" Then

        lblScreen = dblNum1 * dblNum2

    ElseIf strCalculateType = "-" Then

        lblScreen = dblNum1 - dblNum2

    ElseIf strCalculateType = "+" Then

        lblScreen = dblNum1 + dblNum2

    ElseIf strCalculateType = "x^y" Then

        lblScreen = dblNum1 ^ dblNum2

    End If

'    If Left(lblScreen.Caption, 1) = "." Then lblScreen.Caption = "0" & lblScreen.Caption

'    If Len(lblScreen.Caption) > 15 Then lblScreen.Caption = Left(lblScreen.Caption, 15)

    strCalculateType = ""

    blnCalFlag = False

End Sub

'使用控件数组输入数据

Private Sub cmdNumber_Click(Index As Integer)

    If lblScreen = "0" Then

        lblScreen = ""

    End If

    

    If blnCalFlag = False Then

        lblScreen = CStr(Index)

        blnCalFlag = True

    Else

        lblScreen = lblScreen + CStr(Index)

    End If

End Sub

'输入小数点

Private Sub cmdPoint_Click()

    If blnCalFlag = True Then

        If InStr(1, lblScreen, ".") = 0 Then

            If lblScreen <> "" Then

                lblScreen = lblScreen + "."

            Else

                lblScreen = "0."

            End If

        End If

    Else

        If blnCalFlag = False Then

            lblScreen = "0."

            blnCalFlag = True

        End If

    End If

End Sub 

'***************************************************************************************

怎么样？给你的代码非常详细了吧，包括给你的解说哦！

用SELECT CASE 语句 很简单的

---

急急急，求大神用vb教做一个简易计算器，加减乘除就可以。能用加分视频