老實說 我不建議使用這種邏輯
一樣認同推文者說的,先別用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