帮忙做几道VFP题,写下代码.

帮忙做几道VFP题,写下代码.
4.编写一个程序，将1～50之间的偶数全部显示出来。
5.编写一个程序，将一个学生数据表“stu.dbf”中所有性别是“女”的同学的“年龄”减小10岁。
6.假设收入（P）与税率（R）的关系如下，编写程序exersize3.prg，根据输入的收入值求出应缴的个人所得税。具体要求：
若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