Question

关于 excel VBA 的计算器问题

dim textres as double
dim pointt as string
Private Sub UserForm_Initialize()
textbox1.Text = 0
textres = 0
pointt = ""
End Sub

Private Sub 零_Click()
If textbox1.Text = 0 Then
textres = 0
Else
If textbox1.Text = (0 & ".") Then
textbox1.Text = textbox1.Text & 0
Else
textbox1.Text = textbox1.Text & 0
textres = textbox1.Text
End If
End If
End Sub

Private Sub 点_Click()
pointt = "."
textbox1.Text = textbox1.Text & "."
点.Enabled = False
End Sub

我这样操作：按零，再按点，此时是textbox1显示的是0.
但再按零的话，就还是0.
请哪位高手帮我找找哪出问题了

Answer 1

Private Sub 零_Click()
If textbox1.Text = "0" Then
textres = 0
Else
If textbox1.Text = "0." Then
textbox1.Text = textbox1.Text & "0"
Else
这样子改一下试试……

追问

你的方法行不通

追答

那么最好把你的文件发来 看看你其他的代码……327391401

追问

呵呵，根据你的思路，进一步改了下解决了已经，谢谢

Answer 2

也可以这样改
Private Sub 零_Click()
textbox1.Text = iif(textbox1.Text ="0",0,textbox1.text & "0")
textres = textbox1.Text
End Sub

追问

你的方法也行不通