Question

chr（keyascii）是什么意思，谁帮帮我

Public Function In_Single(KeyAscii As Integer) As Boolean
Dim Ch_Accept_Single(20) As String
'可以接受的字符数组
Ch_Accept_Single(0) = "0"
Ch_Accept_Single(1) = "1"
Ch_Accept_Single(2) = "2"
Ch_Accept_Single(3) = "3"
Ch_Accept_Single(4) = "4"
Ch_Accept_Single(5) = "5"
Ch_Accept_Single(6) = "6"
Ch_Accept_Single(7) = "7"
Ch_Accept_Single(8) = "8"
Ch_Accept_Single(9) = "9"
Ch_Accept_Single(10) = "."
Ch_Accept_Single(11) = "-"
Ch_Accept_Single(12) = Chr(8)
'检查输入字符是否在数组中
In_Single = False
For i = 0 To 12
If Chr(KeyAscii) = Ch_Accept_Single(i) Then
In_Single = True
End If
Next
End Function
就这段代码看了一晚上没看懂，我是不是不适合编程，愁人啊，不过我不灰心，继续努力

Answer 1

就是你输入的是0到9，小数点.，减号-， 退格这12个键时，
返回in_single为真值。
比如特定环境：填入金额时或公式时，日期时间时，只能有这些符号。

追问

那为什么在for循环上面先出现了一个in_single=flase，我觉得应该是if…then真else假，这样才对呀，是不是它这块写错了，谢谢:-P

追答

先给个FLASE声明一下呀。
就是你没输入这十二个字符都是FLASE的。
在你没输入之前声明肯定是FLASE
一旦符合在这十二个字符里就是TRUE了。
明白？。

追问

明白，谢谢专家