按下列题目要求编写程序（用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=TI （T累乘I）

NEXT I

PRINT T

END

你的得数是2246，就是说前面多了一个2，因为

第一次是 2=2+20=22

第二次就成了 22=22+2200

只要把一开始的A赋值给一个比如说B的变量，就成了A=A+B(10^T)

这样就完成了，(^__^) 嘻嘻……

1 打印方阵

输入：3，4

输出：

cls

input n,m

for i=1 to n

for j=1 to m

print "";

next j

print

next i

end

2 三角（1）

输入：5

输出:

cls

input n

for i=1 to n

for j=1 to i

print "";

next j

print

next i

end

3 三角（2）

输入：5

输出：

cls

input n

for i=1 to n

print spc(n-i);

for j=1 to i

print "";

next j

print

next i

end

REM Welcome

INTPUT "Please Input Radius:",r

"Area is:"; 31415926536D37 r ^ 2

"Press Any Key To Exit"

补充：？可代表 PRINT 。你输入问号，它直接转换成 PRINT

REM 是注释语句，后面写注释的话，例如：REM 123 就是告诉大家 123

另外，REM可以用单引号代替。

CLS

INPUT S$

L = LEN(S$)

FOR I = L TO 1 STEP -1

FOR J = 1 TO L + 1 - J

A$ = MID$(S$, J, I)

T = LEN(A$): F = 0

FOR K = 2 TO T

IF VAL(MID$(A$, K, 1)) < VAL(MID$(A$, K - 1, 1)) THEN F = 1

NEXT

IF F = 0 THEN PRINT T: END

NEXT J, I

补充：这是2006年江苏省信息学奥林匹克竞赛（小学）决赛的第二条，我做过。

以上就是关于按下列题目要求编写程序（用QBASIC语言的FOR循环）全部的内容，包括:按下列题目要求编写程序（用QBASIC语言的FOR循环）、用QBASIC语言编一道程序、QBASIC入门教程等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！