Question

用VB6.0 编写计算器(是用文本框输入数据,不是点1到9)

是文本框textbox 输入数据 而不是 点击1到9
文本框输入一个 按个+号 再输入一个 又按+号 就计算前2个数字的和 再一直下去 计算多个数字
麻烦 给个源代码 和 详细的解释
本人是个大菜鸟
private sub command1_click()
dim a as long '和
a=a+val(text2.text)+val(text1.text)
text1=""
text2.text=a
end sub

我已经弄出来了 虽然简单了点 不过还是谢谢大家了

Answer 1

比较简单的是建立3个textbox,text1、text2、和text3,text3用来显示text1和text2的运算结果！
在你要处理的运算符加入下面相对应的代码！
text3.text = val(text1.text) + val(text2.text) '加法运算
text3.text = val(text1.text) - val(text2.text) '减法运算
text3.text = val(text1.text) * val(text2.text) '乘法运算
text3.text = val(text1.text) / val(text2.text) '除法运算

Answer 2

Private Sub JiSuan(Bds As String, HuHao As String)
On Error Resume Next

Dim s As Object

Set s = CreateObject("MSScriptControl.ScriptControl")
s.Language = "VBScript"
If HuHao = "=" Then
Text1 = s.Eval(Bds)
Else
Text1 = s.Eval(Bds) & HuHao
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Bds As String, HuHao As String, Str1 As String

Str1 = "+-*/^="
HuHao = Chr(KeyAscii)
If KeyAscii = 13 Then HuHao = "="
If InStr(Str1, HuHao) > 0 Then
Bds = Text1
KeyAscii = 0
Call JiSuan(Bds, HuHao)
Text1.SelStart = Len(Text1)
End If

End Sub

Answer 3

private
sub
command1_click()
dim
a
as
long
'求和
a=a+val(text1.text)
text1.text=a
end
sub
就这么简单
希望对你有帮助
你也可以找一些vb的源代码
好多网站都有计算器的源代码