VB无效的函数或参数无效

来源：百度知道 编辑：UC知道 时间：2024/06/04 05:55:56
Private Sub Command1_Click()
Dim k As String

len1 = Len(Text1)
Do While i < len1
c = Mid(Text1, i, 1)
Select Case c
Case "a" To "z", "A" To "Z"
n = n + 1
Case ".", "!", ","
m = m + 1
End Select
i = i + 1
Loop

Do While i < len1
k = Mid(Text1, 3, i)
Select Case k
Case "the"
j = j + 1
Case "THE"
j = j + 1
End Select
i = i + 1
Loop
Print "字母数："; n; "句子数："; m; "the 个数："; j
End Sub
显示错误5，无效的过程调用或参数，界面上有一个文本框和一个按钮

Private Sub Command1_Click()
Dim k As String

len1 = Len(Text1)
i=1'设置I的初始值
Do While i < len1
c = Mid(Text1, i, 1)
Select Case c
Case "a" To "z", "A" To "Z"
n = n + 1
Case ".", "!", ","
m = m + 1
End Select
i = i + 1
Loop
i=1'设置I的初始值
Do While i < len1
'k = Mid(Text1, 3, i)此行错误
k = Mid(Text1, i, 3)
Select Case k
Case "the"
j = j + 1
Case "THE"
j = j + 1
End Select
i = i + 1
Loop
Print "字母数："; n; "句子数："; m; "the 个数："; j
End Sub