vfp编程题练习及参考答案-一定要看

1 这是以往的考试题这是以往的考试题 第一套第一套 编程题参考答案编程题参考答案 1 请打开 D 盘试题文件夹下的 program1 prg 文件 按要求完成以下程序 输入长方形 的长 L 和宽 W 的值 计算长方形的面积 S 并输出 最后按原文件名存盘 program1 prgprogram1 prg CLEARCLEAR INPUTINPUT 请输入长方形的长 请输入长方形的长 TOTO L L INPUTINPUT 请输入长方形的宽 请输入长方形的宽 TOTO W W S L WS L W 长方形的面积长方形的面积 S S S S 2 2 请打开 D 盘试题文件夹下的 program2 prg 文件 编一个计费程序 按托运规定 行 李不超过 50 千克时 运费为每千克 0 15 元 如超过 50 千克 其中 50 千克 运费按每千克 0 15 元 超过 50 千克部分的运费为每千克 0 22 元 输入行李重量 显示托运费 program2 prgprogram2 prg ClearClear InputInput 请输入行李重量请输入行李重量 toto x x IfIf x 50 x 50 Y x 0 15Y x 0 15 ElseElse Y 50 0 15 x 50 0 22Y 50 0 15 x 50 0 22 EndifEndif 托运费托运费 y y 3 3 请打开 D 盘试题文件夹下的 program3 prg 文件 编写循环程序实现 在 rcda dbf 表中 统计姓 刘 的人数并输出 最后按原文件名存盘 program3 prgprogram3 prg clearclear useuse rcdarcda n 0n 0 scanscan allall forfor leftleft 姓名姓名 2 2 刘刘 n n 1n n 1 endscanendscan n n useuse 2 4 4 请打开 D 盘试题文件夹下的表单文件 Program5 scx 要求在文本框 Text1 中输入某一年 份 单击 计算 命令按钮则判断该年是否闰年 如果是闰年 则在文本框 Text2 中显示 是闰年 如果不是闰年 则在文本框 Text2 中显示 不是闰年 单击 退出 命 令按钮 则关闭表单 请编写 计算 和 退出 命令按钮的代码 最后按原文件名存盘 判断某一年份是否闰年的方法如下 1 年份能被 4 整除 但不能被 100 整除 2 年份能被 400 整除 符合上述二个条件之一者即为闰年 如 1996 年是闰年 计算 按钮 click 事件 nf thisform text1 value if mod nf 4 0 and mod nf 100 0 or mod nf 400 0 y 是润年 else y 不是润年 endif Thisform text2 value y Thisform refresh 退出 按钮 click 事件 thisform release 第二套第二套 编程题参考答案编程题参考答案 1 1 请打开 D 盘试题文件夹下的 program1 prg 文件 按要求完成以下程序 输入梯形的 上底 A 下底 B 和高 H 的值 计算梯形的面积 S 并输出 最后按原文件名存盘 program1 prgprogram1 prg CLEARCLEAR INPUTINPUT 请输入梯形的上底 请输入梯形的上底 TOTO A A INPUTINPUT 请输入梯形的下底 请输入梯形的下底 TOTO B B INPUTINPUT 请输入梯形的高 请输入梯形的高 TOTO H H S S A BA B H 2 H 2 梯形的面积梯形的面积 S S S S 2 2 请打开 D 盘试题文件夹下的 program2 prg 文件 按下列要求完成以下程序 要求根 据某人的收入计算他应交的个人所得税 方法如下 如果收入在 1600 元以内 则不用计税 显示 未达到交税标准 如果收入超过 1600 元 则超过部分应交纳 5 的个人所得税 计 算并显示应交税额 最后按原文件名存盘 program2 prgprogram2 prg ClearClear 3 InputInput 请输入个人输入请输入个人输入 toto x x IfIf x 1600 x 1600 未达到交税标准未达到交税标准 ElseElse Y x 1600 0 05Y x 1600 0 05 应交税额应交税额 y y endifendif 3 3 请打开 D 盘试题文件夹下的 program3 prg 文件 编写循环程序实现 在 rcda dbf 表中 统计 出生日期 在 1980 年以前出生的人数并输出 最后按原文件名存盘 program3 prgprogram3 prg clearclear useuse rcdarcda n 0n 0 scanscan allall forfor year year 出生日期出生日期 1980 20X 20 Y N X 0 85Y N X 0 85 CASECASE X 10X 10 ANDAND X 20X 20 Y N X 0 9Y N X 0 9 CASECASE X 10X2000 2000 n n 1n n 1 endscanendscan n n useuse 5 4 4 请打开 D 盘试题文件夹下的表单文件 Program5 scx 要求在文本框 Text1 中输入一 正整数 N 单击 计算 命令按钮则计算 N 以内的所有 6 的倍数和 并将结果显示在文本框 Text2 中 单击 退出 命令按钮 则关闭表单 请编写 计算 和 退出 命令按钮的代 码 最后按原文件名存盘 计算 按钮 click 事件 N thisform text1 value S 0 For I 6 to N step 6 S S I Endfor Thisform text2 value S Thisform refresh 退出 按钮 click 事件 thisform release 第四套第四套 编程题参考答案编程题参考答案 1 1 请打开 D 盘试题文件夹下的 program1 prg 文件 按要求完成以下程序 输入圆柱体 的半径 R 和高 H 求圆柱体的体积 V 并输出计算结果 最后按原文件名存盘 program1 prgprogram1 prg CLEARCLEAR INPUTINPUT 请输入圆柱体的半径 请输入圆柱体的半径 TOTO R R INPUTINPUT 请输入圆柱体的高 请输入圆柱体的高 TOTO H H V 3 14159 R 2 HV 3 14159 R 2 H 圆柱体的体积圆柱体的体积 V V V V 2 请打开 D 盘试题文件夹下的 program2 prg 文件 按要求编写程序 输入考试成绩 x 输出对应的评价等级 等级标准如下 合格 60 x 100 不合格 0 x 0X 0 ANDAND X 60X 60X 60 ANDAND X 100X1500 r gz 0 97 else r gz endif Thisform text2 value r Thisform refresh 退出 按钮 click 事件 thisform release 第五套第五套 编程题参考答案编程题参考答案 7 1 1 打开的 D 盘试题文件夹下的 program1 prg 文件 按以下要求完成程序 从键盘输 入任意一个字符串 求出它的长度并输出 提示 计算字符长度的函数名为 len program1 prgprogram1 prg ClearClear AcceptAccept 请输入一个字符串请输入一个字符串 toto x x Y len x Y len x 字符串长度为字符串长度为 y y 2 请打开 D 盘试题文件夹下的 program2 prg 文件 按要求编写程序 求分段函数的值 10 x10 program2 prgprogram2 prg CLEARCLEAR INPUTINPUT 请输入请输入 X X 的值的值 TOTO X X DODO CASECASE CASECASE X 1X 1X 1 ANDAND X 10X10X 10 Y 2 X 5Y 2 X 5 ENDCASEENDCASE Y Y Y Y 3 3 请打开 D 盘试题文件夹下的 program3 prg 文件 编写循环程序实现 计算 N 以内 所有偶数平方的和 S 22 42 62 并输出 其中 N 为任一正整数 最后按原文件名存盘 program3 prgprogram3 prg clearclear inputinput 请输入请输入 n n 的值 的值 toto n n s 0s 0 forfor i 2i 2 toto n n stepstep 2 2 s s i 2s s i 2 endforendfor s s 8 4 4 请打开 D 盘试题文件夹下的表单文件 program5 scx 按要求完成以下题目 当在 Text1 文本框中输入编号时 如果该记录存在 单击查询按钮时 表单显示的记录信息会相应的更 新 如果该记录不存在 单击查询按钮时 用 Messsagebox 函数提示 查无此人 单击退 出按钮时 退出表单 请给查询按钮和退出按钮添加相应的命令代码 查询 按钮 click 事件 a alltrim ThisForm Text1 value locate all for 编号 a if eof messagebox 查无此人 endif thisform refresh 退出 按钮 click 事件 thisform release 第六套第六套 编程题参考答案编程题参考答案 1 1 请打开 D 盘试题文件夹下的 program1 prg 文件 按要求完成以下程序 要求提示输 入变量 X 的值 然后计算函数 Y 5X4 4X3 2X 10 的值并输出 program1 prgprogram1 prg ClearClear InputInput 请输入请输入 X X 的值的值 toto x x Y 5 X 4 4 X 3 2 X 10Y 5 X 4 4 X 3 2 X 10 y y y y 2 2 请打开 D 盘试题文件夹下的 program2 prg 文件 编写一个程序 要求 从键盘输 入任意三个数 让它们代表三条线段的长度 如果任意二条线段之和大于第三线段则显示 可以构成一个三角形 否则显示 不能构成一个三角形 最后按原文件名存盘 program2 prgprogram2 prg ClearClear InputInput 请输入第一条边长请输入第一条边长 toto a a InputInput 请输入第二条边长请输入第二条边长 toto b b InputInput 请输入第三条边长请输入第三条边长 toto c c IfIf a b ca b c andand b c ab c a andand a c ba c b 可以构成一个三角形可以构成一个三角形 ElseElse 9 不能构成一个三角形不能构成一个三角形 endifendif 3 3 请打开 D 盘试题文件夹下的 program3 prg 文件 编写循环程序实现 计算 N 以内 所有奇数平方的和 S 12 32 52 并输出 其中 N 为任一正整数 最后按原文件名存盘 program3 prgprogram3 prg clearclear inputinput 请输入请输入 n n 的值 的值 toto n n s 0s 0 forfor i 1i 1 toto n n stepstep 2 2 s s i 2s s i 2 endforendfor s s 4 4 打开 D 盘试题文件夹下的表单文件 program5 scx 要求在文本框 Text1 中输入邮件重量 单击 计算 命令按钮则计算邮件的邮资费 并将邮件的邮资费显示在文本框 Text2 中 单 击 退出 命令按钮 则关闭表单 请编写 计算 和 退出 命令按钮的代码 最后按原 文件名存盘 A 类邮件 计费规定 当邮件重量小于等于 100 克时 邮资费为每克 1 元 当邮件重量超过 100 克时 其中 100 克 按每克 1 元计费 超过 100 克的重量 按每克 2 元 计费 计算 按钮 click 事件 zh thisform text1 value if zh 100 yf 100 1 zh 100 2 else yf zh 1 endif Thisform text2 value yf Thisform refresh 退出 按钮 click 事件 thisform release 第七套第七套 1 输入三角形的三边 求三角形的面积 clear input 请输入三角形的边长 a to a input 请输入三角形的边长 b to b input 请输入三角形的边长 c to c l a b c 2 s sqrt l l a l b l c 三角形的面积为 S s 10 2 查找准考证号为 30130101 的记录 如果找到 把记录的 数学 字段减 5 分 否则用 messagebox 函数输出 查无此人 的信息 clear use ks dbf excl loca all for 准考证号 30130101 if not eof repl 数学 with 数学 5 disp else messagebox 查无此人 endif use 3 3 此题没题目 只有答案 大家看答案猜题目 此题没题目 只有答案 大家看答案猜题目 添加添加 6 6 个控件对象并分别设置属性个控件对象并分别设置属性 开始计算开始计算 按钮按钮 clickclick 事件 事件 N thisform text1 value S 0 For I 1 to N S S 1 i i Endfor Thisform text2 value S 退出退出 按钮按钮 clickclick 事件 事件 thisform release 第八套第八套 1 1 输入字符串 求字符串长度 输入字符串 求字符串长度 clear accept 请输入一个字符串 请输入一个字符串 to x y right x 1 z len x 这个字符串的最后一个字符为 这个字符串的最后一个字符为 y 这个字符串的长度为 这个字符串的长度为 z 2 此题是用多向分支解决数学问题 此题是用多向分支解决数学问题 此题没题目 只有答案 大家看答案猜题目此题没题目 只有答案 大家看答案猜题目 clear input