UC知道VB提示:有NEXT 没有FOR?
来源：百度知道 编辑：UC知道 时间：2024/06/17 03:35:36
这是从文本框中提取时间格式的一段:
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 为什么啊,求助!
怎么我有时间格式确提不出来啊
isdate为true的格式都是什么样的啊
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 为什么啊,求助!
怎么我有时间格式确提不出来啊
isdate为true的格式都是什么样的啊
是因为
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.
用for i=1 to i1下面结束的时候直接用NEXT就可以了。不需要用next i