怎样用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")

'DecimalCaption = 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

Dim a, b, s As Double

Private Sub Command1_Click() ',加法

s = Val(a) + Val(b)

Label1Caption = s

End Sub

Private Sub Command2_Click() ‘减法

s = Val(a) - Val(b)

Label1Caption = s

End Sub

Private Sub Command3_Click() ’乘法

s = Val(a) Val(b)

Label1Caption = s

End Sub

Private Sub Command4_Click() ‘除法

If b = 0 Then

MsgBox "b的值不能为零，请重新输入", "提示", 0

Else

s = Val(a) / Val(b)

Label1Caption = s

End If

End Sub

Private Sub Command5_Click() ’数据输入

a = InputBox("请输入a的值", "数据输入", "")

b = InputBox("请输入b的值", "数据输入", "")

End Sub

Private Sub Command6_Click() ‘清零

Label1Caption = ""

End Sub

简单点的：

dim 上一个数 as double

dim 下一个数 as double

dim 结果 as double

dim *** 作 as string

private sub 加减乘除(byval sender as object, byval e as eventargs) handles 加click, 减click, 乘click, 除click

上一个数 = cdbl(输入框text) ' 存储当前输入的数值

输入框text = "" ' 等待下一个数值

select case sendertext ' 根据按下的按钮的文本属性确定你要做什么，这里可以用加减乘除号代替

case "加"

*** 作 = "加"

case "减"

*** 作 = "减"

case "乘"

*** 作 = "乘"

case "除"

*** 作 = "除"

end select

end sub

private sub 计算(byval sender as object, byval e as eventargs) handles 等号click

下一个数 = 输入框text

输入框text ＝ ”“

select case *** 作

case "加"

结果 = 上一个数 + 下一个数

case "减"

结果 = 上一个数 - 下一个数

case "乘"

结果 = 上一个数 下一个数

case "除"

结果 = 上一个数 / 下一个数

end select

输入框text = cstr(结果)

上一个数 = 结果

end sub

NET 的哈，我没有 NET 现在，不知道行不行

很简单的：窗口放入四个COMMAND控件（Caption属性分别为+、－、X、÷），三个TEXT控件，再放入三个Label控件（Caption属性分别为： *** 作数1、 *** 作数2和计算结果），窗口的Caption属性改为“四则运算”

代码如下：

Private Sub Command1_Click()

If Val(Text1Text) + Val(Text2Text) <> Int(Val(Text1Text) + Val(Text2Text)) Then

Text3Text = Format(Val(Text1Text) + Val(Text2Text), "0######")

Else

Text3Text = Val(Text1Text) + Val(Text2Text)

End If

End Sub

Private Sub Command2_Click()

If Val(Text1Text) - Val(Text2Text) <> Int(Val(Text1Text) - Val(Text2Text)) Then

Text3Text = Format(Val(Text1Text) - Val(Text2Text), "0######")

Else

Text3Text = Val(Text1Text) - Val(Text2Text)

End If

End Sub

Private Sub Command3_Click()

If Val(Text1Text) Val(Text2Text) <> Int(Val(Text1Text) Val(Text2Text)) Then

Text3Text = Format(Val(Text1Text) Val(Text2Text), "0######")

Else

Text3Text = Val(Text1Text) Val(Text2Text)

End If

End Sub

Private Sub Command4_Click()

If Val(Text1Text) / Val(Text2Text) <> Int(Val(Text1Text) / Val(Text2Text)) Then

Text3Text = Format(Val(Text1Text) / Val(Text2Text), "0######")

Else

Text3Text = Val(Text1Text) / Val(Text2Text)

End If

End Sub

以上就是关于怎样用VB编辑一个简易计算器 最好用控件数组 急求 ！！！全部的内容，包括:怎样用VB编辑一个简易计算器 最好用控件数组 急求 ！！！、做一个简易的计算器的VB程序，不要用数组、、、、、用vb设计一个计算器,里面的加减乘除按键的代码怎么写等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！