VB问题求救，急，在线等！！

来源：百度知道 编辑：UC知道 时间：2024/05/22 19:21:41
想对输入数据进行合法性判断，要求数据符合1-100，哪位达人帮帮忙！本人新手一只。
不好意思，我还有点要求，就是我用的是TEXT数组，要求同时对TEXT1（3），TEXT1（4），TEXT1（5），TEXT1（6），这几个判断。答案再详细点，在线急等！出来就给分哦！

Private Sub Command1_Click()
If Val(Text1.Text) > 100 Or (Text1.Text) < 1 Then
MsgBox "不合法"
Else
MsgBox "合法"
End If
End Sub

自己改改

改完的
Private Sub Command1_Click()
Dim i As Integer
For i = 3 To 6
If Val(Text1(i).Text) > 100 Or (Text1(i).Text) < 1 Then
MsgBox "不合法"
Else
MsgBox "合法"
End If
Next
End Sub

Private Sub Form_Click()
For i = Text1.LBound To Text1.UBound
If Val(Text1(i).Text) > 100 Or Val(Text1(i).Text) < 1 Then
MsgBox "输入的数字不符合要求", 16, "提示"
End If
Next
End Sub

Private Sub Form_Load()
For i = Text1.LBound To Text1.UBound
With Text1(i)
.Text = ""
End With
Next

End Sub

val(输入字符数据)<100 and val(输入字符数据)>1