求vb编的计算器

来源：百度知道 编辑：UC知道 时间：2024/05/10 20:32:39
一个text框。数字1~9用控键数组。只要加减的。谢拉。。。。。。

我有个复杂点的要不要？

请看抓图：http://photo.ff88.com/upphoto/25020/2005F12F16819858321.jpg

自己做的，网上下载不到
如果需要的话，选我答案留下邮箱

1、建立14个按钮，按钮的名字都要Command1，设置Index属性，0~9分别对应数字0~9，10为小数点，11为等号，12~14分别对应+、-、*和/。
2、输入如下代码：
Dim Num1, Num2 As Single
Dim StrNum1, StrNum2 As String
Dim FirstNum As Boolean
Dim PointFlag As Boolean
Dim Runsign As Integer
Dim SignFlag As Boolean
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 To 9
If FirstNum Then
StrNum1 = Str(Index)
FirstNum = False
Else
StrNum1 = LTrim(StrNum1) + LTrim(Str(Index))
End If
Text1.Text = Val(StrNum1)
Case 10
If Not PointFlag Then
If FirstNum Then
StrNum1 = "0.&qu