CLS
DIM num(70)                         '先建立一个数组num(70)，储存这70个数
FOR i = 1 TO 70
  num(i) = i
NEXT i
DO
  INPUT "num_del(=0:end)"; numdel     '然后逐个输入要删除的数numdel
  IF numdel = 0 THEN EXIT DO
   IF 0 < numdel AND numdel < 71 THEN  '如果num(i) = numdel，则num(i) = 0
     num(numdel) = 0                   '否则返回无numdel
   ELSE                                 
     PRINT "numdel no found"
   END IF
LOOP
FOR i = 1 TO 70                        '如果num(i) <> 0则输出num(i)
  IF num(i) <> 0 THEN PRINT num(i);   
NEXT i
END

多谢了，有空我会多请教你的