Visual FoxPro程序设计实习教程与习题集

? '70--79分人数 :',n3 ? '60--69分人数 :',n4 ? '60分以下人数 :',n5 return 7．编写一个二重循环程序，显示如下的乘法口诀表。 set talk off i=1 do while i<=9 j=1 do while j<=i ?? str(i,2)+'*'+str(j,1)+'='+str(i*j,2) j=j+1 enddo ? i=i+1 enddo return 《Visual FoxPro程序设计实习教程与习题集》

《实习教程》第8单元 数据表的索引 (参考答案) 1．在数据表ZGGZ.DBF的结构复合索引文件中，建立如下的索引项： use zggz 1）按“姓名”索引，索引标记为XM，并显示结果。 index on 姓名 tag xm list 2）按“职务”索引，索引标记为ZW，并显示结果。 index on 职务 tag zw list

3）按“出生日期”的降序索引，索引标记为CSRQ，并显示结果。 index on 出生日期 tag csrq list 4）按“性别”和“职务”索引，索引标记为XBZW，并显示结果。 index on 性别+职务 tag xbzw list 5）按“职务”和“出生日期”索引，索引标记为ZWCS，并显示结果。 index on 职务+dtoc(出生日期,1) tag zwcs list 6）按“基本工资”和“奖金”索引，索引标记为GZJJ，并显示结果。 index on str(基本工资)+str(奖金) tag gzjj list 2. 分别设置上述索引项为主控索引。 set order to xm set order to zw set order to csrq set order to xbzw set order to zwcs set order to gzjj

《实习教程》第9单元 数据表的查找 (参考答案) 1．在数据表ZGGZ.DBF中，利用LOCATE命令进行如下顺序查找。 use zggz 1）查找编号为“004”的记录，并显示其编号、姓名和基本工资。 locate for 编号='004' display 编号,姓名,基本工资 2）在第4～8号记录中，查找并显示姓‘郭’的职工记录。 locate for substr(姓名,1,2)='郭' and recno()>=4 and recno()<=8 display 3）顺序查找并显示所有职务为‘科员’的男职工记录。 locate for 职务='科员' and 性别='男' display continue display continue 4）顺序查找并显示所有生日为8号的职工记录。 locate for day(出生日期)=8 display continue display continue 5）查找并显示职务为科员且基本工资大于400元的职工记录。 locate for 职务='科员' and 基本工资>400 display continue display continue 2. 利用SEEK进行如下的快速查询。 1）查找并显示姓名为“苏平”的职工记录。 set order to xm seek '苏平' display 2）查找并显示出所有职务为“科长”的职工记录。 set order to zw seek '科长' display skip display skip display skip display 3）查找并显示男科长的记录。 set order to xbzw seek '男科长' display 3. 在数据表ZGGZ.DBF中，进行如下的数据表筛选操作： 1）筛选出65年以前出生的所有职务为“科员”的职工记录，并显示当前记录。 执行GO TOP命令后，再显示当前记录，查看两者的区别。 set filter to year(出生日期)<1965 and 职务='科员' display go top display 2）筛选出工资在400～500元之间的职工记录，并显示筛选结果。 set filter to 基本工资>=400 and 基本工资<=500 list

《实习教程》第10单元 数据表的统计 (参考答案) 准备：打开数据表ZGGZ.DBF，以下操作为对该数据表进行。 use zggz 1．分别统计数据表中已婚的男职工和未婚的女职工人数。 count for 婚否 and 性别='男' count for not 婚否 and 性别='女' 2．求出所有男职工的人数和基本工资总额，并分别赋值给CN和SN，利用上述两个内存变量计算出男职工的平均工资。 count for 性别='男' to cn sum 基本工资 for 性别='男' to sn ?sn/cn 3．计算所有职务为科长的平均年龄。 average year(date())-year(出生日期) for 职务='科长' 4．计算所有职工的基本工资和奖金的总金额。 sum 基本工资+奖金 《Visual FoxPro程序设计实习教程与习题集》

《实习教程》第1单元 Visual FoxPro基本操作 (参考答案) 1．利用对其赋值的方法，判定下列字符串是否为合法的内存变量名： 1）执行赋值命令： X1=3，或 STORE 3 TO X1 系统没有任何错误显示，知X1为合法的内存变量名。 类似地，X_1也为合法的内存变量名，其余为不合法。 2）利用上面的方法可以判定： 变量，变量X，变量1，变量_1为合法内存变量名，其余不合法。 2．计算并显示下面各题的结果：