apang

dim i
do
   i = inputbox("请输入X的值")
   if IsNumeric(i) then
      if i >= 1 then
         i = 0.5*i*(i+1)
         msgbox "X!=" & i
         exit do
      elseif i = "" then exit do
      else
         msgbox "须大于等于1"
      end if
   elseif i = "" then msgbox "不能为空值"
   else
      msgbox "不能为非数字"
   end if
loop
复制代码

apang

回复 6# sun_di


    你的习惯是什么样的，说来听听。

我是新手，沿用了一些BAT的写法，不是什么好习惯。我很少用goto，几乎忘了goto是何物，呵呵。。。

如果Do...Loop循环体太长，你可以想办法让它变短（比如：Call过程调用）

apang

回复 8# Demon


    这个我也不知道呃，我测试是这样：
输入框为空，按"确定"时，IsNumeric(i) = false，i = ""
输入框为空，按"取消"或红叉时，IsNumeric(i) = True，i = ""