Dim num As Integer, max As Integer, i As Integer, my As String, years As StringIf year.Text = "" or year.Text <= 2002 or year.Text >= 2099 Then MsgBox " 输入正确的赛事年份" Exit Sub Else years = year.Text End If 用or
If (year.Text = "") or (year.Text <= 2002 and year.Text >= 2099) Then
If year.Text = "" And CINT(year.Text) <= 2002 And CINT(year.Text) >= 2099 Then
MsgBox " 输入正确的赛事年份"
Exit Sub
Else
years = year.Text
End If
你的意思好像应该是:
If year.Text = "" or year.Text <= 2002 or year.Text >= 2099 Then
如果是False则判断 CINT(year.Text) <= 2002 Or CINT(year.Text) >= 2099 的True或者False
MsgBox " 输入正确的赛事年份"
Exit Sub
Else
years = year.Text
End If
用or