用VB做计算器

从程序，附件中打开的计算器，大家知道吧！
我想用VB把它做出来，谁能帮帮忙！
我的程序是这样的：
Dim a%, b%, c%
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Text1.Text = Text1.Text & Command1(0).Caption
Case 1
Text1.Text = Text1.Text & Command1(1).Caption
Case 2
Text1.Text = Text1.Text & Command1(2).Caption
Case 3
Text1.Text = Text1.Text & Command1(3).Caption
Case 4
Text1.Text = Text1.Text & Command1(4).Caption
Case 5
Text1.Text = Text1.Text & Command1(5).Caption
Case 6
Text1.Text = Text1.Text & Command1(6).Caption
Case 7
Text1.Text = Text1.Text & Command1(7).Caption
Case 8
Text1.Text = Text1.Text & Command1(8).Caption
Case 9
Text1.Text = Text1.Text & Command1(9).Caption
Case 10
a = Text1.Text
Text1.Text = ""
Case 11

Case 12
Case 13
Case 14
b = Text1.Text
Text1.Text = a + b
End Select
End Sub

可以，但要修改下，你的10是”＋”号吧？应该是a = val(text1),下面的也一样修改，b = val(text1)
混合运算的话可以加个选择的，如下：
Private Sub Command2_Click（）’＊号
h = 1
end sub
Private Sub Command3_Click（）’/ 号
h = 2
end sub
.
.
.
在此等号的编写就得改
Private Sub Command11_Click（）’＝号
if h = 1 then
text1 = a * b
elseif h =2 then
text1 = a /b
.
.
.

end sub
如此类推，有什么不明白再问哈

现动手作吧，遇到问题再来提问。

这是一个计算器源码下载地址,有兴趣你可以下载来看一下.同时在这个网站上还有很多VB程序的源码下载,希望对你有帮助.
http://www.codesky.net/showhtml/12525.htm

我给你一个，昨天还给了一个朋友。我认为挺好用的：
Dim i As Integer, RunSign As Integer
Dim Num1 As Single, Num2 As Single, Equal As Single
Dim StrNum1 As String, StrNum2 As String
Dim FirstNum As Boolean, PointFlag As Boolean
Dim SignFlag As Boolean

Private Sub Command1_Click(Index As Integer)
Select Case Index

用VB做计算器~ 用vb做个计算器？？？ 用vb做一个计算器 用VB做个计算器 用vb怎么做一个计算器？ 知道用 VB 程序怎么做计算器? 用VB做一个简单计算器 怎么用VB程序做计算器啊？？？ VB做计算器问题 VB做的简易计算器