二道visual foxpro的题目！请各位帮忙！！谢谢！！

[edwardli]

一、请设计程序，统计1到100这100个整数中质数的个数，并求和。

二、设计一个程序，其功能是把学生表的记录按照从最后一个到第一个的顺序依次用格式输出显示出来，而且没一屏显示3个纪录。显示的内容是：记录号、学号、姓名、性别和出生日期

[ljleager]

第一个问题
Ncount=0
Nsum=0
For i=2 to 99 step 1
Liszs=.T.
For j=2 to i-1 step 1
If i%J=0
Liszs=.F.
endif
EndFor
If Liszs=.T.
Ncount=Ncount+1
Nsum=Nsum+i
EndIf
EndFor

[ljleager]

第二个问题：
新增一个整型字段,MyField
代码：
use 表名
Nzs=recc()+1
repl all MyField with recn()
inex on Nzs-MyField to px
go top
disp next 3 记录号,学号,姓名,性别,出生日期

[noproblem12]

A=0 && 累加器
b=0 &&计数器
i=2 &&从2开始
DO while i<=100
m=2
N=1
DO while n!=0 and m<=(i/2)
N=i%m
m=m+1
ENDDO
IF n!=0
A=A+i
b=b+1
?i
ELSE
ENDIF
i=i+1
ENDDO
?A
?b

其实不用 For j=2 to i-1 step 1
。。。。。。。to i/2。。。。

即可

[edwardli]

第二个问题的答案我怎么看不懂？ 不好意思！我刚刚接触到vfp,还不太熟悉！请见谅！

[ljleager]

第二个问题的思路是：
1、在表中增一临时字段用于倒排记录顺序（要求从最后一个到第一个嘛）
2、用记录号填充临时字段的值（1,2,3,4......998,999）
3、用一个大于总记录的数减临时字段的值得到大小颠倒的新数值(999,998,.....2,1)做索引，起到倒排序的效果
4、用disp等语句按要求输出即可

[ljleager]

关于不能运行的消息我已回复，请查看。

[edwardli]

还有其他方法吗？除了这个增加新字段的？

[terran2008]

clear
use 表名
go bottom
do while !bof()
for i=1 to 3
display 记录号,学号,姓名,性别,出生日期
skip -1
if bof()
exit
endif
endfor
wait timeout 10
clear
enddo
return