杭州交通信息网河南省事业单位工资:关于visual foxpro
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/30 03:56:02
编写程序kt.prg,对zgda表操作，实现一下功能：输入编号或姓名进行循环查询，若找到则数据表指针定位到相应记录，否则提示错误并重新输入；输入查找内容时直接回车则退出；程序提供菜单控制，可根据用户选择对找到的记录进行浏览，修改，删除或重新查找。(可能的上机操作)
第一个是：
有一分数序列：2/1、3/2、5/3、8/5、13/8。。。求出这个数列的前20项之和。
第二个是：
判断1到100之间的自然数是否能被3或5整除。针对以下四种情况输出相应的信息，并分别统计其个数。四种情况为：能同时被3和5整除，仅能被3整除，仅能被5整除，不能被3或5整除。
第一个是：
有一分数序列：2/1、3/2、5/3、8/5、13/8。。。求出这个数列的前20项之和。
第二个是：
判断1到100之间的自然数是否能被3或5整除。针对以下四种情况输出相应的信息，并分别统计其个数。四种情况为：能同时被3和5整除，仅能被3整除，仅能被5整除，不能被3或5整除。
第一个：SET TALK OFF
CLEAR
s=0
a=1
b=1
FOR i=1 TO 20
j=a
a=a+b
b=j
? lTRIM(STR(a))+'/'+lTRIM(STR(b))
ENDFOR
? "第20项为"+lTRIM(STR(a))+'/'+lTRIM(STR(b))
SET TALK on
第二个：
SET TALK OFF
CLEAR
j1=0
j2=0
j3=0
j4=0
FOR i=1 TO 100
IF MOD(i,3)=0.and.mod(i,5)=0
j1=j1+1
ENDIF
IF MOD(i,3)=0.and.mod(i,5)<>0
j2=J2+1
ENDIF
IF MOD(i,5)=0.and.mod(i,3)<>0
j3=j3+1
ENDIF
IF MOD(i,5)<>0.and.mod(i,3)<>0
j4=j4+1
ENDIF
ENDFOR
?"同时被3和5整除:",j1,"个"
?"仅能被3整除:",j2,"个"
?"仅能被5整除:",j3,"个"
?"不能被3或5整除:",j4,"个"
SET TALK on