Private Sub Text1_KeyPress(KeyAscii As Integer)
为什么可以


Private Sub TextBox1_KeyPress(KeyAscii As Integer)
而用TextBox控件KeyPress事件不行


怎样改,谢谢

另外数据是0.433012701892219,但TextBox1显示 .433012701892219,
怎样全部显示,谢谢

１＼TextBox控件KeyPress可是可以的，以下是一个我编写的小例子，希望对你有帮助，你在Text1中输入什么，随后点Command1触发事件。
Private Sub Command1_KeyPress(KeyAscii As Integer)
Dim a(50) As String
If Chr(KeyAscii) = Text1.Text Then＇如果键盘和Text1中输入的一致
Print Text1.Text                   ＇就会将Text1中的内容打印出来
End If
End Sub
２＼.433012701892219，由于是数字计算之后前面就没有０，转成字符串的形式就好了．

第二个问题
　　　因为小数计算之后都没０，得加个判断，如果前面没０时应补０，等四舍六入那个帖子，你看看吧．

谢谢!!!

如果问题解决，请结贴。