vfp考试试卷B卷

B=20/100 ENDCASE ？B

SET TALK ON RETURN

3、阅读下列程序，正确的运行结果为 60,160 。

SET TALK OFF STORE 60 TO X, Y DO PROC1 WITH (X), Y ?X, Y RETURN

PROCEDURE PROC1 PARAMETER M, N M=M+50 N=M+50 SET TALK ON RETURN

得分 阅卷人 复核人 五、编程题（第1小题5分，第2小题8分，共13分）

1. 商场对所有顾客提供优惠活动：购买商品金额在5000元（包含5000元）以上者打8折；

第 5 页 共 6 页

购买商品金额在5000元到1000元之间的（包含1000元）打9折；购买商品在1000元以下者不打折。编写程序：要求在屏幕中输入顾客消费的金额，根据顾客的购买商品金额，计算出顾客应缴纳的金额。

input “请输入金额：” to x do case

case x>=5000 y=x*0.8 case x>=1000 y=x*0.9 otherwise y=x endcase

?“应付金额：”,y

2.如下图所示，TS.DBF中存储的是图书相关信息，计算图书的最新价格，并将计算结果填入相应的字段。图书价格上涨规律：高等教育出版社的图书上涨15%，电子工业出版社的图书上涨10%。

use ts

do while not eof() do case

case 出版社=”高等教育出版社”

replace 最新书价 with 原书价*1.15 case 出版社=”电子工业出版社” replace 最新书价 with 原书价*1.1 endcase skip enddo use

得分 阅卷人 复核人 六、表单设计题（10分）

设计如下图所示的表单，功能是：在表单是输入用户名和密码，然后单击“确定”按钮，若二者都正确的话，就弹出“登录成功”消息框；若用户名和密码有一项错误的话，弹出“登录失败”消息框。单击“取消”按钮，则退出当前表单。（假设用户名是user，密码是1234）

（1） 该表单中用到了哪些控件？只需写出控件的类型。（3分）标签，文本框，命令按钮 （2） 如上图所示，为了保护输入的密码，需要设置text2的什么属性？该属性的值设置成

第 6 页 共 6 页

什么？（2分）password “*”

（3） 写出“确定”按钮的click事件代码（4分）

if thisform.text1.value=”user” and thisform.text2.value=”1234” Messagebox(“欢迎使用本系统！”,0,”登陆成功”) else

Messagebox(“用户名或密码错误！”,0,”登陆失败”) endif

（4） 写出“取消”按钮的click事件代码（1分）

Thisform.release