Visual Foxpro 题， 在线等，求高手解答

1．运行Vsual Fxpro,新建一个程序文件，该程序文件内容如下： set default to c:\tstf use 学生简历.dbf index on姓名from姓名索引 go top seek 王虎 disp if.not.found() wait"没有找到该姓名" endif set index to use 2.调试该程序，使其实现以下功能： （1）按姓名建立索引 （2）差在姓名为“王虎”的记录你 （3）显示该记录，若未找到，在屏幕上输出“未找到该姓名” 3.写下调试好的程序 1 运行Vsual Fxpro,新建一个程序文件，该程序文件内容如下： set default to c:\tstf use 学生成绩 do while .t. @2,2say”1.添加新记录” @4,2say”2.删除当前记录” @6,2say”3.退出” @8,2say”请选择？（1或2）”to selectit if selectit=”1” edit endif if selectit=”2” insert endif selectit=”3” break endif exit enddo use 2.调试该程序，使其实现以下功能： （1）在屏幕上显示一个菜单 （2）由用户输入数字 （3）若数字为1，则添加一个新记录；若数字为2，则删除当前记录；若数字为3，则退出该程序 3.写下调试好的程序 1．运行Vsual Fxpro,新建一个程序文件，该程序文件内容如下： set default to c:\tstf use 学生简历.dbf students=0 go bottom skip-1 do while not bof() if substr(姓名,1,1)=”李” students=students+1 skip endif skip enddo ?”姓李的学生数为:”,students ??”名” Use 2.修改该程序，使其实现以下功能： （1）计算姓李的人数 （2）在屏幕上输出结果 （3）将结果记录在下面： 3.写下调试好的程序 1．运行Vsual Fxpro,新建一个程序文件，该程序文件内容如下： set default to c:\tstf use 学生成绩 badscore=1 go top do while not bof() if平均分>60 badscore=badscore+1 endif exit enddo ?”不及格的学生有:”,badscore ??”名” Use 2.调试该程序，使其实现以下功能： （1）求出平均分不及格的人数 （2）在屏幕上显示结果 （3）将结果记录在下面： 3.写下调试好的程序

答案：给你个思路：
1. 在数据库或本地数据表，或者文本都可以，中将你的两个固定的经验值，输入进入；
2. 在Form中添加ADOQuery；
3. 在两个组合框中，通过For循环向 ComboBox.OnDrawDown 中分别添加 
ComboBox.Items.Add(intToStr(i)) ;
4. 当计算时，写两套For循环和Case...of代码块，将组合框中的选择值与ADOQuery查询出的经验对应；

其他：这是成员初始化列表。A(n)就是调用A类的构造函数 A（n)来初始化基类A的数据。ob(n)就是给成员ob赋初值n。 if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=" & (page+1) & ">"
    response.write "下一页</a> <a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&SmallClass="&SmallClass&"&page="&rs.pagecount&">尾页</a>" 然后循环级别，根据父ID，设置节点。很容易就生成树了。
至于删改更容易了。传入当前ID，直接删改就行了。
最多只需要一个检索的存储过程，就是根据级别循环读节点就是了。