VB提示:有NEXT 没有FOR?
这是从文本框中提取时间格式的一段:
Private Sub Command1_Click()
Dim s As String
Dim s1 As String
Dim I As Integer
Dim i1 As Integer
i1 = Len(s) - 5
s = Text1.Text
For I = 1 To i1
s1 = Mid(s, I, 5)
If IsDate(s1) = True Then
Print s1
Next I
End Sub
运行时提示:有NEXT 没有FOR 为什么啊,求助!
参考答案:是因为
For I = 1 To i1
s1 = Mid(s, I, 5)
If IsDate(s1) = True Then
Print s1
End If '在这里加上 End If 就可以了
Next I
这里的If 语句没有相应的 End If.