| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1789 人关注过本帖
标题:问什么在路径上要加文本号
取消只看楼主 加入收藏
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:935
专家分:683
注 册:2016-6-29
结帖率:100%
收藏
 问题点数:0 回复次数:1 
问什么在路径上要加文本号
CLEAR ALL
SELECT 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 素数表万
搜索更多相关主题的帖子: 路径 SELECT 素数 开方 记录 
2019-03-01 10:53
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:935
专家分:683
注 册:2016-6-29
收藏
得分:0 
多谢各位的回复,我把文件名中的空格已经删除,文本也跟着去了,程序能正常运行。  那个文件名是下载vfp时,自动建立的,后来我移到了c盘下,因为这个笔记本电脑只有一个盘符,原来的路径复杂,我加文本号也是看命令窗口中都有文本号,很纳闷,就试着加了文本号,程序就正常运行了,所以才有此疑问。

素数问题的解决是我学习编程永恒的动力。
2019-03-02 12:14
快速回复:问什么在路径上要加文本号
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.059024 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved