按键精灵if多条件选择，小数点和逗号输入后不判断

更新时间2018-07-15 08:05:39

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都能循环提示，唯独 ， 。不提示，请老师们帮忙解决，谢谢了。

问题在于软件判断的是英文的"."和","，而不是中文的"。"和"，"。将输入法改为英文输入试试。

相关标签:按键精灵