方法1：做一个表单，放一个文本框（text1），一个命令按钮（command1），和一个标签（label1）:再命令按钮的click事件中输入use STUDENTlocate for 学号=alltrim(thisform.text1.value)if not found()messagebox('学号:'+alltrim(thisform.text1.value)+'不存在！',0+16)elsedo case
case 数学+外语>120
thisform.label1.caption='合格'
case 数学+外语>160
thisform.label1.caption...
