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

　　1. 有一密码验证程序，其设计界面如图1，运行界面如图2。基本功能是在2个文本框中输入两次密码，2个密码完全相同，验证通过(释放表单)。否则，弹出警告窗口，报告“密码值有误，重新输入!”，表单不释放。以下为一些控件的属性设置和事件代码，请填空完成。

　　Text1.PasswordChar= ①

　　Command1.Click Event

　　if ②

　　=messagebox("密码值有误，重新输入!")

　　return

　　endif

　　thisform.release

　　2.以下程序实现功能：统计数据表stock99中，字段“编号”为奇数的 “库存量”之和。请填空完成。

　　Set talk off

　　X=0 &&库存量的和值

　　___________ ③ ________

　　do while .not.eof()

　　if val(编号)/2<>______④

　　X=X+库存量

　　endif

　　___________ ⑤ _______

　　enddo

　　? "编号为奇数的库存量之和为：", X

　　use

　　3. 设有一数据表GZ.DBF，有一字段名为“实发工资”。下面是按“实发工资”计算税金的程序，并将计算结果填入“税金”字段(假设职工最高实发工资为3000元)，请将正确的内容填在下划线处。

　　***主程序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=实发工资 X=(SF-800)*0.05

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

　　? TAX B=SF-1300

　　______⑦________ 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程序,使得运行该程序后,将在屏幕上显示左边的乘法表：

　　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