我(老虎)与汤司令相识很早，那时候都是一个人吃饱全家不饿的快乐单身汉。 我是做生产计划的。用手工做久了，总觉得工作太枯燥，做什么没有挑战性，也没有激情。于是建议老板买台电脑，我们做点程序代替手工。没想到，老板居然同意了。凭借着老板对我的信任，凭借着“解放”自己的决心和勇气，我开始大干了起来。于是我准备了两箱子方便面，将自己封闭起来，花了1个月的时间，将生产计划的程序做了出来。将具体工作移交以后的日子，是我最快乐的日子。今天到这个部门看看，明天到那个部门转转，朋友结识了不少。汤司令就是我在那时候结识的。 其实，汤司令是做财务的，我早就知道他，可我们还不是很熟...

******C33选6 (C)Copyright 2006-2006 Tiger5392***SET TALK OFFDIMENSION acCaipiao(6)PRIVATE acCaipiao,cText,nCnt,lOk,JacCaipiao=[00]cText=[]nCnt=1DO WHILE nCnt<=6 nRand=PADL(INT(RAND()*33+1),2,"0") lOk=.T. FOR J=1 TO nCnt IF acCaipiao(J)=nRand lOk=.F. EXIT ENDIF ENDFOR IF lOk ...

******随机生成字母数字组合 (C)Copyright 2006-2006 Tiger5392***PARAMETERS nNumPRIVATE nNum,cText,nCnt,nRandnNum=IIF(TYPE("nNum")=CHR(78) AND INT(nNum)=nNum AND nNum>0,nNum,6)cText=[]FOR nCnt=1 TO nNum nRand=RAND() DO CASE CASE nRand<=10/62 cText1=CHR(48+nRand*62) CASE nRand<=36/62 cText1=CHR(65+nR...

******产生随机数字 (C)Copyright 2006-2006 Tiger5392***PARAMETERS nNumPRIVATE nNum,cText,nCnt,nRandnNum=IIF(TYPE("nNum")=CHR(78) AND INT(nNum)=nNum AND nNum>0,nNum,6)cText=[]FOR nCnt=1 TO nNum nRand=RAND() cText=cText+CHR(48+nRand*10)ENDFORRETURN cText

******产生随机字母 (C)Copyright 2006-2006 Tiger5392***PARAMETERS nNumPRIVATE nNum,cText,nCnt,nRandnNum=IIF(TYPE("nNum")=CHR(78) AND INT(nNum)=nNum AND nNum>0,nNum,6)cText=[]FOR nCnt=1 TO nNum nRand=RAND() cText=cText+IIF(nRand<=0.5,CHR(65+nRand*52),CHR(97+(nRand-0.5)*52))ENDFORRETURN cText

***************************************************-- Form: form1 (计算器2.scx)*-- 父类: form*-- 基类: form*-- 作者: Tiger5392 来自www.bc-cn.net中国编程论坛(C)Copyright2006-2006DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 278 Width = 405 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT te...

* 回文 (C)Copyright 2006-2006 By Tiger5392* 用法* ?回文(cExpress)* 参数* cExpress: 字符型常量、变量、函数、表达式* 返回值* 一个数值* 数值 含义* 0 是一个空串* 1 是单字节回文,是双字节回文* 2 是单字节回文,不是双字节回文* 3 不是单字节回文,是双字节回文* 4 不是单字节回文,不是双字节回文* 有关概念* 单字节回文:一个字符串，...

*THISFORM.INIT()*初始化设置**新建一个表单后保存。*在该表单里，添加*2个标签LABEL1和LABEL2；*2个文本框TEXT1和TEXT2；*4个命令按钮COMMAND1-COMMAND4；*1个表格GRID1*SET TALK OFFSET SAFETY OFFPUBLIC LOKLOK=.F.*设置FORM1的属性THISFORM.WIDTH=480THISFORM.HEIGHT=317THISFORM.MINWIDTH=480THISFORM.MINHEIGHT=317THISFORM.CAPTION="由DBF导出和导入XLS (C)Copyright 200...

关于查询的一个示例 Tiger5392 (C)Copyright 2006-2006(1)新建一个表单,添加你需要的标签、文本框、命令按钮组等。还要添加一个过程TEXTREFRESH。假设其中TEXT7是你要输入查询的内容。(2)THISFORM.INIT里写PUBLIC MMCLOSE ALLIF FILE("你的表.DBF") USE 你的表.DBFELSE *CREATE TABLE 你的表 (你的字段名......ENDIFTHISFORM.TEXT1.INPUTMASK="XXXXXXXXX" &amp;&amp;根据你的第一个字段的要求设定*其他文本框,包括TEXT7在...

**验证哥德巴赫猜想 BY Tiger5392 (C)2006-2006** 哥德巴赫猜想是世界近代三大数学难题之一。*1742年，哥德巴赫在教学中发现，*每个不小于6的偶数都是两个素数（只能被和它本身整除的数）之和，*如6＝3＋3，12＝5＋7等等。* 当年，哥德巴赫写信给当时的大数学家欧拉，提出了以下的猜想：*　　(a)任何一个≥6之偶数，都可以表示成两个奇质数之和。*　　(b)任何一个≥9之奇数，都可以表示成三个奇质数之和。*这就是著名的哥德巴赫猜想。* 目前最佳的结果是中国数学家陈景润于1966年证明的，称为陈氏定理（ChensTheorem）。*“任何充分大...

我知道VFP有一个函数TYPE()能判断某个变量或表达式的数据类型，也可以判断该变量或表达式计算的结果的数据类型，因此问题的关键是如何生成一个表达式，判断它的值是不是数值型，其值是不是24就可以了。比如4个1位数1、2、3、4。如果生成的表达式没有括号的话，这样的表达式是形如1+2+3+4的表达式，其中1、2、3、4的位置可互换；三个加号可换成任意运算符号(+、-、*、/)。如果在表达式中只允许加1对括号的话，可以生成的表达式形式更多，如(1+2)+3+4、1+(2+3)+4、1+2+(3+4)、(1+2+3)+4、1+(2+3+4)等。如果在表达式中允许有2对括号的话，则可生成的表达式...