[原创]请教vfbpgyfk先生一个编程问题

白新岭

截止2025年06月10日周二23:09分浏览量755910， 回复3716，热度279
截止2025年06月11日周三23:18分浏览量757485， 回复3720，热度279

白新岭

截止2025年06月11日周三23:18分浏览量757485， 回复3720，热度279
截止2025年06月12日周四09:14分浏览量757583， 回复3721，热度279

白新岭

SELECT 1
USE d:\最密四生素数文件\四中和值1.DBF ALIAS 四中和
kssj=SECONDS()
FOR i=1 TO 100000
   @ 3,6 say i
   jl=recno()
   
      FOR j=1  TO 5
      s=i*210+(INT(j/2)+j)*30
      SELECT 1
      APPEND BLANK     &&增加一条空记录
      REPLACE szhz WITH s
      ENDFOR
      
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
给最密四中和值置数

白新岭

截止2025年06月11日周三23:18分浏览量757485， 回复3720，热度279
截止2025年06月12日周四23:16分浏览量758082， 回复3723，热度279

白新岭

截止2025年06月12日周四23:16分浏览量758082， 回复3723，热度279
截止2025年06月13日周五08:37分浏览量758468， 回复3724，热度279

白新岭

截止2025年06月12日周四23:16分浏览量758082， 回复3723，热度279
截止2025年06月13日周五23:58分浏览量759089， 回复3725，热度279

白新岭

截止2025年06月13日周五23:58分浏览量759089， 回复3725，热度279
截止2025年06月14日周六09:14分浏览量760612， 回复3726，热度279

白新岭

SELECT 1
   USE d:\最密四生素数文件\四中升序.DBF ALIAS 四中表
   SELECT 2
   USE d:\最密四生素数文件\四中统计.DBF ALIAS 四中统计
   
   kssj=SECONDS()
   FOR i=1 TO 34
      @ 3,6 say i
        fw=i*446185740
        SELECT 1
        COUNT ALL FOR ssz<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 区间 WITH i
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
统计最密四生素数中项数量（各分段）

白新岭

SELECT 1
   USE d:\最密四生素数文件\四中升序.DBF ALIAS 四中表
   SELECT 2
   USE d:\最密四生素数文件\四中和值1.DBF ALIAS 四中和值
   kssj=SECONDS()
   SELECT 1
   GO 1 &&定位在第一个参与运算值上,本次运行交叉部分，外循坏取前段，内循环取后段，一次产生两组
     FOR i=1 TO 149
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=ssz
        SELECT 1
        GO 1
        FOR j=1  TO 14923
        PUBLIC B
        B=ssz
        n=A+B
        c=INT(n/210)*5
        d=(n-210*INT(n/210))/30
      IF d<2
      SELECT  2
      GO   c+d
      REPLACE sztj WITH sztj+1 &&本次运行（a+b）的平方交叉部分
      ELSE
      SELECT  2
      GO c+INT((d+INT(d/2))/2)
      REPLACE sztj WITH sztj+1 &&本次运行（a+b）的平方交叉部分，之前丢了+1
      ENDIF
      SELECT 1
      skip
      ENDFOR
      SELECT 1
      GO jl+1
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
分配四中和值

白新岭

AI智能回答
重新生成
在VFP中批量替换表中某一字段的值
在VFP（Visual FoxPro）中，批量替换表中某一字段的值可以通过使用REPLACE命令来实现。以下是一个基本的步骤指南2：

打开数据表：首先，你需要打开包含你要替换字段的数据库表。可以使用USE命令来打开表，例如USE 表名。
使用REPLACE命令：一旦表被打开，你可以使用REPLACE命令来替换字段的值。基本语法是REPLACE 字段名 WITH 新值 FOR 条件。例如，如果你想将“地址”字段中所有值为“北京”的记录替换为“南京”，你可以使用REPLACE 地址 WITH 南京 FOR 地址 = "北京"。
使用ALL关键字：如果你想要替换表中所有符合条件的记录，可以在FOR子句后面加上ALL关键字。例如，REPLACE 地址 WITH 南京 FOR 地址 = "北京" ALL。
处理新插入的字段：如果你需要对新插入的字段进行特定范围的值替换，可以使用REPLACE NEXT n 字段名 WITH 新值命令，其中n是要替换的记录数。例如，要将前50条记录的“zz”字段值设为“南京”，可以使用REPLACE NEXT 50 zz WITH 南京，接着用GO 51跳转到第51条记录，再使用REPLACE NEXT 50 zz WITH 成都将接下来的
如何把vfp表中某一字段值全部替换，AI给出的答案：REPLACE 字段名 WITH 新值 FOR 条件