胆码测试程序.prg

来自「这是一款非常实用的福彩3D彩票统计分析软件,实现各种代码走势图的查看,以及按照相」· PRG 代码 · 共 49 行

SET TALK OFF
DIME S(30)
DIME BB(5)
DIME BS(5)
DIME BG(5)
T="●"
F="×"
N=1
h1=0
h2=0
h3=0
SELE A
USE X3D.DBF

SELE J
USE 胆码测试表.dbf
dele all
pack

sele a
do while .NOT.EOF()
   S(1)=期号
   S(2)="百位"
   if s(2)=0
       t1=10
       else
       t1=s(2)
       endif
       
   S(3)="十位"
   if s(3)=0
      t2=10
      else
      t2=s(3)
      endif
      
   S(4)="个位"
     if s(4)=0
        t3=10
        else
        t3=s(4)
        endif
   h1=h1+t1
   h2=h2+t2
   h3=h3+t3