求VF编程代码，之前问过一次了，目的是再问一次另一个形式的

来源：百度知道 编辑：UC知道 时间：2024/06/02 09:17:08
关于一个学生成绩表的程序，不难，但是我不会。
总分、平均分表里面没有。
学号有5个，分别为1、2、3、4、5。
课程有三门，语文、数学、英语。
程序：1.键盘输入学号查询姓名、总分、平均分分析显示出来。
2.输入错误给出提示。
3.开头用accpet，代码里包括alltrim()去空格
4.输入后显示姓名、总分、平均分

use biao (yw sh yy xh xm)
accept "学号：" to p
do while !eof()
if vartype(p)<>vartype(xh)
?"输入错误"
loop
else
go top
locate for alltrim(xh)=alltrim(p)
if found()
?"姓名:"+alltrim(xm)
?"总分:"+alltrim(str(yw+sx+yy))
?"平均分:"+alltrim(str((yw+sx+yy)/3))
endif
endif
skip
enddo

set talk off
accept "学号：" To xh
Use 学生成绩表
Locate For alltrim(学号)==alltrim(xh)
if Found()
总分=语文+数学+英语
平均分=总分/3
? 姓名+Str(总分,5)+str(平均分,8,2)
else
? "没有此学号！"
endif
Use
Retu