帮忙做几道VFP题,写下代码.4.编写一个程序,将1~50之间的偶数全部显示出来。5.编写一个程序,将一个学生数据表“stu.dbf”中所有性别是“女”的同学的“年龄”减小10岁。6.假设收入(P)
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/17 15:50:35
帮忙做几道VFP题,写下代码.4.编写一个程序,将1~50之间的偶数全部显示出来。5.编写一个程序,将一个学生数据表“stu.dbf”中所有性别是“女”的同学的“年龄”减小10岁。6.假设收入(P)
帮忙做几道VFP题,写下代码.
4.编写一个程序,将1~50之间的偶数全部显示出来。
5.编写一个程序,将一个学生数据表“stu.dbf”中所有性别是“女”的同学的“年龄”减小10岁。
6.假设收入(P)与税率(R)的关系如下,编写程序exersize3.prg,根据输入的收入值求出应缴的个人所得税。具体要求:
若P
帮忙做几道VFP题,写下代码.4.编写一个程序,将1~50之间的偶数全部显示出来。5.编写一个程序,将一个学生数据表“stu.dbf”中所有性别是“女”的同学的“年龄”减小10岁。6.假设收入(P)
经过调试,结果如下:
** 第4题
clear
for i=1 to 50
if i/2=int(i/2)
endif
endf
** 第5题
clear
use stu
replace all 年龄 with 年龄-10 for 性别="女"
use
** 第6题
clear
input "请输入收入值:" to p
do case
case p=800 and p=2000 and p500
r=0.1
endcase
"应缴纳的个人所得税为:",p*r
** 第7题
clear
accept "请输入要查找的学生姓名:" to xm
use 表1
go top
locate for 姓名=xm
if found()
list all for 姓名=xm
else
xm,"同学不存在!"
endif
use
** 第八题
建立表单:modify form login
添加两个标签文件并分别修改其标题(caption)为:用户名、密码
对照上面的两个标签添加两个文本框文件
添加两个按钮文件并修改其标题(caption)为:登录、重新输入
鼠标左键双击登录按钮,在其单击(click)方法中填写如下代码:
if alltrim(thisform.text1.value)=="admin" and ;
alltrim thisform.text2.value)=="123456"
messagebox("欢迎使用本系统!")
else
messagebox("用户名或密码错误!")
endif
鼠标左键双击重新输入按钮,在其单击(click)方法中填写如下代码:
thisform.text1.value=""
thisform.text2.value=""
thisform.refresh
注意,第一次运行时很可能出现即使输入正确的用户名密码也提示错误,
这是因为表单初始化时文本框2的数据输入类型不匹配,要是你要求输入的
密码123456是数值型那么修改alltrim(thisform.text2.value)=="123456"为
alltrim(thisform.text2.value)==123456
否则添加表单(form)的init事件代码:thisform.text2.value=""
** 第9题
建立表单:modify form
添加一个标签文件(label),两个按钮文件(command)
在第一个按钮的click方法中填写代码如下:
thisform.label1.backcolor=rgb(0,0,255)
在第二个按钮的click方法中填写代码如下:
thisform.label1.fontsize=thisform.label1.fontsize-2
注意,开始的时候最好把标签拖大点,第二个按钮多点几次就会出现错误.原因是
字号太小,超出了vfp系统的规定.
** 第10题
clear
b="*"
for i=1 to 20
b=b+"*"
endfor
** 显示直角三角形的长度由i的最大个数决定,最小为3
4.
for i=1 to 50
if i/2=int(i/2)
? i
endi
endf
5.
use stu
repl 年龄 with 年龄-10 for 性别='女' all
6.
do case
case p<800
r=0
...
全部展开
4.
for i=1 to 50
if i/2=int(i/2)
? i
endi
endf
5.
use stu
repl 年龄 with 年龄-10 for 性别='女' all
6.
do case
case p<800
r=0
case p>=800.and.p<2
r=0.05
case p>=2.and.p<5
r=0.08
case p>5
r=0.1
endc
7.
accept '请输入要查找的学生姓名:' to xm
use student
loca for 姓名=xm
if .not.eof()
display
endi
收起
for i=1 to 50 step2
??i
endfor
题呢?