UC知道有谁可以给我解释一下，这段VB代码的意思？
来源：百度知道 编辑：UC知道 时间：2024/05/04 10:52:30
Function getcharcount(ByVal strval As String, ByVal ch As String) As Long
Dim i As Long, count As Long
count = 0
For i = 1 To Len(strval) - Len(ch) + 1
If Mid(strval, i, Len(ch)) = ch Then
count = count + 1
End If
Next i
getcharcount = count
End Function
越详细越好！这段代码对我很重要！谢谢有知道的告诉我！
If getcharcount(Text1.Text, ".") > 0 Then
keyascii = 0
End If
还有这一句话！谢谢！
Dim i As Long, count As Long
count = 0
For i = 1 To Len(strval) - Len(ch) + 1
If Mid(strval, i, Len(ch)) = ch Then
count = count + 1
End If
Next i
getcharcount = count
End Function
越详细越好！这段代码对我很重要！谢谢有知道的告诉我！
If getcharcount(Text1.Text, ".") > 0 Then
keyascii = 0
End If
还有这一句话！谢谢！
Function getcharcount(ByVal strval As String, ByVal ch As String) As Long '自定义个函数
Dim i As Long, count As Long '定义i,count为整型
count = 0 '初始化，令count=0
For i = 1 To Len(strval) - Len(ch) + 1 'for循环从1到strcal的长度－ch的长度+1
If Mid(strval, i, Len(ch)) = ch Then '从左边第i个字符开始，取长度为ch字符串，如果与"ch"相等
count = count + 1 '则count自增 加上1
End If
Next i
getcharcount = count '赋值给函数
End Function
越详细越好！这段代码对我很重要！谢谢有知道的告诉我！
If getcharcount(Text1.Text, ".") > 0 Then 调用函数，取文本框中"."（应该是小数点）的个数，如果大0
keyascii = 0 '按键的ascii码的值为0
End If