用结构化程序来解决的问题

[Joan1980]

有这么一道题：往成绩表中输入空记录，直到该表中的记录总数达到100为止
希望知道的人给我个回复，多谢！

[LAIYANGPJ]

USE 表名
for i=1 to 100
append blank &&或INSERT BLANK
ENDFOR

[Joan1980]

谢谢各位的帮助哦,作为初学者的我确实需要大家的好好帮助,谢谢

[Joan1980]

还有很多问题要等待你们的回答哦
1.假设有一张足够大的纸,厚度为0.0005m,试编程计算,当对折多少次后,其总厚度超过珠穆朗玛峰的高度(8848m)

[LAIYANGPJ]

???????????

[LAIYANGPJ]

25

[边城无名]

楼上的答案真确!

[十豆三]

USE 表名
FOR I=RECCOUNT()+1 TO 100
APPEND BLANK &&或insert blank 或 Insert Into...
ENDFOR

[Joan1980]

小丑,你人真好,初来咋到的我有人理也是一件开心的事,上面那题目你看不懂吗?

[atsiang]

USE 表名
DO WHILE RECC()<=100
INSERT BLANK
ENDD

[十豆三]

CLEAR
I=0.0005
P=8848
J=0
DO WHILE I<P
I=I*2
J=J+1
ENDDO
?"对折"+ALLTRIM(STR(J))+"次后超过8848M"

*结果为：对折25次后超过8848M

[Joan1980]

谢谢apple—8180的解答