问什么在路径上要加文本号
CLEAR ALLSELECT 1
USE C:\Visual Foxpro 项目\素数表.DBF ALIAS 素数表
SELECT 2
USE C:\Visual Foxpro 项目\素数表万.DBF ALIAS 素数表万
For N=103 to 9999 step 2
@ 2,5 say N &&显示N值
Kf=INT(SQRT(N)) &&求出奇数的开方根
SELECT 素数表 &&打开素数表
LOCATE FOR 素数>=kf &&根据开方根,查找最大素数
DO CASE
CASE EOF() &&如果超出素数表最后一条记录
GO BOTTOM
CASE 素数>kf &&如果找到的素数比开方根值大,就将记录指针退回一个,保证使用的最大素数在开方根内
SKIP -1
ENDCASE
SSS=RECNO() &&记录下最大素数(开方根内)记录位置(如果找到的素数等于开方根,则直接读取这个素数的位置)
GO 1 &&从第一条记录开始读取素数(3)
FOR j=1 TO SSS &&内循环开始。这个循环实质上是从小到大顺序,依次读取素数。循环值是记录序号
qmz=MOD(N,素数) &&以读取的素数为条件,对被判断值求模 【qmz=MOD(bpz,素数)】文本号括着的原在此行语句体部分.特别需要注意的是在用标点符号时,一定改成英文模式及半角状态。
IF qmz=0
EXIT
ENDIF
SKIP &&素数表指针向下移动一个
ENDFOR
IF j>sss
SELECT 素数表万 &&打开盛放素数的表
APPEND BLANK &&增加一条空记录
REPLACE 素数万 WITH N &&将N值付给素数
ENDIF
ENDFOR
这个程序不能运行,提示:命令中含有不能识别的短语或关键字,定位在第三行路径上,当把路径加上文本号后,程序可正常运行。
修改成:
USE "C:\Visual Foxpro 项目\素数表.DBF" ALIAS 素数表
SELECT 2
USE "C:\Visual Foxpro 项目\素数表万.DBF" ALIAS 素数表万