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

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,'你已经输入了，继续下面的语句')

		自动登录	找回密码
密码			加入