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

4．计算所有职工的基本工资和奖金的总金额。
sum基本工资+奖金
《Visual FoxPro程序设计实习教程与习题集》
《实习教程》第1单元Visual FoxPro基本操作(参考答案)
1．利用对其赋值的方法，判定下列字符串是否为合法的内存变量名：
1）执行赋值命令：
X1=3，或STORE 3 TO X1
continue
5）查找并显示职务为科员且基本工资大于400元的职工记录。
locate for职务='科员' and基本工资>400
display
continue
display
continue
2.利用SEEK进行如下的快速查询。
1）查找并显示姓名为“苏平”的职工记录。
set order to xm
seek '苏平'
scan for year(出生日期)<1970
display
endscan
return
5．利用SCAN语句编写第3题的程序。
set talk off
use zggz
s=0
n=0
scan for性别='男'
s=s+基本工资
n=n+1
endscan
? '男职工平均工资为: ',str(s/n,6,2)
? 'S=',S
RETURN
2.编写一程序，读入圆柱体的高(H)和底面半径(R)，计算并显示圆柱体的体积(V)。
SET TALK OFF
INPUT 'H: ' TO H
INPUT 'R: ' TO R
V=3.1416*R^2*H
? 'V=',V
RETURN
3.编写一程序，首先由用户输入一个职务，如：“科长”，“处长”等，然后显示数据表ZGGZ
1）MOD（10，-3）=-2
MOD（-10，3）=2
MOD（-10பைடு நூலகம்-3）=1
2）ROUND(12345.6789,1) =12345.7
ROUND(12345.6789,0) = 12346
? 's=',s
return
2．在数据表ZGGZ.DBF中，循环查找和显示所有1970年以前出生的职工记录。
set talk off
use zggz
locate for year(出生日期)<1970
do while found()
display
continue
enddo
return
3．利用循环编程计算ZGGZ.DBF中男职工的平均工资。
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命令进行如下顺序查找。
2．求出所有男职工的人数和基本工资总额，并分别赋值给CN和SN，利用上述两个内存变量计算出男职工的平均工资。
count for性别='男' to cn
sum基本工资for性别='男' to sn
?sn/cn
3．计算所有职务为科长的平均年龄。
average year(date())-year(出生日期) for职务='科长'
else
if x=y
z=x+y
else
z=x-y
endif
endif
? 'z=',z
return
3.编写一程序，输入某人的收入额，计算其个人所得税。
个人所得税的计算方法为：不超过500元的税率为5％，500元到2000元部分的税率为10％，超过2000元部分的税率为15％。
set talk off
input 'x=' to x
set talk off
use zggz
s=0
n=0
do while not eof()
if性别='男'
s=s+基本工资
n=n+1
endif
skip
enddo
? '男职工平均工资为: ',str(s/n,6,2)
return
4．利用SCAN语句编写第2题的程序。
set talk off
use zggz
accept '输入一个字符: ' to ch
if upper(ch)=ch
? lower(ch)
else
? upper(ch)
endif
return
2.编写程序，计算分段函数： 的值。
set talk off
input 'x=' to x
input 'y=' to y
if x<y
z=x*x+2*x*y+y*y
display
3）顺序查找并显示所有职务为‘科员’的男职工记录。
locate for职务='科员' and性别='男'
display
continue
display
continue
4）顺序查找并显示所有生日为8号的职工记录。
locate for day(出生日期)=8
display
continue
display
4）命令：C1= SPACE(2)
C2="ABC"
C3=SPACE(3)
A1=C1+C2+C3
A2=trim(C1+C2+C3)
A3=ltrim(C1+C2+C3)
A4=alltrim(C1+C2+C3)
?len(A1,A2,A2,A3,A4
?len(A1,A2,A2,A3,A4)
?len(A1),len(A2),len(A3),len(A4)
set filter to基本工资>=400 and基本工资<=500
list
《实习教程》第10单元数据表的统计(参考答案)
准备：打开数据表ZGGZ.DBF，以下操作为对该数据表进行。
use zggz
1．分别统计数据表中已婚的男职工和未婚的女职工人数。
count for婚否and性别='男'
count for not婚否and性别='女'
2）set talk off
input 'x=' to x
input 'y=' to y
do case
case x<y
z=x*x+2*x*y+y*y
case x=y
z=x+y
otherwise
z=x-y
endcase
? 'z=',z
return
3）set talk off
input 'x=' to x
list
5）按“职务”和“出生日期”索引，索引标记为ZWCS，并显示结果。
index on职务+dtoc(出生日期,1) tag zwcs
list
6）按“基本工资”和“奖金”索引，索引标记为GZJJ，并显示结果。
index on str(基本工资)+str(奖金) tag gzjj
list
2.分别设置上述索引项为主控索引。
系统没有任何错误显示，知X1为合法的内存变量名。
类似地，X_1也为合法的内存变量名，其余为不合法。
2）利用上面的方法可以判定：
变量，变量X，变量1，变量_1为合法内存变量名，其余不合法。
2．计算并显示下面各题的结果：
1）利用函数：
命令：?mod(987654321,123456789)
显示：9
利用运算：
do case
case x<=500
t=x*0.05
case x<=2000
t=500*0.05+(x-500)*0.1
otherwise
t=500*0.05+1500*0.1+(x-2000)*0.15
endcase
? '税金为: ',str(t,6,2)
return
《实习教程》第13单元循环结构的程序设计(参考答案)
《Visual FoxPro程序设计实习教程与习题集》
《实习教程》第11单元程序设计初步(参考答案)
1．编写一程序，计算并显示圆的周长(L)和面积(S)，其中半径(R)由INPUT语句读入。
SET TALK OFF
INPUT 'R: ' TO R
PI=3.1416
L=2*PI*R
S=PI*R^2
? 'L=',L
list
2）按“职务”索引，索引标记为ZW，并显示结果。
index on职务tag zw
list
3）按“出生日期”的降序索引，索引标记为CSRQ，并显示结果。
index on出生日期tag csrq
list
4）按“性别”和“职务”索引，索引标记为XBZW，并显示结果。
index on性别+职务tag xbzw
显示：8 5 6 3
5）命令：A='微型计算机'
?SUBSTR(A,1,2)+SUBSTR(A,9,2)