CLS
PRINT " x", " x^3"
COLOR 8
FOR i = 1 TO 20
  PRINT i, i ^ 3
NEXT i


DATA 18, -10, 22 ,-11, 0, 52, -33, 6, 20, 66
FOR i = 1 TO 10
  READ x
  IF x < 0 THEN
    fu = fu + 1
  ELSE
    zheng = zheng + 1
  END IF
  sum = sum + x
NEXT i
PRINT fu, zheng, sum


CLS
FOR i = 1 TO 20
  r = INT((100 - 20 + 1) * RND) + 20
  PRINT r,
  IF r > 80 THEN sum = sum + 1
NEXT i
PRINT sum

问题目,你不要脆着求,难道你没有志气吗?亏你还是个男人
第一个
FOR I=1 TO 20
PRINT I;"的立方是:";I^3
NEXT
END
第二个
DIM A(10) AS INTEGER
FOR I=1 TO 10
READ A(I):C=C+A(I)
NEXT
IF A(I)>0 THEN N=N+1 ELSE B=B+1
PRINT "正数有";N;"个","负数有";B;"个","其和为";C
DATA 18,-10,  ,  ,  ,  ,  ,  , ,  , ,  ,  ,         '剩下的你自己输了
END
第三个
RANDOMIZE TIMER
FOR I=1 TO 20
X=INT(RND*80+20)
  IF X>80 THEN N=N+1
  PRINT X
NEXT
PRINT N
END
  

看得出来,飞鸟读的书比我的多,程序看起来很专业.