华南俳烁实业有限公司

　　填空題 (每空2分，共20分)

　　1. 有一密碼驗證程序，其設(shè)計界面如圖1，運(yùn)行界面如圖2。基本功能是在2個文本框中輸入兩次密碼，2個密碼完全相同，驗證通過(釋放表單)。否則，彈出警告窗口，報告“密碼值有誤，重新輸入!”，表單不釋放。以下為一些控件的屬性設(shè)置和事件代碼，請?zhí)羁胀瓿伞?/P>

　　Text1.PasswordChar= ①

　　Command1.Click Event

　　if ②

　　=messagebox("密碼值有誤，重新輸入!")

　　return

　　endif

　　thisform.release

　　2.以下程序?qū)崿F(xiàn)功能：統(tǒng)計數(shù)據(jù)表stock99中，字段“編號”為奇數(shù)的 “庫存量”之和。請?zhí)羁胀瓿伞?/P>

　　Set talk off

　　X=0 &&庫存量的和值

　　___________ ③ ________

　　do while .not.eof()

　　if val(編號)/2<>______④

　　X=X+庫存量

　　endif

　　___________ ⑤ _______

　　enddo

　　? "編號為奇數(shù)的庫存量之和為：", X

　　use

　　3. 設(shè)有一數(shù)據(jù)表GZ.DBF，有一字段名為“實發(fā)工資”。下面是按“實發(fā)工資”計算稅金的程序，并將計算結(jié)果填入“稅金”字段(假設(shè)職工最高實發(fā)工資為3000元)，請將正確的內(nèi)容填在下劃線處。

　　***主程序MAIN.PRG*** ***子程序SUB.PRG***

　　SET TALK OFF PARAMETERS SF,X

　　TAX=0 X=0

　　USE GZ DO CASE

　　DO WHILE .NOT.EOF() CASE SF>=800 .AND.SF<1300

　　SFGZ=實發(fā)工資 X=(SF-800)*0.05

　　DO SUB WITH ___⑥_____ CASE SF>=1300 .AND. SF<2300

　　? TAX B=SF-1300

　　______⑦_(dá)_______ X=B*0.15+500*0.1+500*0.05

　　SKIP CASE SF>=2300

　　ENDDO B=SF-2300

　　USE X=B*0.2+500*0.15+500*0.1+500*0.05

　　CANCEL ______⑧______

　　RETURN

　　4.請完善TEST1.PRG程序,使得運(yùn)行該程序后,將在屏幕上顯示左邊的乘法表：

　　1 ***TEST1.PRG***

　　2 4 SET TALK OFF

　　3 6 9 FOR ______⑨_______

　　4 8 12 16 FOR ______⑩_______

　　5 10 15 20 25 ?? STR(J*K,6);

　　6 12 18 24 30 36 ENDFOR

　　7 14 21 28 35 42 49 ?

　　8 16 24 32 40 48 56 64 ENDFOR

　　9 18 27 36 45 54 63 72 81 RETURN

　　① “*”

　�、� thisform.text1.value # thisform.text2.value

　�、� USE stock99

　�、� INT(val(編號)/2)

　　⑤ SKIP

　�、� SFGZ,TAX

　　⑦ REPLACE 稅金 WITH TAX

　�、� ENDCASE

　�、� J=1 TO 9

　�、� K=1 TO J