关于一个for循环

Question

程序要用到一个参数。该参数的取值为1到10中的某一个，但是不知道到底哪个是正确的。如果取值错误的话，程序就会非正常终止。
现在想编写一个循环逐个测试，这个条件应该怎么写？（如果取值正确，则正常执行；如果取值错误，就next，但同时程序又非正常终止了）

Answer 1

Private Sub Command1_Click()
Dim a As Integer
On Error Resume Next
For a = 1 To 10
If Text1.Tag = a Then
   Text1.Text = a & "是正确的TAG"
End If
Next aEnd Sub

Answer 2

on error goto 到for 循环那里

Answer 3

Private Data as long Data=7if Data>0 and Data<11 then
   msgbox "取值正确"
   '没有必要用循环
end if

Answer 4

'如是多个参数用循环比较Private Data(1 TO N) as long For i=1 to N
  if Data(i)>0 and Data(i) <11 then 
    msgbox "取值正确" 
    '没有必要用循环 
  end if
Next