VB 限制TEXT输入数字,且只能输入小数点后两位数.

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/11 09:14:34

VB 限制TEXT输入数字,且只能输入小数点后两位数.
比如text1输入中文/英文时,不响应.输入数字响应.输入带小数点的数字时,只允许输入小数点后两位.求代码,

Private Sub Text1_keypress(keyascii As Integer)
'控制输入的字符为0-9,小数点,退格
If (Chr(keyascii) > "9 " Or Chr(keyascii) < "0 ") And Chr(keyascii) "." And keyascii 48 And keyascii 8 Then
keyascii = 0
Beep
Beep
End If
'控制输入的字符串长度大于等于3的时候,倒数第3个如果为小数点,那么后边只识别退格,其它键都放弃
If Len(Text1.Text) >= 3 And Left(Right(Text1.Text,3),1) = "." And keyascii 8 Then
keyascii = 0
End If
'控制输入的字符串长度大于1的时候,如果已输入小数点,那么后边的小数点就放弃,
If Len(Text1.Text) >= 1 And InStr(Text1.Text,".") 0 And Chr(keyascii) = "." Then
keyascii = 0
End If
End Sub
我刚刚试了一下.可以.

VB计算问题有公式：a+b=c,要求输入任意两个值,能求出第三个值.输入框中要求只能输入数字、小数点、负号.请大侠帮助… VB 条件语句＋限制文本框输入【js】只能输入数字和小数点并保留2位小数点只能输入数字、小数点(小数点后面两位小数)和-1正则表达式 excel表格输入带小数点的数字后,小数点后面的0为什么自动消失 vb中几个数字相加输入几个数字后相加并写出 vb中数字分离,输入整数,例如输入1234输出4321,输入123456输出654321 为什么密码只能输入英文或数字? 正则表达式只能输入字母数字汉字怎么样能在Excel2003里单元格中输入小数点后保留两位的数字 Excel2003里单元格中输入小数点后保留两位数字的问题正则表达式问题,请问如何验证,输入任何数,如果有小数点,小数点后面只能输入两位