如何用vb中控件数组做一个简易计算器？

我给你做个简单的 吧 只做 + - * \ 创建工程后 2个textbox 文本框控件 4个command 按纽控件 1个lalbel 标签控件 代码实现如下：

dim a as integer , b as integer, sum as integer
a=text1.text
b=text2.text

Private Sub command1_Click()
sum=a+b
lalbel1.caption=sum
end sub

Private Sub command2_Click()
sum=a-b
lalbel1.caption=sum
end sub

Private Sub command3_Click()
sum=a*b
lalbel1.caption=sum
end sub

Private Sub command4_Click()
sum=a\b
lalbel1.caption=sum
end sub

代码就这样 ， 按照你的要求写的 希望给我加分哦

以下是一个简单的+-*/的计算器代码，按钮采用数组，text2不可见。详情也可在我的百度空间里查看“vb6 比较简单的计算器代码”下载源文件和说明。

Function Eval(ByVal Expressions As String) As String '文本运算vbs
Dim Mssc As Object
Set Mssc = CreateObject("MSScriptControl.ScriptControl")
Mssc.Language = "vbscript"
On Error GoTo EvalErr
Eval = Mssc.Eval(Expressions)
Exit Function
EvalErr:
Exit Function
End Function
Private Sub Command1_Click(Index As Integer)
Dim i As Long, j As Long
For i = 0 To 10 '数字输出0-9和小数点，输入按钮的Caption值
If Index = i Then
Text2 = Text2 & Command1(i).Caption
Text1 = Format$(Eval(Text2), "0.########") '格式化小于1大于-1的数，下同
End If
Next i
For j = 11 To 14 '运算符号输出+-*/，输入按钮的Caption值
If Index = j Then
Text1 = Format$(Eval(Text2), "0.########")
Text2 = Text1 & Command1(j).Caption
End If
Next j
End Sub

我以前写过个简单的
你给我个邮箱。我传给你

很简单，现在要下班了，来不及写了，就是用command和text控件一下九可以了