作者waiter337 (給開司一罐蘇格登)
看板Visual_Basic
標題Re: [VBA ] Do while 迴圈跳不出來
時間Sun Jan 22 06:44:45 2017
老實說 我不建議使用這種邏輯
一樣認同推文者說的,先別用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
--------------------------------------------------
if的寫法,僅供參考
Sub bbb()
i = InputBox("Start Value")
If i = "" Then End
Do While i <> ""
If IsNumeric(i) = True Then
If i > 0 Then Exit Do
If i <= 0 Then i = InputBox("Start Value" & "(請重新輸入數值不得為負
)")
ElseIf IsNumeric(i) = False Then
i = InputBox("Start Value" & "(請重新輸入數字)")
End If
Loop
MsgBox ("i等於" & i)
End Sub
我會順便打是因為我想練一下do loop 我不是很會
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.175.7.138
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1485038687.A.FA4.html
※ 編輯: waiter337 (1.175.27.167), 01/25/2017 18:16:49