论坛 › 已解决问题区 › 如何写类似于调转的代码啊？

xg911335 发表于 2009-7-11 16:57:24

如何写类似于调转的代码啊？

本帖最后由 xg911335 于 2009-7-11 17:23 编辑

不好意思各位，问个弱弱的问题
$input = InputBox("提示","请输入整数","","","240","55")
If @error = 1 Then
        Exit
EndIf
If $input = "" Then
        MsgBox(0,"提示","你没有输入任何数字，请重新输入")
        这里如何又回到第一句去？？？
EndIf

While 1
.................
wend

大绯狼 发表于 2009-7-11 17:08:41

While 1
        $input = InputBox("提示", "请输入整数", "", "", "240", "55")
        If @error = 1 Then
                Exit
        EndIf
        If $input = "" Then
                MsgBox(0, "提示", "你没有输入任何数字，请重新输入")
        Else
                ExitLoop
        EndIf
WEnd

wua0550 发表于 2009-7-11 17:09:59

不太明白你的问题你的意思是 如果输入123 ,就输出321吗？

xg911335 发表于 2009-7-11 17:10:51

首先感谢上面的兄弟。
还有没有更精简的写法？

lynfr8 发表于 2009-7-11 17:53:02

精简就这样：（无提示，需要就自己加）Do
$input = InputBox("提示", "请输入", "", "", "240", "55")
Until $input <> ""
MsgBox(0,0,'你已经输入了，继续下面的语句')

查看完整版本: 如何写类似于调转的代码啊？