| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 882 人关注过本帖
标题:请问你能回答几个,我一个都不能!!!
取消只看楼主 加入收藏
aegis120
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2005-11-10
收藏
 问题点数:0 回复次数:2 
请问你能回答几个,我一个都不能!!!
请问你能回答几个,我一个都不能!!!

在VFP中,完成以下各题:

一、编写程序,功能为:根据系统当前日期判断星期几,并显示中文的“今天是星期(几)”

二、编写程序,功能为:将某表中的性别字段中的“男”改为“M”,“女”改为“F”。并显示第1条记录“总号”“学号”“性别”三个字段内容。

三、编写程序,功能为:统计某表中“年龄”字段各记录的值小于或等于“35”的人数,并显示“35风以下的人共有(数值)名”。

四、编写程序,功能为:在主窗口中显示某表中结构索引标识的名称及其候选状态。

五、编写程序,功能为:当数值型内存变量TEST被赋值时,显示变量值(分数)并判定成绩(评价),其中变量TEST的值在>=0并且<60\>=60并且<80\>=80并且<90\>=90并且<=100时,分别判定为"不及格"、"及格"、"良好"、“优秀”;当变量TEST的值<0ak >100时,则判定为“考试成绩有误,需要重新计分”。

六、编写程序,功能:根据当前系统时间显示月份并显示该月份相应的季度。

七、编写程序,功能:统计某表中“dwmc”前两个字为“广东”的共有多少条记录。

八、编写程序,功能:如果某表中各记录“F1”至“F5”字段数值之和大于或等于40,则在“ZF”字段中记录“F1”至“F5”之和的数值;如果 “F1”至“F5”字段数值之和小于40,帽在“ZF”中记录“NO PASS”;显示第1至第10条记录“KPYBH”、“F1”、“F2”、“F3”、“F4”、“F5”、“ZF”、“BZ”字段的值。

九、编写程序,功能:当系统的日期为3月8日、5月1日、6月1日、10月1日时,分别显示日期并提示“三八国际妇女节”、“五一”国际劳动节、“六一”国际儿童节、中华人民共和国国庆节。

十、编写程序,功能:在主窗口显示从“L”至“U”10个英文字母的ANSII值。

十一、编写程序,功能:统计某表中“JPK”字段的值大于200的记录共有多少条。

十二、编写程序,功能:当某表中的“余额”字段各记录的值小于或等于1000时,则增加50倍,大于1000并小于10000时,则增加10培;显示第1至8条记录的“凭单号”、“对方科目”、“支票号”、“余额”四个字段的内容。

十三、编写程序,功能:在主窗口中显示ANSII值65至75对应的英文字母。

十四、编写程序,功能:统计某表中“SXR”字段第一个字为“刘”和“王”的分别有多少条记录,并在主窗口中显示。

十五、编写程序,功能:在主窗口中显示某表中的全部字段名。

十六、编写程序,功能:查找某表中“单位名称”字段前两个字为“卫生”的记录,并在主窗口显示“单位名称”、“学习人数”“TJ3”、“TJ11”四个字段的内容。

十七、编写程序,功能:当系统的日期为2月25日、8月6日、9月16日、12月12日时,分别显示日期并提示这一天是小明、小红、小刚、小英的生日。

十八、编写程序,功能:查找某表中“XM”字段的值为“王和秀”、“钱利宏”、“沈福”、“李小明”的记录,并在主窗口显示“XM”、“DWDM”、“GZRQ”、“BZGZ”、“SHPT”五个字段的内容,未找到的记录则显示“未找到该记录:(姓名)”。

十九、编写程序,功能:分别统计某表中“ZC”字段的值大于或等于60和大于或等于90的记录数,计算各自所占全部记录的百分比,并在主窗口中显示统计结果。

搜索更多相关主题的帖子: 记录 编写程序 中文 
2005-11-10 07:53
aegis120
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2005-11-10
收藏
得分:0 
请问为什么?
2005-11-13 15:59
aegis120
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2005-11-10
收藏
得分:0 

很感谢大家的关心和帮助,我现在也在别论坛上找到一点提示,完成了几部分,但不敢藏私,抄下来给大家一齐看看,也对VFP有兴趣的大伙有个交待。谢谢大家。

四、编写程序,功能为:在主窗口中显示某表中结构索引标识的名称及其候选状态。

use table &&此表必须建立有主索引、候选索引、普通索引,否则VFP出错。

for ncount=1 to 254

if !empty(tag(ncount))

?tag(ncount)

?primary(ncount)

else

exit

endif

endfor


五、编写程序,功能为:当数值型内存变量TEST被赋值时,显示变量值(分数)并判定成绩(评价),其中变量TEST的值在>=0并且<60\>=60并且<80\>=80并且<90\>=90并且<=100时,分别判定为"不及格"、"及格"、"良好"、“优秀”;当变量TEST的值<0ak >100时,则判定为“考试成绩有误,需要重新计分”。

