2011年VFP程序设计参考答案

20112011 年年 VFPVFP 程序设计参考答案程序设计参考答案 Visual Visual FoxProFoxPro 程序设计程序设计 1 1 1 thisform list1 rowsourcetype 3 thisform list1 rowsource select 姓名 from xsqk thisform list1 listindex 1 locate for 姓名 thisform list1 value thisform refresh 2 locate for 姓名 this value thisform refresh Visual Visual FoxProFoxPro 程序设计程序设计 2 2 1 if thisform Optiongroup1 value da df df 5 endif skip thisform label1 caption 题目 skip thisform Optiongroup1 Option1 caption 题目 skip thisform Optiongroup1 Option2 caption 题目 skip thisform Optiongroup1 Option3 caption 题目 skip thisform Optiongroup1 Option4 caption 题目 skip da val 题目 2 if df 60 messagebox 祝贺您 考试合格 else messagebox 考试不合格 继续努力 endif Visual Visual FoxProFoxPro 程序设计程序设计 3 3 1 locate for 商品名称 thisform text1 value if found thisform label2 caption 品牌 thisform label4 caption str 单价 4 2 mand2 enabled t endif 2 continue if found thisform label2 caption 品牌 thisform label4 caption str 单价 4 2 else messagebox 已没有该品牌的商品 this enabled f endif Visual Visual FoxProFoxPro 程序设计程序设计 4 4 Form1 init public n1 n2 n3 n4 OptionGroup1 Click mand1 enabled t Text3 Lostfocus mand2 enabled t mand2 setfocus Command1 Click a int 100 rand b int 100 rand if a b thisform text1 value a thisform text2 value b else thisform text1 value b thisform text2 value a endif thisform text3 setfocus Command2 Click ch thisform OptionGroup1 value n1 thisform text1 value n2 thisform text2 value n3 val thisform text3 value do case case ch 1 n4 n1 n2 case ch 2 n4 n1 n2 case ch 3 n4 n1 n2 case ch 4 n4 n1 n2 endcase if n4 n3 messagebox 恭喜你答对了 thisform text3 value else messagebox 不正确 再试 thisform text3 value thisform text3 setfocus endif Visual Visual FoxProFoxPro 程序设计程序设计 5 5 1 Use tjd Locate for 书名 VFP 数据库 Dj 单价 Use sdb Locate for 书名 VFP 数据库 Replace 单价 with dj 金额 with 单价 册数 use 2 Text1 的 Lostfocus 事件代码 Use mm Locate for alltrim upper thisform text1 value upper allt rim 用户名 If found Messagebox 该用户名已存在 重新输入 提示 Thisform text1 setfocus Thisform text1 value Else Thisform text2 setfocus Endif Text3 的 Lostfocus 事件代码 b alltrim thisform text2 value c alltrim thisform text3 value if bc messagebox 两次密码不一致 Thisform text2 value Thisform text3 value Thisform text2 setfocus else mand1 enabled t endif 添加 按钮的 Click 事件代码 a alltrim thisform text1 value b alltrim thisform text2 value Append blank Replace 用户名 with a 密码 with b messagebox 你的用户名是 a 你的密码是 b 注册成功 Visual Visual FoxProFoxPro 程序设计程序设计 6 6 1 Skip If eof Messagebox 已到文件末 Go bottom Endif Thisform refresh 2 append append Thisform refresh 3 r messagebox 真的要删除吗 292 删 除记录 If r 6 Delete Pack Endif 4 if nkeycode 13 Locate for this value 学号 If not found Messagebox 未找到 Endif Thisform refresh Endif Visual Visual FoxProFoxPro 程序设计程序设计 7 7 1 Interval 2 Timer1 的 Timer 事件代码 if thisform shape1 topthisform width thisform shape1 width thisform shape1 left 0 else thisform shape1 left thisform shape1 left 1 endif Timer2 的 Timer 事件代码 if thisform shape1 top 0 thisform shape1 top thisform shape1 top 1 else thisform timer2 enabled f thisform timer1 enabled t endif if thisform shape1 left thisform width thisform shape1 width thisform shape1 left 0 thisform shape1 top 0 else thisform shape1 left thisform shape1 left 1 endif Visual Visual FoxProFoxPro 程序设计程序设计 8 8 1 public ct Ct 0 Use YJ Thisform timer1 enabled t Thisform timer1 interval 400 4 if ct 1 skip if eof go top endif thisform label1 caption left 手机号码 9 endif 综合试题 1 1 表单的 Init 事件代码 Thisform timer1 enabled f Thisform timer1 Interval 100 开始 按钮的 Click 事件代码 Thisfor timer1 enabled t 停止 按钮的 Click 事件代码 Thisfor timer1 enabled f timer1 按钮的 Timer 事件代码 Skip If eof Go top Endif Thisform label3 Caption 身份证号 综合试题 2 1 C1 thisform text1 value N1 val thisform text2 value N2 val thisform text3 value N3 val thisform text4 value N4 val thisform text5 value N5 val thisform text6 value Df n1 n2 n3 n4 n5 5 Thisform label1 caption str df 5 2 Ret messagebox 是否保存数据 292 保存 If ret 6 Insert into xs values c1 n1 n2 n3 n4 n5 Endif 清空 按钮的 Click 事件代码是 Thisform setall value textbox Thisform label1 caption 综合试题 3 1 添加 flag f for n 1 to thisform list2 listcount if thisform list1 value thisform list2 list n flag t exit endif endfor if flag f thisform list2 additem thisform list1 value endif 1 thisform list2 removeitem thisform list2 listin dex endif 全部 for n 1 to thisform list1 listcount thisform list2 additem thisform list1 list n endfor val bo1 value Thisform list1 additem 姓名 N n 1 Endif Endscan Thisform text1 v