@echo off
:1
cls
Set /p pf= 请输入X的值
set x=%pf%
if %x% geq 899778 (
	goto 3
	)
if %x% geq 1 (
	goto 2
	)
:3
echo 输入值非法，请重新输入
pause
goto 1
:2
set y=0
set /a y=%x%+1
set /a y=%x%*%y%
set /a y=%y%/2
echo x!=%y%
pause
goto 1
复制代码

dim i
i = inputbox("请输入X的值")
if i >= 1 then
	i = 0.5*i*(i+1) : msgbox "X!=" & i
else
	msgbox "X的值必须大于等于0"
end if
复制代码

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
复制代码

  IF Not isEmpty(i) and IsNumeric(i)  Then
复制代码