clear

input "输入一个数:" to test

do case

case test >=0.and.test<60

?"不及格"

case test <80

?"及格"

case test <90

?"良好"

case test<=100

?"优秀"

other

?"考试成绩有误"

endcase


六、编写程序,功能:根据当前系统时间显示月份并显示该月份相应的季度。

t_month=int(cmonth(date()+2)/3)

do case

case t_month=1

txt_month="now is November in the First Quarter of a year"

case t_month=2

txt_month="now is November in the Second Quarter of a year"

case t_month=3

txt_month="now is November in the Third Quarter of a year"

case t_month=4

txt_month="now is November in the Fourth Quarter of a year"

endcase

wait windows txt_month


七、编写程序,功能:统计某表中“dwmc”前两个字为“广东”的共有多少条记录。

use table

count to nm for left(dwmc,2)="广东"


八、编写程序,功能:如果某表中各记录“F1”至“F5”字段数值之和大于或等于40,则在“ZF”字段中记录“F1”至“F5”之和的数值;如果 “F1”至“F5”字段数值之和小于40,帽在“ZF”中记录“NO PASS”;显示第1至第10条记录“KPYBH”、“F1”、“F2”、“F3”、“F4”、“F5”、“ZF”、“BZ”字段的值。

use table

go top

replace next 10 zf with f1+f2+f3+f4+f5 for f1+f2+f3+f4+f5>=40

replace next 10 zf with "NO PASS" for f1+f2+f3+f4+f5<40

use


九、编写程序,功能:当系统的日期为3月8日、5月1日、6月1日、10月1日时,分别显示日期并提示“三八国际妇女节”、“五一”国际劳动节、“六一”国际儿童节、中华人民共和国国庆节。

jr=month(daet())*100+day(date())

do case

case jr=308

?"今天是三八国际妇女节"

case jr=501

?"今天是五一国际劳动节"

case jr=601

?"今天是六一国际儿童节"

case jr=1001

?"中华人民共和国国庆节"

case jr<1231

?"平常日"

endcase


十、编写程序,功能:在主窗口显示从“L”至“U”10个英文字母的ANSII值。

L=asc("L")

U=asc("U")

"下列10个英文字母对应的ANSI值分别为:"

for i=Lto U

?chr(i)+space(3)+str(i)

next i


十一、编写程序,功能:统计某表中“JPK”字段的值大于200的记录共有多少条。

use table

count to jl for jpk>200


十二、编写程序,功能:当某表中的“余额”字段各记录的值小于或等于1000时,则增加50倍,大于1000并小于10000时,则增加10培;显示第1至8条记录的“凭单号”、“对方科目”、“支票号”、“余额”四个字段的内容。

use table

replce all 余额 with iif(余额<=1000,余额*50,iif(余额<10000,余额*10,余额))

go top

list next 8 fields 凭单号,对方科目,支票号,余额


十三、编写程序,功能:在主窗口中显示ANSII值65至75对应的英文字母。

clear

?"ANSI值65至75对应的英文字母分别为:"

for a=65 to 75

?chr(a)

next a


十四、编写程序,功能:统计某表中“SXR”字段第一个字为“刘”和“王”的分别有多少条记录,并在主窗口中显示。

count to jlgs for left(sxr,2)="刘".or.left(sxr,2="王"))

?jlgs


十五、编写程序,功能:在主窗口中显示某表中的全部字段名。

clear

use table

for gncount=1 to Fcount()

?fields(gncount)

next


十六、编写程序,功能:查找某表中“单位名称”字段前两个字为“卫生”的记录,并在主窗口显示“单位名称”、“学习人数”“TJ3”、“TJ11”四个字段的内容。

use

display all fields 单位名称,学习人数,Tj3,tj11 for left(单位名称,4)=“卫生”

use


十七、编写程序,功能:当系统的日期为2月25日、8月6日、9月16日、12月12日时,分别显示日期并提示这一天是小明、小红、小刚、小英的生日。

jr=month(date())*100+day(date())

do case

case jr=806

?"今天是小红的生日"

case jr=225

?"今天是小明的生日"

case jr=919

?"今天是小刚的生日"

case jr=1212

?"今天是小英的生日"

case jr<1231

?"没有人生日"

endcase


十八、编写程序,功能:查找某表中“XM”字段的值为“王和秀”、“钱利宏”、“沈福”、“李小明”的记录,并在主窗口显示“XM”、“DWDM”、“GZRQ”、“BZGZ”、“SHPT”五个字段的内容,未找到的记录则显示“未找到该记录:(姓名)”。






十九、编写程序,功能:分别统计某表中“ZC”字段的值大于或等于60和大于或等于90的记录数,计算各自所占全部记录的百分比,并在主窗口中显示统计结果。

2005-11-24 13:39
快速回复:请问你能回答几个,我一个都不能!!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.100553 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved