按键精灵if多条件选择,小数点和逗号输入后不判断
Dim FKJE,d
FKJE = InputBox("请输入金额")
PS=FKJE
PS_Len=Len(PS)
ReDim d(PS_Len)
ReDim f(PS_Len)
d = Mid(PS, 1, 1)
MessageBox d
If FKJE <= 0 or FKJE > 30 or d = "." or d = "," Then
Rem cx
FKJE = InputBox("输入有误,小数前不能直接输 . 号或 <0>30 ")
PSS=FKJE
PS_Len=Len(PSS)
ReDim d(PSS_Len)
ReDim f(PSS_Len)
d = Mid(PSS, 1, 1)
If FKJE <= 0 or FKJE > 30 or d = "." or d = "," Then
PSS=FKJE
PS_Len=Len(PSS)
ReDim d(PSS_Len)
ReDim f(PSS_Len)
d = Mid(PSS, 1, 1)
Goto cx
End If
End If
这是输入金额的窗口判断,如果直接输 .1 或者输 “,”号都视为错误,需重新输入,小于等于0和等于30都能循环提示,唯独 , 。不提示,请老师们帮忙解决,谢谢了。
问题在于软件判断的是英文的"."和",",而不是中文的"。"和","。将输入法改为英文输入试试。
热门标签: