vfp编程题.doc

1、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）编写程序，要求在屏幕的第10行，第10列输入设备编号BH；在SB表中查找编号字段为BH的记录，若找到，则将该记录的价格改为原价格的90%，若没有找到，则在屏幕上显示不存在要修改的记录！。评析：Set talk offClearUse SBBH=space(4)10,10 say 输入设备编号： get BHReadLoca for 编号=bhIf found()Repl 价格 with 价格*0.9Else11,10 say 不存在要修改的记录！UseReturn2、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）编写程序，要求在屏幕的第10行，第10列输入整数X；第11行，第10列输入整数Y，将SB表中X=价格=Y的记录的名称，价格字段显示在屏幕上。评析：Set talk offClearUse SB10,10 say 价格下限为： get X defa 010,11 say 价格上限为： get Y defa 0ReadDisp for 价格=xUsereturn3、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）编写程序，要求在屏幕的第10行，第10列输入整数X；第11行，第10列输入整数Y，将SB表中X=价格=Y的记录复制到TSB表中并按编号建立索引，索引标为BH。评析：Set talk offClearUse SB10,10 say 价格下限为： get X defa 010,11 say 价格上限为： get Y defa 0ReadCopy to TSB for 价格=xUse TSBIndex on 编号 tag BHUseReturn4、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）编写程序，要求在屏幕的第10行，第10列输入整数X；第11行，第10列输入整数Y，将SB表中X=价格=Y的记录删除。评析：Set talk offClearUse SB10,10 say 价格下限为： get X defa 010,11 say 价格上限为： get Y defa 0ReadDele for 价格=xPackUsereturn5、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）编写程序，要求在屏幕的第10行，第10列输入整数X；第11行，第10列输入整数Y，计算SB表中X=价格=Y的记录的条数，平均价格，最高价格。评析：Set talk offClearUse SB10,10 say 价格下限为： get X defa 010,11 say 价格上限为： get Y defa 0Readselect count(),avg(价格),max(价格) from SB where 价格=xUsereturn6、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）编写程序，要求在屏幕的第10行，第10列输入整数Y表示日期的年份；将SB表中启用日期在Y年以前启用的设备的新旧标志字段改为.F.，其它记录的新旧标志字段改为.T.。评析：Set talk offClearUse SB10,10 say 年份： get Y defa 0ReadRepl 新旧标志 with .T. for year(启用日期)=yUseRetu7、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）编写程序，要求在屏幕的第10行，第10列输入整数Y表示日期的年份；将SB表中启用日期在Y年以前启用的设备记录的名称，价格字段显示在屏幕上。评析：Set talk offClearUse SB10,10 say 年份： get Y defa 0ReadDisp fiel 名称,字段 for year(启用日期)yUse retu8、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）编写程序，要求在屏幕的第10行，第10列输入整数Y表示日期的年份；将SB表中启用日期在Y年以前启用的设备记录复制到TSB表中并按编号建立索引，索引标识为BH。评析：Set talk offClearUse SB10,10 say 年份： get Y defa 0ReadCopy to TSB for year(启用日期)yUse TSBIndex on 编号 tag bhretu9、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）编写程序，要求在屏幕的第10行，第10列输入整数Y表示日期的年份；将SB表中启用日期在Y年以前启用的设备记录删除。评析：Set talk offClearUse SB10,10 say 年份： get Y defa 0Readdele for year(启用日期)ypackuseretu10、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）编写程序，要求在屏幕的第10行，第10列输入整数Y表示日期的年份；计算SB表中启用日期在Y年以前启用的设备记录的记录的条数，平均价格，最高价格。评析：Set talk offClearUse SB10,10 say 年份： get Y defa 0Readselect count(),avg(价格),max(价格) from SB where year(启用日期)Yuseretu11、输入圆的半经，计算圆的面积和周长。评析：input r= to rs=3.1415*r*r c=3.1415*2*r? s=,s? c=,c12、输入三角形的底和高，计算三角形的面积。评析：input a= to ainput b= to bs=(a*b)/2? s=,s13、编写一个程序，求三个数中的最大值。评析：Input a= to ainput b= to binput c= to cmax=aif maxb max=bendifif maxb min=bendifif minc min=cendif? min=,min15、用do while循环编程计算p=1*2*3*.*20。评析：p=1k=1do while k=20 p=p*k k=k+1enddo? 1*2*3*20=,p16、用for循环编程计算s=1+2+3+4+.+100。评析：s=0for i=1 to 100 s=s+inext? 1+2+3+4+100=,s17、用do caseendcase语句编程计算评析：input x= to xdo case case x0 .and. x=10 y=2*xendcase? y=,y18、用ifelseendif语句编程计算评析：input x= to xif x0 y=x*x+1else if x=0 y=0 else if x5 y=x else y=2*x+1 endif endifendif? y=,y19、编程