我一个初学都不算的人 刚碰这东西3天  
自己想做个计算器 查了一天的资料 都是天书 根本看不懂  希望哪位大哥帮我改下吧

Private Sub Command10_Click()
Text1.Text = Text1.Text & "-"
End Sub

Private Sub Command12_Click()
Text1.Text = Text1.Text & 7
End Sub

Private Sub Command13_Click()
Text1.Text = Text1.Text & 8
End Sub

Private Sub Command14_Click()
Text1.Text = Text1.Text & 9
End Sub

Private Sub Command15_Click()
Text1.Text = Text1.Text & "*"
End Sub

Private Sub Command16_Click()
Text1.Text = Text1.Text & "%"
End Sub

Private Sub Command17_Click()
Opt1 = Val(Text1.Text)                                                 《 —————————— 问题出在这
End Sub

Private Sub Command18_Click()
Text1.Text = Text1.Text & 0
End Sub

Private Sub Command19_Click()
Text1.Text = Text1.Text & "/"
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text & 1
End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text & 2
End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text & 3
End Sub

Private Sub Command5_Click()
Text1.Text = Text1.Text & "+"
End Sub

Private Sub Command6_Click()
Text1.Text = ""
End Sub

Private Sub Command7_Click()
Text1.Text = Text1.Text & 4
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text & 5
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text & 6
End Sub



17出问题了  运算结果出不来  看了很多资料 什么把变量修改了等等根本听不懂的词语......我就想知道 这个计算器能算加减乘除和百分比  等号为什么算不出结果？是哪出问题了？根据我这个基础之上 谁能帮我编写一个等号出来？我用的是VB 6.0
什么C语言  IF等式都不要说了 头大了听不懂啊......