块if没有endif

Private Sub Command1_Click()
Dim ph As Single, s As String
ph = Val(Text1.Text)
If ph <= 4.7 Then
s = "重度酸雨区"
Else
If ph <= 5.6 Then
s = "轻中度酸雨区"
Else
s = "非酸雨区"
End If
'①
Label2.Caption = s
End Sub
作业提示说是在1 所在行出填入适当句子

If n Mod 2 <> 0 Then MsgBox ("总脚数不是偶数")
End If
If n <= 2 * m Then MsgBox ("脚数小于头数的倍数，重新输入")
End If

这两条语句你直接把要执行的语句放到then的后面了，所以是不要 endif的。加了是多余的。会报错。

还有就是你的这个判断其实是个摆设，起不到实际作用。不管输入是否正确都会顺序执行下来。根据你的思路。你可以这样写：

Private Sub Form_click()
Dim m%, n%, x%, y%
m = Val(InputBox("请输入鸡和兔的总头数"))
j: n = Val(InputBox("请是输入鸡和兔的总脚数"))
If n Mod 2 <> 0 Then
MsgBox ("总脚数不是偶数")
GoTo j
End If
If n <= 2 * m Then
MsgBox ("脚数小于头数的倍数，重新输入")
GoTo j
End If
y = (n - 2 * x) / 4
x = m - y
Print "鸡有："; x; " 只 "; "兔有："; y; "只"
End Sub
满意请采纳。

如果If语句使用块结构,那么,你只要数数有几个If和几个End If就知道少没少了. 这和括号的开始与结束是一样的,都要成对儿的出现. 错误提示已经告诉你了,少了一个End If,所以①之前必然是End If