请教2道QBASIC编程题，急！！！！

请教2道QBASIC编程题，谢谢！！~

1.CLS
FOR x = 1 TO 1000
IF x MOD 2 = 0 THEN f2 = 1 ELSE f2 = 0
IF x MOD 3 = 0 THEN f3 = 1 ELSE f3 = 0
IF x MOD 5 = 0 THEN f5 = 1 ELSE f5 = 0
IF f3 + f2 + f5 = 3 THEN PRINT x;
NEXT x
END

2. CLS
DO
INPUT x
LOOP UNTIL x = INT(x) AND x > 1
f = 1
FOR i = 2 TO SQR(x)
IF x MOD i = 0 THEN
f = 0
EXIT FOR
END IF
NEXT i
IF f = 1 THEN
PRINT x; "是质数"
ELSE
PRINT x; "不是质数”
END IF
end
希望能对你有帮助。

因为A必不等于1
如果A=1,则该题无解

假设A=1,则D必等于9,C也必等于9,否则结果超出4位

1：
打印1～1000内的所有偶数:
CLS
FOR I=2 TO 1000 STEP 2
PRINT I,
NEXT I
END

2:输入正整数N,请输出N的所有因子:
CLS
INPUT N
FOR I=1 TO N
IF INT(N/I)=N/I THEN
PRINT I,
END IF
NEXI I
END

那个学校还学这们没用的语言！放弃不学了

---

松原市18419873384： Qbasic编程题!急! - ？
天鸣拉莫： 第一道: CLS FOR i = 1 TO 5 PRINT TAB$(30 - i); 'y FO...

松原市18419873384： Qbasic编程题!急! - ？
天鸣拉莫： 第一道: CLS FOR i = 1 TO 5 PRINT TAB$(30 - i); 'y FOR j = -(i - 1) TO i - 1 PRINT USING ＂#＂; i - ABS(j); NEXT j PRINT NEXT i END 第二道: CLS FOR i = 1 TO 5 PRINT TAB$(30 - i); 'y FOR j = -(i - 1) TO i - 1 PRINT USING ＂#＂; 5 - i + 1; NEXT j PRINT NEXT i END 你应该是要编对称的吧?如果不是,就把加“y”的那一行删掉.

松原市18419873384： Qbasic编程题!很急!把每一步的说明写一下,谢谢了! - ？
天鸣拉莫： cls 清屏 m=0 累加器请0 for i=1 to 30 step 3 每3个跳跃为+m=m+i*(i+1)*(i+2) 公式 next i 循环 print m 打印 end 结束

松原市18419873384： 跪求Qbasic编程高人写出以下几简单题Qbasic编程过程!!~~万谢~ - ？
天鸣拉莫： 4.将键盘输入的10个数按从大到小的顺序排列并输出.clsdim a(10)print ＂please input num＂for i = 1 to 10input a(i)next ifor j = 1 to 10max = a(j)for i = j to 10if a(i)>max then swap a(i),maxnext i next j clsfor i = 1 to 10print a(i),next i end5.输入一年份...

松原市18419873384： 会QBASIC的来,几道简单的题目 - ？
天鸣拉莫： 4.input chang,kuanbian=(chang+kuan)*2zhou=chang*kuanprint bian,zhouend教你一招?=print

松原市18419873384： 向大家请教1道qbasic编程题？
天鸣拉莫： CLS INPUT S$ L = LEN(S$): j = 1 DIM D$(L), E(L) FOR i = 1 TO L A$ = MID$(S$, i, 1) IF A$ = ＂+＂ OR A$ = ＂-＂ OR A$ = ＂*＂ OR A$ = ＂/＂ OR A$ = ＂^＂ THEN D$(j) = A$ E(j) = VAL(B$) j = j + 1 B$ = ＂＂ ELSEIF A$ >= ＂0＂ AND A$ <= ...

松原市18419873384： QBasic编程题:装球,设8个盒子,分别编1,2……同时13个小球进将13个小球装盒中去.？
天鸣拉莫： 方法如下: 1).算出最多要用多少箱子,如要放入13只球,就要分别放在4只盒子里. (如下程序算法) 2).假设这几只箱子里的球都是它的编号个数,如第只盒子里放1个球,第7只盒子里放7个球,算出总和,如要放5只盒子,就假设放: 1+2+...

松原市18419873384： 问道Qbasic程序题!高手进？
天鸣拉莫： FOR I=2 TO 100 FOR J=2 TO INT(SQR(I)) IF I MOD J=0 THEN //如果循环完了就是质数,如果非正常跳出循环就是合数 END IF NEXT PRINT I; NEXT 把FOR 循环换成DO WHILE就可以了

松原市18419873384： 求QBASIC的3道编程题答案(周四就要用)求高手帮我做一下下面三道编程题1.设有现金Po,存入银行年利率为R,则N年后本息为多少.公式为P=Po*(1+R)... - ？
天鸣拉莫：[答案] 1.INPUT ＂存入金额=＂;P0INPUT ＂年利率=＂;RINPUT ＂存款期限=＂;NP=P0*(1+R)^NPRINT ＂本息合计:＂;PEND2.INPUT ＂里程＂;SIF SnPRINT ＂n!=＂;SEND(2)用WHILE语句INPUT ＂n=＂;ni=1S=1WHILE i>nS=S*ii=i+1WENDPRINT ...

松原市18419873384： 按下列题目要求编写程序(用QBASIC语言的FOR循环) - ？
天鸣拉莫： 楼上众人碉堡了…… (1) CLS (清屏) FOR I=1 TO 99 STEP 2 (FOR循环,I每次加2) S=S+I (S累加I) NEXT I (FOR循环) PRINT S (输出S) END (结束) (2) CLS T=1 (把1赋值给T) FOR I=1 TO 20 T=T*I (T累乘I) NEXT I PRINT T END