计算机应用3实验答案.doc

对于VFP的命题而言，可能存在多个答案，在这里，我只是给出其中的一个正确答案，对于其它答案，同学们可以参考教材获得。 内的是运行指令后的答案。 实验一 数据库基础（1）（2） store 0 to a,b,c abc=3.14 abc1=.f. abc2=date() X＝24.45Y＝98.14Z＝5*X*Y?Z 12055.255 List memory Save to m1.mem Save to m2.mem like a* Save to m3.mem like ?b* Release list memory Save to m4.mem Restore from m1.mem len(Visual foxpro 6.0) 17 v=Visual foxpro 6.0?type(V) C upper(Visual foxpro 6.0) lower(Visual foxpro 6.0) ? 湖北+space(8)+武汉 ? substr(Visual foxpro 6.0,8,6)(对于ASCII表与字符的转换不作要求) x=val(3.14aaa)? x? type(x) x=str(100)? type(x) ？date() ? year(date()) ? time()(对星期号和星期几不作要求) x=ctod(01/02/2001)? type(x) x={^2001/01/2} ? type(x)y=dtoc(x) ? type(y) ? round(3.1415926,4) ? round(3.1415926,2) ? int(1234.56) ? sqrt(36) ’VisualFoxpro6.0’ 3.1415926 3.1415926,’3.1415926’NC 10/01/2001,10/01/01CD 12/14/01December 14,01DC 12/14/01DC 988.6283Y N 985.2854,988.6283NYY 实验二 建立数据库、数据库数据编辑修改 ◆ set defa to e:\020610101 ◆ 创建项目“学生管理.pjx” ◆ 创建数据库“学生.dbc” ◆ 创建数据表“学生管理.dbf”，创建结束后录入相关记录 ◆ 创建数据表“成绩管理.dbf”，创建结束后录入相关记录 (打开表的使用方法: 窗口菜单-数据工作期-选中需要打开的表-打开)重新打开学生管理表list stru modi stru 之后在表设计器中添加新字段 goto 3insert blank 执行2次append指令，在弹出窗口中录入数据 browse找到姓名是“李丽”的记录后改名即可 replace all 年龄 with int((date()-出生日期)/365) list for 性别=’男’ list for 出生年月ctod(’06/01/1981’) 实验三 数据库数据删除、排序、检索与统计 ◆ set defa to e:\020610101 ◆ 打开项目：学生管理.pjx ◆ 打开学生数据库 ◆ 用上次的方法打开学生基本信息表 goto 3deletepack sort on 年龄 /d to nluse nllist 再次打开学生基本信息表index on 姓名 to xmindex on 出生日期 to cs set index to xmseek ’李辉’set index to csseek ctod(‘12/13/1982’) appendreindex sum 年龄 to allageaverage 年龄 to womanage for 性别=’女’ total on 专业 to zyuse zylist select 1use 学生基本信息表index on 学号 to xh1select 2use 学生成绩表index on 学号 to xh2select 1set relation to 学号 into 2 replace all 出生年月 with ctod(‘06/08/74’) for 专业=’计算机’ locate for 性别=’男’dispcontinue?eof()  如果eof为.t.，则表示已显示完所有满足条件的记录 再次打开学生成绩表index on 学号 to xhtotal on 学号 to xkuse xklist 实验四 VFP指令二