如下是所有的代码，请问该怎么解决提示块if没有end if

Question

Dim i As Integer
Dim x As Integer
Dim y As Integer
Dim a As String
Dim c As Integer
Dim b As Integer
Dim e As Integer
Dim f As Integer
Dim d As Integer
i = 0
Dim z As Integer

For j = 1 To 15 Step 1

f = Mid(Text1.Text, j, 1)

If f = "/" Then
y = y + 1
If y <> 15 Then

Text2.Text = "标签缺少数据，请录入数据后再试！"
Else
Print y

End If

If Trim(Text1.Text) = "" Then
Text2.Text = "请输入数据。"
Else

For i = 1 To 15 Step 1

a = Text1.Text
x = InStr(Text1.Text, "//")
c = InStr(Text1.Text, "#/")
d = InStr(Text1.Text, "/#")
f = InStr(Text1.Text, "##")

If x <> 0 Or d = 0 Or c <> 0 Or f <> 0 Or y <> 15 Then

Text2.Text = "标签格式错误或者缺少数据，请重新输入"

c = InStr(Text1.Text, "#/")

Else
Text2.Text = "标签OK，可以出货。"

End If

Next i

End Sub

Answer 1

For与Next是成对使用的，你发的程序中有2个For、1个Next，不匹配。目测，你丢了一个Next j。程序会报错。If与EndIf也是成对使用的，程序中有4个If，可是只有2个EndIf。也会报错。你只能根据程序的作用和逻辑关系，在适当的位置补充足够数量的Next和EndIf，就能接近问题。希望能帮到你。