计算机VF编程参考答案

do case
case avgscore>=90
M="优"
case avgscore>=75
M="良"
case avgscore>=60
M="及格"
case avgscore<60
M="不及格"
endcase
replace 总评 with M
endscan
use
10．编写程序，分别统计表中男、女同学的人数。
r=s*15
case s<=20000
r=s*20
case s<=40000
r=s*25
case s<=60000
r=s*30
case s<=80000
r=s*35
case s<=100000
r=s*40
otherwise
r=r*
endcase
"应纳税额为：",r
return
循环结构
1. 求S=1+2+3+……+100
return
3. 计算101～500之间的所有奇数之和。
clear
s=0
for i=101 to 500
if i%2!=0
s=s+i
endif
endfor
"101-500的奇数和为：",s
return
4. 输出100～1000之间能被37整除的数。
set talk off
clear
for i=100 to 1000
n,"是素数"
else
n,"不是素数"
endif
return
8. 输出从2000到2100年之间的所有闰年。
提示：设N为年份数，若N能满足如下两个条件中任一个，则N为闰年。
（1）N能被4整除并且N不能被100整除，
（2）或者N能被400整除
clear
for i=2000 to 2100
if (i%4=0 and i%100!=0) or i%400=0
set talk off
clear
s=0
i=1
do while i<=100
s=s+i
i=i+1
enddo
"1~100的和为：",s
Return
2. 求N！的值。 （N！=1*2*3*……*N）
clear
input "请输入n的值：" to n
s=1
for i=1 to n
s=s*i
endfor
ቤተ መጻሕፍቲ ባይዱ"n!=",s
case n=2
M="星期二（Tuesday）"
case n=3
M="星期三（Wednesday）"
case n=4
M="星期四（Thursday）"
case n=5
M="星期五（Friday）"
case n=6
M="星期六（Saturday）"
case n=0
M="星期日（Sunday）"
otherwise
input "请输入N的值：" to N
s=0
t=0
for i=1 to N
t=t+i
s=s+t
endfor
"总和为：",s
7. 从键盘输入一个数，判断其是否为素数。
clear
input "请输入数字：" to n
s=0
for i=2 to n-1
if n%i=0
s=1
endif
endfor
if s=0
（3）3000元至4999元之间者，按八五折优惠。
（4）5000元以上者，按八折优惠。
编写程序，输入购物款数，计算并输出优惠价。
clear
input "输入你的购物金额：" to d
do case
case d>=1000 and d<=1999
m=d*
case d>=2000 and d<=2999
m=d*
case d>=3000 and d<=4999
m=d*
case d>=5000
m=d*
endcase
"打折后的金额是：",m
return
9．编写程序，输入一个数字（0～7），显示其对应星期几的中英文信息。
clear
input "请输入一个数字：" to n
do case
case n=1
M="星期一(Monday)"
9×1＝9 9×2＝18 …… …… …… 9×9＝81
clear
for x=1 to 9 &&外层循环
y=1
do while y<=x && 内层循环
z=x*y
str(y,1)+"*"+str(x,1)+"="+str(z,2)+" "
y=y+1
enddo
endfor
四、结构化程序设计
顺序结构程序设计
1、从键盘输入长方体的长、宽、高，求长方体的表面积。
input“输入长方体的长：”to x
input“输入长方体的长：”to y
input“输入长方体的长：”to z
s=2*x*y+2*x*z+2*y*z
”长方体的表面积为：”,s
2、从键盘输入圆的半径，计算圆的面积。
case 职称='助教'
replace 基本工资 with 基本工资+30 for 职称="助教"
endcase
browse last
use
set talk on
return
13．编写程序，输出如下乘法表。
1×1＝1
2×1＝2 2×2＝4
3×1＝3 3×2＝6 3×3＝9
…… …… ……
…… …… …… ……
”偶数”
else
”奇数”
endif
return
5.计算函数Y的值。
5.答案
input“输入X的值：”to x
if x>=0
f=3*exp(x+2)-1
else
f=2*x+5
endif
”f=”,f
return
6. 计算运费。车站从甲地到乙地托运行李，收费规定：若行李重量不超过50公斤，每公斤收费元；若行李重量超过50公斤，其超重部分加收元。编写计算运费的程序。
M="重新输入"
endcase
"您输入的是："+M
return
10. 设计个人纳税计算程序。“税法”规定，使用超额累进税率，以每月收入额减去1600元后的余额，为应纳税所得额，其税率见下表：
级数
全月应纳税所得额
税率（%）
1
不超过500元
5
2
500～2000元
10
3
2000～5000元
15
4
5000～20000元
input“输入圆的半径：”to r
s=*r^2
”圆的面积为：”,s
3、建立数据库XS，将表添加到该数据库，并浏览该表所有数据，最后关闭数据库。
Create database xs
Add xsqk
Browse
Close all
4、在表中，查找出生日期为1983年10月8日的记录，并显示该记录；继续查找下一个满足上述条件的记录，并显示该记录。
Use xsqk
Locate for 出生日期={^1983-10-8}
Display
Continue
Display
Use
分支结构程序设计
1.从键盘输入一个数，若为正数则输出，非正数则结束。
input“输入一个数：”to x
if x>0
x
endif
return
2. 求一元二次方程AX2+BX+C=0的实根。
"春季"
case m>=6 and m<=8
"夏季"
case m>=9 and m<=11
"秋季"
otherwise
"冬季"
endcase
return
8．某百货公司为促销，采用购物打折扣的优惠办法，每位顾客一次购物：
（1）1000元至1999元之间者，按九五折优惠。
（2）2000元至2999元之间者，按九折优惠。
if i%37=0
i
endif
endfor
set talk on
return
5．求S=1！+2！+3！+……+10！
clear
s=0
T=1
for I=1 to 10
T=T*i
S=S+1
endfor
"S=",S
return
6．求S=1+（1+2）+（1+2+3）+……+（1+2+3+……+N）
clear