1.select 学生.姓名,成绩.课程名 from 学生,成绩 where 学生.学号=成绩.学号 and 学生.性别="男"
2.
clear
accept "请输入姓名:" to a
use 学生
locate for alltrim(姓名)=a
if found()
xh=alltrim(学号)
update 成绩 set 成绩=成绩*1.1 where alltrim(学号)=xh
select 学生.姓名,学生.性别,学生.班级,成绩.课程名,成绩.成绩 from 学生,成绩 where 学生.学号=成绩.学号 and alltrim(学生.姓名)=a
else
?"查无此人!"
endif