【程序说明】
设有表文件“职工.DBF”(有字段:职工编号、姓名、民族)和“工资.DBF”(有字段:职工编号、工资),要在它们之间建立逻辑连接,然后为每个少数民族职工的工资增加
200元,最后显示全体职工的职工编号、姓名和工资。 【程序】 SET TALK OFF SELECT 1 USE 职工 (5) TO ZGBH SELECT 2 USE 工资 SET RELATION TO (6) REPLACE 工资 WITH (7) FOR (8) LIST职工编号, (9) ,工资 SET RELATION TO CLOSE DATA SET TALK ON RETURN |
【程序说明】
统计2~M中有多少个素数(只能被1或自身整除的整数称为素数)。 【程序】 SET TALK OFF CLEAR INPUT “M=” TO M S=0 (10) IF SS(I) S=S+1 STR (1,5) ENDIF ENDFOR STR(5,5) SET TALK ON FUNC SS (11) FOR J=2 TO X-1 (12) EXIT ENDIF ENDFOR IF J=X RETU .T. ELSE (13) ENDIF ENDFUNC |
我来回答: