新人有问题求解决，我想做一个跟windows附带的计算器一样的，老是出错，请各位帮忙看看

2007-12-10 10:30:10 99 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

wdk8882006 墨衍会员 · AI 创作全网分发关注 + 加入社区

Qt 简单计算器实现附源码 Windows+Qt 简单表达式计算器实现实现思路实现原理核心功能表达式运算小数点的处理实时判断算式合法性UI设计无边框窗口和Win10下的背景模糊透明按钮原创标签页切换组件重写ScrollAreaWidget实现效果与代码开源实现效果截图代码开源学校数据结构课程刚学完了栈，要求做一个简单的表达式计算器，要求能够有一定的错误识别能力、能够实时显示栈中的元素以及最好有UI界面。由于最近正好在学习Qt的知识，很多功能都不是特别熟悉，决定正好学习一下Qt中的无边框窗口、背景模糊以及动画效果。整个工程完成时间大阅读详情

我想做一个计算器，但是老出错，输入到第６位的时候就不行了，还有＂＋＂，＂-＂等等都不能用，以下是我写的，请各位帮帮忙指出其中的错误，我是新人！多多指教！
Dim firstnum As Double
Dim secondnum As Double
Dim char As Double

Private Sub Command1_Click()
Dim num As Integer
Dim newnum As Integer
num = Val(Text1.Text)
newnum = num * 10 + 1
Text1.Text = newnum

End Sub

Private Sub Command10_Click()
firstnum = Val(Text1.Text)
Text1.Text = 0
char = "+"
End Sub

Private Sub Command11_Click()
firstnum = Val(Text1.Text)
Text1.Text = 0
char = "/"
End Sub

Private Sub Command12_Click()
firstnum = Val(Text1.Text)
Text1.Text = 0
char = "*"
End Sub

Private Sub Command13_Click()
firstnum = Val(Text1.Text)
Text1.Text = 0
char = "-"
End Sub

Private Sub Command14_Click()
Dim result As Double
secondnum = Val(Text1.Text)
If char = "+" Then
result = firstnum + secondnum
If char = "-" Then
result = firstnum - secondnum
If char = "/" Then
result = firstnum / secondnum
If char = "*" Then
result = firstnum * secondnum
End If
Text1.Text = result
End Sub

Private Sub Command2_Click()
Dim num As Integer
Dim newnum As Integer
num = Val(Text1.Text)
newnum = num * 10 + 2
Text1.Text = newnum
End Sub

Private Sub Command3_Click()
Dim num As Integer
Dim newnum As Integer
num = Val(Text1.Text)
newnum = num * 10 + 3
Text1.Text = newnum
End Sub

Private Sub Command4_Click()
Dim num As Integer
Dim newnum As Integer
num = Val(Text1.Text)
newnum = num * 10 + 4
Text1.Text = newnum
End Sub

Private Sub Command5_Click()
Dim num As Integer
Dim newnum As Integer
num = Val(Text1.Text)
newnum = num * 10 + 5
Text1.Text = newnum
End Sub

Private Sub Command6_Click()
Dim num As Integer
Dim newnum As Integer
num = Val(Text1.Text)
newnum = num * 10 + 6
Text1.Text = newnum
End Sub

Private Sub Command7_Click()
Dim num As Integer
Dim newnum As Integer
num = Val(Text1.Text)
newnum = num * 10 + 7
Text1.Text = newnum
End Sub

Private Sub Command8_Click()
Dim num As Integer
Dim newnum As Integer
num = Val(Text1.Text)
newnum = num * 10 + 8
Text1.Text = newnum
End Sub

Private Sub Command9_Click()
Dim num As Integer
Dim newnum As Integer
num = Val(Text1.Text)
newnum = num * 10 + 9
Text1.Text = newnum
End Sub

...全文