如图所示 怎么样才能实现 点一次按钮 就清除text1里的最后一个数字呢

[[it] 本帖最后由 菜鸟VB 于 2008-5-13 13:18 编辑 [/it]]

Private Sub Command1_Click()
If Text1.Text <> "" Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)

End If
End Sub