练习题到最终答案.docVIP

新建商品数据表SB.DBF，字段有：商品号（C,5），商品名（C,8），单价（N,5,2），出厂单价(N,5,2)，产地(C,6)。并添加如下记录： 商品号（C,5），商品名（C,8），单价（N,6,2），出厂单价(N,6,2)，产地(C,6)。 10001 电视机 800.0 500.0 青岛 20001 电子字典 360.0 200.0 深圳 10002 手机8210 980.0 600.0 北京 30001 MP3 800.0 560.0 广州 10003 商务通 890.0 460.0 深圳 设计一个名称为MY_FORM的表单，上面有“浏览”、“调整”、“备份”和“退出”四个命令按钮，“商品名称”标签和文本框text1。 在text1中输入文本，单击“浏览”按钮时，显示商品名含有该文本的所有商品记录。 a=allt(thisform.text1.value) 赋值语句，allt()为删去左右空格 Sele * from sb where 商品名=”a%” Sql语句，sele（字段）from （数据库）where（条件） 单击“调整”按钮时，将“商品号”前两位编号为“10”的商品的“单价”修改为出厂单价的110%。 Update sb set 单价=出厂单价*1.1 where left(商品号,2)=”10” Sql语句，更新语句，update（表名）set（列名）=（表达式）where(条件） Use sb in 0 在0区中使用表sb Sele sb 选择sb Brow 浏览 单击“备份”按钮时，将“商品表”进行备份(使用命令COPY TO )，备份文件名为“商品表备份.DBF”， Copy to 商品表备份 Copy to 语句，备份表 Use 商品表备份 in 0 alia sp 在0区中使用商品表备份 Sele sp 选择sp Brow 浏览 单击“退出”按钮时，关闭表单。 Thisform.release 退出 设计一个菜单。 主菜单 子菜单 任务 文件（F） \ 建查询 (C) Ctrl+C 新建立查询，表自备，查询内容、文件名自定 保存（S） _mfi_save 关闭 (G) 编辑（E） 输入 (I) append blank （增添空行） 修改 (E) 修改该查询modify structure （修改） 运行（R） Ctrl+R 运行该查询显示结果do form1.scx 退出（X） 过程 提示“退出菜单？”，退出恢复系统隐含菜单 msg=messagebox(“退出菜单？”,1) （提示信息） if msg=1 set sysmenu to defa Endif （if语句） 在建立“E:\专业姓名”文件夹下，建立表单（bd2.scx），添加标签“输入字符串”、文本框，添加“输出”、“退出”命令按钮，并编写代码。“输出”Click代码：把文本框内输入的字符串，去掉左、右、中间所有空格字符后，在信息框显示。“退出”：结束表单运行。 n=thisform.text1.value 赋值语句 i=0 H=len(thisform.text1.value) Len（）求长度 thisform.text1.value=space(0) Space（）生成空格 do while iH Do while语句 i=i+1 thisform.text1.value=thisform.text1.value+allt(substr(n,i,1)) Substr（abc,2,1)从第二个开始截取一个单位的长度等于b Enddo 设计一个电话计费程序。假定每分钟通话费用为0.12元。要求：表单窗口中用标签形式列出开始时间、结束时间、通话时间及应付