企业管理

开发平台：

VFP

JSQ-1.PRG：源码内容

							 x1 = 0
 x2 = 3
 y1 = 0
 y2 = 24
 @ 0, 0 CLEAR TO 3, 26
 SET COLOR TO W/B
 DO box-1
 pd = 0
 fh = 1
 js = 0
 SET COLOR TO
 @ 2, 6 SAY '计 算 器'
 SET COLOR TO W/B
 @ 2, 17 SAY '╋'
 DO WHILE .T.
      pd = 0
      SET COLOR TO
      @ 0, 29 SAY '结果'
      @ 0, 34 SAY js PICTURE '9999999999.99999'
      SET COLOR TO N/W
      @ 1, 4 SAY '          0.00000'
      SET COLOR TO W/B
      k = INKEY(0)
      DO CASE
           CASE k=6
                js = 0
           CASE k=47
                fh = 4
                @ 2, 17 SAY '÷'
           CASE k=43
                fh = 1
                @ 2, 17 SAY '╋'
           CASE k=45
                fh = 2
                @ 2, 17 SAY '━'
           CASE k=42
                fh = 3
                @ 2, 17 SAY 'Ⅹ'
           CASE k=27
                EXIT
           CASE k=46 .OR. k>47 .AND. k<58
                @ 1, 4 SAY '' GET pd PICTURE '9999999999.99999'
                KEYB CHR(k)
                READ
                DO CASE
                     CASE fh=1
                          js = js+pd
                     CASE fh=2
                          js = js-pd
                     CASE fh=3
                          js = js*pd
                     CASE fh=4
                          IF pd<>0
                               js = js/pd
                          ENDI
                ENDC
           CASE k=-7
                DO qp
                EXIT
           OTHE
                ?? CHR(7)
      ENDC
 ENDD
 DO qp
 js = ROUND(js+0, 2)
 SET COLOR TO W/N
 RETU
*

						