如何取一段数中的某一个

来源：百度知道 编辑：UC知道 时间：2024/06/24 01:38:16
给定范围比如10-30，在文本框中输入10-30的数字跳出对话框“正确”，在范围以外跳出对话框“不正确”

1.
Private Sub Text1_Change()
If Len(Text1) = 2 Then
If Val(Text1) < 30 And Val(Text1) > 10 Then
MsgBox "正确"
Else
MsgBox "不正确"
End If
End If
End Sub

'这样的话 输1 的话 那么就要输入 01才会跳出不正确

2. 把下面代码复制到窗体里去。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(Text1) < 30 And Val(Text1) > 10 Then
MsgBox "正确"
Else
MsgBox "不正确"
End If
End If
End Sub
'这样的话，输入后按回车 那么会跳出正确还是不正确。

分别排除…

i=inputbox("请输入数")
if i>10 and i<30 then
print"正确"
else
print"不正确"