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
