老实说 我不建议使用这种逻辑
一样认同推文者说的,先别用case,
先用if
然后用直线式(正正的正)的逻辑思考方式来解决,(尽量别用负负得正)
但总归一句话,
只要能用能动的对于新手来说,就是好事,就有意义
Sub aaa()
i = InputBox("Start Value")
Do While i <> ""
Select Case IsNumeric(i)
Case False: i = InputBox("Start Value" & "(请重新输入数字)")
Case i <= 0: i = InputBox("Start Value" & "(请重新输入数值不得为负)")
Case i > 0: Exit Do
End Select
Loop
If i = "" Then End
MsgBox ("i等于" & i)
End Sub