Question

VB中一个txst框，希望可输入数值范围0-10，如果输入超范围，弹出提示对话框，确定后返回默认值0，并重输。

用msgbox语句？怎么写？写段代码

Answer 1

Private Sub Text1_Change()
If Val(Text1) < 0 Or Val(Text1) > 10 Then
MsgBox "不在0-10的范围,请重新输入"
Text1.Text = 0
End If
End Sub

Answer 2

aa=true
while aa
do
If Isnumeric(test.value) Then
if test.value>=0 and test.value<=10 then
aa=false
else
MsgBox(“输入数值范围0-10”)
test.value = 0
end if
else
MsgBox(“输入数值范围0-10”)
test.value = 0

end if
loop