![](https://img-blog.csdnimg.cn/20201014180756923.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
vfp
文章平均质量分 53
cdbqss1
这个作者很懒,什么都没留下…
展开
-
判断是否含有汉字或汉字标点
*方法一: LOCAL lcString lcString="adfd1成21d功fdsf577" IF LENC(ALLTRIM(lcString)) MESSAGEBOX("字符串中含用双字节字符!",64,"信息提示") ENDIF *方法二: LOCAL lcString lcString="adfd1成21d功fdsf577" FOR I原创 2006-07-12 03:21:00 · 1066 阅读 · 0 评论 -
内存变量的作用范围
今天在csdn论坛中,看到几个题目。分析并解答。 原贴是:http://topic.csdn.net/u/20080116/20/4eed1feb-a5a5-4080-87b5-aaded56e723d.html(3)指出下面程序的运行结果 主程序:MAIN.RPG 过程文件:PROGC.PRG SE原创 2008-01-17 03:48:00 · 1204 阅读 · 0 评论 -
加法器 问题
今天在csdn论坛中,看到几个题目。分析并解答。 题如下: 原贴见 http://topic.csdn.net/u/20080116/21/1f271f51-8423-4333-bb53-6f7a75b768bf.html计算S=12+32+52+…+n2,直到S> =10000为止,求n和S的值。 特别说明:以上所有的2都是表示"平方"的意思,偶是菜鸟!!不会设置"上标"格式.让大家见原创 2008-01-17 03:31:00 · 875 阅读 · 0 评论 -
排序 问题
今天在csdn论坛中,看到几个题目。分析并解答。 FoxPro数据库编程题 如下: 1、通过键盘输入20个数。(1)求其中最大者和最小者,并显示之; (2)将这20个数依从大到小排序,并显示排序结果。 原贴见:http://topic.csdn.net/u/20080116/20/1a683原创 2008-01-17 03:39:00 · 703 阅读 · 0 评论 -
小学一年级加减法生成器
前段时间,女儿所在的学校要求家长每天都要给孩子出一些加减法的数学题,让孩子练习。作为会一点程序设计的我来说,总想偷一些懒,于是制作了以下程序。 程序窗口,如下所示。具体源代码如下:首先,在表单Form1的 init 事件中, 加入以下代码CLOSE TABLES ALLTHISFORM.spinner1.VALUE=0THISFORM.spinne原创 2007-11-23 21:21:00 · 6300 阅读 · 6 评论 -
VFP趣味编程:鸡兔同笼
鸡兔同笼。小朋友数了数圈在笼子里的鸡和兔共有14个头,脚共有44只,问圈在笼子里的鸡和兔各有多少只?算法分析。这个问题与上次所讲的盲人裁判的问题差不多,如何解决鸡兔同笼问题呢?首先,设笼子中有x只鸡,则兔有14-x(为什么?因为无论是鸡或兔都只有一个头噻)。其次,寻找到另一个条件,脚一共有44只;这里还要用上生活常识作为默认条件,即一只鸡有2只脚,一只兔有4只脚,所以不用考虑鸡、兔缺胳膊少腿这原创 2007-03-30 23:18:00 · 6349 阅读 · 1 评论 -
VFP趣味编程:小白兔智斗狐狸
小白兔智斗狐狸。山上有十个洞,每洞之间相距较远,有一只狐狸和一只白兔,住在各自洞里。狡猾的狐狸总想捕捉吃掉白兔。一天二者远远相望,白兔对狐狸说:“把十个洞依次编成1至10号,我藏在其中一个洞里,你从你自己住的第10号洞出发,第一次走一个间隔,进洞找我,第二次走两个间隔找我,第三次走三个间隔找我,依次类推,次数不限。你若能找到我,你就可以饱餐一顿。”狐狸心想,不限次数,它总可以找到这只白兔。如果,从原创 2007-03-30 23:16:00 · 2397 阅读 · 1 评论 -
VFP趣味编程:把45拆成四个数之和
把45拆成A、B、C、D四个数之和,并且A加上2 B减去2 C乘以2 D除以2的结果相等。问A、B、C、D这四个数分别是多少?源程序ex8_1.prg如下: SET TALK OFFCLEACLEA ALLFOR i=1 TO 45 a=i-2 b=i+2 c=INT(i/2) d=i*2 IF a+b+c+d=45 ? a,b,c,d ENDIFENDFORRETU原创 2007-03-30 23:09:00 · 1118 阅读 · 0 评论 -
VFP趣味编程:求出10000以内,被2除余1,被3除余2,......,被9除余8的自然数。
求出10000以内,被2除余1,被3除余2,被4除余3,被5除余4,被6除余5,被7除余6,被8除余7,被9除余8的自然数。源程序ex7_1.prg如下: SET TALK OFFCLEACLEA ALLFOR i=1 TO 10000 IF MOD(i,2)=1 AND MOD(i,3)=2 ; AND MOD(i,4)=3 AND MOD(i,5)=4 ; AND MOD原创 2007-03-30 23:07:00 · 3266 阅读 · 5 评论 -
VFP趣味编程:百钱买百鸡
公鸡3元一只,母鸡5元一只,小鸡1元三只。100元钱买100只鸡,请算出公鸡、母鸡、小鸡的数目。思路分析:题目包含的条件有两个:一是共买了100支鸡,二是共花了100元钱。我们做最极端的假设,公鸡可能是0至100只,母鸡可能也是0至100只,小鸡也一样,将这三种情况用循环验证符合条件的情况,那就要做100*100*100种情况分析。源程序ex6_1.prg如下:SET TALK OFF原创 2007-03-30 23:00:00 · 5965 阅读 · 3 评论 -
VFP趣味编程:盲人裁判的判断
关于vfp的上机练习题已经编写完成很久了,学生们都反复练习过。本人一直就很想将其中的“趣味编程”部分整理出来,与广大网友分享。今天终于有时间可以完成这个愿望了,下面用九个篇幅来介绍九个有趣的问题。甲乙两人在进行射击气球比赛,裁判员却是一位盲人。10只气球全部打破了后,裁判问:“请把甲打破的气球数乘以2,把乙打破的气球数乘以3,再把两个结果相加,请把这个结果告诉我。”乙说“26。”裁判原创 2007-03-30 22:52:00 · 1562 阅读 · 0 评论 -
VFP趣味编程:求婚者的智慧
古代一个王国的公主爱上了花匠。公主要出嫁按传统要用抛绣球的方式选择附马。花匠就给公主献了个对策。婚日来临,人群拥挤,主持人叫求婚者排成一行,花匠在队列外数了数,共有101个人,于是他找了个适当的位置也站在了队伍中。主持人喊1、2,1、2地报数,报单数的退出场外;余下的人靠拢又成一行,再重新1、2,1、2地报数,报单数的退出场外;如此下去最后只剩一下,公主便嫁给谁。当然,最后剩下的是花匠。请问花匠站原创 2007-03-30 23:15:00 · 1380 阅读 · 1 评论 -
VFP趣味编程:猜数之谜
任意一个大于10的自然数,减去它的各位数之和,在所得的差中,随意圈去某位不等于零的数字,只告诉你没有被圈去的数字,就能知道被圈去数字是几。分析:以四位数为例,设四位数abcd用多项式来表示为1000a+100b+10c+d;减去各位数之和,即减去a+b+c+d;所得的差是999a+99b+9c=9(111a+11b+c),所以这个差一定是9的倍数。源程序ex10_1.prg如下:SET原创 2007-03-30 23:13:00 · 1616 阅读 · 0 评论 -
VFP趣味编程:素数(质数)的求法
素数(质数)的求法。若求N内的素数,可用N的平方根以内的素数倍数逐个筛掉,余下的便是所求的素数。源程序ex9_1.prg如下: SET TALK OFFINPUT "请输入自然数 N =" TO N?? "从1至"+STR(N)+"间的所以质数"l=0i=3DO WHILE iN j=INT(SQRT(i)) k=3 DO WHILE kj l=i-INT(i/k)*k原创 2007-03-30 23:11:00 · 4540 阅读 · 0 评论 -
对DBF表进行加密或解密
使用方法:DBF_JM(temp.dbf,1) &&加密DBF_JM(temp.dbf,0) &&解密 注意:被操作的表如果已经打开,一定要先关闭 UNCTION dbf_jm PARAMETERS filename,jm IF AT(.,filename)=0 filename=filename+.dbf &&处理文件名 END转载 2006-12-16 08:52:00 · 3868 阅读 · 0 评论 -
避免VFP中出现“Cannot Quit Visual FoxPro”
一、出现“Cannot Quit Visual FoxPro”的原因 第一种原因是:在执行了read event后,read event事件处于活动状态,此时,试图使用系统窗口的关闭按钮退出Visual FoxPro(或Visual FoxPro编写的应用,以下同),则会出现“Cannot Quit Visual FoxPro”。 在Visual FoxPro3.0中,即使read eve转载 2006-12-16 08:47:00 · 2272 阅读 · 0 评论 -
身份证号码的秘密
我国现行使用公民身份证号码有两种尊循两个国家标准,〖GB 11643-1989〗和〖GB 11643-1999〗。〖GB 11643-1989〗中规定的是15位身份证号码:排列顺序从左至右依次为:六位数字地址码,六位数字出生日期码,三位数字顺序码,其中出生日期码不包含世纪数。〖GB 11643-1999〗中规定的是18位身份证号码:公民身份号码是特征组合码,由十七位数字本体码和一位数字原创 2006-07-12 03:59:00 · 5837 阅读 · 1 评论 -
双重循环的使用 "九九乘法口诀表"
SET TALK OFF CLEA m=SPACE(24)+"九九乘法口诀表" ? m ? &&需要换行 FOR i=1 TO 9 FOR j=1 TO i m=STR(i,1)+"*"+STR(j,1)+"="+STR(i*j,2)+SPACE(2) ?? m &&直接把整个算式当成字符来显示 ENDFOR ? &&需要换行 ENDFOR原创 2008-07-13 07:55:00 · 1595 阅读 · 0 评论