*** *** FUNCTION DP V1.00 (C)Copyright 2006-2006 By Tiger5392 *** *** 若两个自然连续数乘积减1后是素数，则称此两个自然数连续数为友数对， ***该素数称为友素数。例如：2*3-1=5，因此2与3是友数对，5是友素数。 *** *** 那么如何计算n以内的所有大于2的自然数有多少个友数对呢? *** 设n是一个自然数，则其后的自然数为n+1。两个连续自然数是友数对的充 ***分必要条件是n(n+1)-1为素数，称为友素数。定义函数DP(n)用来计算从2到n ***之间有多少友数对。则...

常见狐友为VFP的查询犯愁，总想说一说关于查询，疏于动笔，拖至现在。 查询是VFP的基本功能，往往受到设计人员的特别关注。怎样设计一个良好的查询功能，当然需要看系统的要求。一般而言，我将查询分为定向查询、万能查询、组合查询、模糊查询等多种形式。 1.定向查询 顾名思义，定向查询是依据特定的字段进行的查询，比如根据某人的学号查询其基本资料，就属于定向查询。 实现定向查询很简单，就是输入一个数据，用SELECT-SQL、LOCATE/CONTINUE、SEEK、SET FILTER TO等命令实现。其中的FOR条件或WHERE条件用“字段=变量”表示。查询的结果根据需要可以显示在原来...

****** 最简因子分解 SF (C)Copyright 2006-2006 By Tiger5392****** 用法:*** ?SF(nExpress)****** 参数:*** nExpress为数值表达式，要求输入正整数****** 返回:*** 字符串，用逗号分开的所有最简因素及奇数因素个数,偶数因素个数,总因素个数,质数或合数*** "0-没有参数": 如果没有参数*** "1-参数不为数值": 如果参数不为数值*** "2-参数不为正整数": 如果参数不为正整数***PARAMETERS nNum1PR...

******** GBSGYS V1.00 (C)Copyright 2006-2006 By Tiger5392******** 功能**** 计算两个正整数的最大公约数及最小公倍数******** 用法**** ?GYSGBS(nExpr1,nExpr2,nExpr3)******** 参数**** nExpr1 第一个正整数**** nExpr2 第二个正整数**** nExpr3 如为0则计算最大公约数；如为1则计算最小公倍数******** 返回**** ...

*FUNCTION CDTOCD****** 日期转换为大写的自定义函数 CDTOCD****** 语法 CDTOCD(cDate1,nMonth,nDay)****** 输入参数cDate1*** (1)字符型,1个参数或多个参数,只有第1个参数有效*** 14个字符，格式是“YYYY年MM月DD日”或者“YYYY..MM..DD..”(".."可以是任何无关字符)*** 10个字符，格式是“YYYY.MM.DD”(.也可以是任何无关字符)*** 8个字符，格式是“YYYYMMDD”*** (2)日期...

搞了很久的程序设计，特别是用Visual FoxPro，有辛苦也有喜悦。 早些日子，用FoxBASE+做了几个系统，用得不错。记得很清楚的一件事情是，在合资企业里，有一个工程师需要搞挂齿选择，让美国人做了一个程序，据说算了1天也没有什么结果。后来他跟我说了，我试着用FoxBASE+做了一个程序，效果很好，50个齿轮以内的数量运行几秒种就能全部找出高精度的结果。原来，我还能运用FoxBASE+解决一些问题，而且还能解决得很好。虽然那时候也很熟练使用FoxBASE+了，但好象能解决类似十分复杂的问题是不敢相信的。那是快乐的单身汉的时代，几个真正的“狐友”在一起切磋技艺，互相鼓励...

用表单FORM1进行登陆，文本框TEXT1输入用户名，文本框TEXT2输入密码，optiongroup1为身份标志；COMMAND1为确定；表"用户表.DBF"存放有关用户及密码信息。(1)在FORM1.INIT()将次数i设成全局变量并打开用户表CLOSE ALLIF FILE([用户表.DBF]) USE 用户表.DBFELSE CREATE TABLE 用户表 (用户名 C(12),密码 C(12),身份 C(12)) APPEND BLANK REPLACE 用户名 WITH [SYSYTEM],密码 WITH [SYSTEM],身份 WITH [SYSTEM]ENDIF...

组合框(COMBO1)是否展开(即下拉部分是否可见)的判断问题看起来很难实现，初看好象十分地没有意思，其实这是个很有意思的问题。这个问题本身不难，但找到解决这个问题的办法的过程却需要想象，且有助于开阔思路。COMBO1.MOUSEDOWN()记录了很多的信息:LPARAMETERS nButton, nShift, nXCoord, nYCoord 其中nButton记录按的是鼠标左键(1)还是右键(2)；nSfift的值表示是否按着Sfift键的同时点击鼠标(按着返回1;否则为0)；而nXCoord和nYCoord则记录着点击鼠标的时候坐标点的值。而想让组合框下拉部分展开，必须点...

假设一个表(表1.DBF)有若干个字段(字段1,字段2,......)要用表格(GRID1)和文本框(TEXT1,TEXT2,......)显示出来,还要有"首记录","上记录","下记录","尾记录"等命令按钮,还要点击GRID1某行后该行的记录也要显示在TEXT中.程序设计如下:(1)FORM1.INIT()SET TALK OFFSET DATE ANSISET CENTURY ONCLOSE ALLIF FILE("表1.DBF") USE 表1.DBFELSE RETURNENDIFTHISFORM.GRID1.RECORDSOURCETYPE=1THISFORM.GRID...

新建表单(FORM1)，里面添加TEXT1、TEXT2、GRID1、COMMAND1、COMMAND2等控件。你用TEXT1存放矩阵的行数(表1.DBF的记录总数)，用TEXT2存放矩阵的列数(表1.DBF的字段数)，GRID1显示表1.DBF的内容，COMMAND1为"修改表结构"，COMMAND2为"结束"， (1)FORM1.INIT()CLOSE ALLIF FILE("表1.DBF") USE 表1.DBFELSE CREATE TABLE 表1 (列1 N(12,4),列2 N(12,4)) APPEND BLANK REPLACE 列1 WITH 0,列2 WI...

用VFP编制计算器 Tiger5392 2006-06-12 1.控件及其分布 在表单中创建29个命令按钮和1个文本框。1个文本框在表单的最上面。29个命令按钮分布在表单的5行6列，其中第1行只有5列。这29个命令按钮分别是 BackSpace(向前删除字符),CE(清除文本框内容并清除内存数据),C(清除文本框),(,); MC(清除内存数据),7(数字7),8(数字8),9(数字9),/(除号),SQRT(求算术平方根); <P style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent...

*************************************************** 一种加密和解密算法 JM.PRG (C)Copyright 2006-2006* 加密: ?JM("文件名.DBF",88) &amp;&amp;返回0为成功* 解密: ?JM("文件名.DBF",-88) &amp;&amp;返回0为成功* 作者: Tiger5392* 时间: * 建立时间 2006.06.11* 第1次修改时间 2006.06.11*********************************************...