Question

帮忙做几道VFP题

帮忙做几道VFP题，写下代码。
4. 编写一个程序，将1～50之间的偶数全部显示出来。
5. 编写一个程序，将一个学生数据表“stu.dbf”中所有性别是“女”的同学的“年龄”减小10岁。
6. 假设收入（P）与税率（R）的关系如下，编写程序exersize3.prg，根据输入的收入值求出应缴的个人所得税。具体要求：
若P<800，则R=0
若800<=P<2，则R=0.05
若2<=P<5，则R=0.08
若P>5，则R=0.1
7. 编写一个程序，从表“student.dbf”中，根据姓名查询指定学生的记录，若找到了则显示该学生的记录在屏幕上，若没有找到，则输出“XX同学不存在！”(其中XX代表输入的姓名)。
8. 表单设计：为学生成绩管理系统设计一个登录表单login.scx，假定管理员用户名为admin，密码为123456，要求用文本框中输入用户名和密码，单击登录按钮，如果用户名和密码正确则显示欢迎词，否则显示“用户名或密码有误”。单击重新输入可清除文本框中的内容。
9. 设计一个表单，上有一个标签对象和两个命令按钮，要求编写程序实现：单击一个按钮可使得标签的背景色(backcolor)为蓝色(0,0,255)，单击另一个按钮可使标签字号缩小2号。

三、拓展题
10. 阅读程序：要求在屏幕上打印一个用“*”组成的直角三角形如图所示，程序如下：

Answer 1

经过调试，结果如下：
** 第4题
clear
for i=1 to 50
if i/2=int(i/2)
? i
endif
endf
** 第5题
clear
use stu
replace all 年龄 with 年龄-10 for 性别="女"
use
** 第6题
clear
input "请输入收入值：" to p
do case
case p<800
r=0
case p>=800 and p<2000
r=0.05
case p>=2000 and p<5000
r=0.08
case p>500
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=b+"*"
endfor
** 显示直角三角形的长度由i的最大个数决定，最小为3

Answer 2

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

Answer 3

for i=1 to 50 step2
??i
endfor

Answer 4

题呢？