clear
set talk off
close all
use <學生表名>
input "開始記錄號:" to ks
input "結束記錄號:" to js
a=js-ks+1
for i=1 to a
go js
display
js=js+1
endfor
"所有符合條件的記錄都已顯示完畢"use
set talk on
2、
clear
set talk off
input ”請輸入x的值:" to x
do case
case x<0
y=-1
case x=0
y=0
case x>0
y=1
endcase
"Y的值是:",yset talk on
3、題目要求不明確,是否也要輸入職位?或者是根據表來的?這裏選擇根據教師表
clear
close all
set talk off
use <教師表名>
accpet ”請輸入教師名稱:" to jsmc
locate for 教師名稱=alltrim(jsmc)
if found()
do case
case 職稱="助教"
"該教師職稱等級為:初級"case 職稱="講師"
"該教師職稱等級為:中級"case 職稱="教授" or 職稱="副教授"
"該教師職稱等級為:高級"endcase
else
"沒有找到該教師!"endif
use
set talk on
4、
(1)
clear
set talk off
input "請輸入圓的半徑:" to r
s=2*pi()*r
"圓的周長是",sset talk on
(2)
clear
set talk off
close all
use <教師表名>
accept “請輸入教師編號:" to jsbh
go top
locate for 教師編號=alltrim(jsbh)
if found()
do case
case 年齡=1
獎勵級別=1
case 年齡=2
獎勵級別=2
endcase
endif
use
set talk on