对以下此段程序说法正确的是( )
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
DimLenstraAsInteger,jAsInteger
DimStraAsString,SAsString*1
S=Chr(KeyAscii)
SelectCaseS
Case"0"To"9",",",".","-"
CaseElse
KeyAscii=0
EndSelect
EndSub
A.S取得的是输入的KeyAscii值
B.若在文本框中输入除了数字0～9，,逗号，负号，小数点之外的其他字符，则能够继续输入
C.若在文本框中输入数字0～9，,逗号，负号，小数点为有效数字串，可以继续输入
D.当KeyAscii=0时可以继续输入
