求VF编程代码（急用）

来源：百度知道 编辑：UC知道 时间：2024/05/29 07:34:52
关于一个学生成绩表的程序，不难，但是我不会。
总分、平均分表里面没有。
学号有5个，分别为1、2、3、4、5。
课程有三门，语文、数学、英语。
程序：1.键盘输入学号查询姓名、总分、平均分分析显示出来。
2.输入错误给出提示。

use cj.dbf
do while !eof()
input "输入学号:" to m
&&m的输入格式必须与学号字段一致，如果学号为字符型，那么输入加引号
if vartype(m)=vartype(学号)
go top
locate for m=学号
else
?"数据格式输入错误，请重新输入!"
loop
endif
if found()
nadd=语文+数学+英语
?"平均分为：",nadd/3
?"总分为:", nadd
else
?"你所输入的学号不存在!"
endif
enddo