关于一个for循环

[yinzs]

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

[bob008]

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 a

End Sub

[bob008]

你自己看着办吧,在循环里对比下就是咯

[tongnaifu]

on error goto 到for 循环那里

[fvflove]

Private Data as long

Data=7

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

[yinzs]

[Quote=引用 1 楼 bob008 的回复:]

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 a

End Sub
[/Quote]

这个有用！

[fvflove]

[Quote=引用 4 楼 fvflove 的回复:]

Private Data as long

Data=7

if Data>0 and Data <11 then
msgbox "取值正确"
'没有必要用循环
end if
[/Quote]


'如是多个参数用循环比较

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