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

2025-03-31 15:54:28

推荐回答（2个）

回答（1）：

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

回答（2）：

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