救命啊，明天vf考试，帮忙编个程序

不知道还来得及吗?
先编了再说.
假如你的表名叫 信息表.dbf 和 专业表.dbf

set talk off
clear
sele 1
use 专业表.dbf
sele 2
use 信息表.dbf

a=" "
&&本句为解释语句,上面一个语句是让A等于8个空格.
input "请输入学生姓名:" to a
locate for alltrim(姓名)=alltrim(a)
b=alltrim(专业号)
sele 1
locate for alltrim(专业号)=b
c=专业名称
?"学生姓名:"
?? a
?"专业名称:"
??c


就这样吧.
廊坊老郑