作者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/cn.aspx?n=bbs/Visual_Basic/M.1485038687.A.FA4.html
※ 编辑: waiter337 (1.175.27.167), 01/25/2017 18:16:49