请各位编程高手帮我解决3道QBASIC题目，谢谢！！！

来源：百度知道 编辑：UC知道 时间：2024/06/03 11:32:12
1.打印1～1000内的所有偶数
2.输入正整数N,请输出N的所有因子
例：输入24 输出：1，2，3，4，6，8，12，24
3.根据下面的公式，计算100项，求圆周率的近似值
派/4=1-1/3+1/5-1/7+……
请用if……then和for……to，next语言编写，实在没办法也可以用其他的，再次表示感谢！！

1.CLS
S=0
FOR I = 1 TO 1000
IF I MOD 2 = 0 THEN PRINT I
NEXT I
END
2.CLS
DO
INPUT "",N
LOOP UNTIL INT(N)=N
FOR I = 1 TO N
IF N / I = N \ I THEN PRINT I
NEXT I
END
3.CLS
DIM SHARED N AS BOUBLE
X = 1
N = 0
FOR I = 1 TO 100
IF I MOD 2 = 0 THEN N = N - 1 / ( 2 * I - 1 ) ELSE N = N + 1 / ( 2 * I )
NEXT I
N = N * 4
PRINT N
END
很高兴帮助你！

1、
FOR I=1 TO 1000
IF I MOD 2 =0 THEN PRINT I;
NEXT I

2、
INPUT N
FOR I=1 TO N
IF N MOD I = 0 THEN PRINT I;
NEXT I

3、
我看不懂，你可以看二楼说的，本人在此深表歉意。