簡(jiǎn)單應(yīng)用(參考)

1、簡(jiǎn)單應(yīng)用（注意本題中所有代碼在原題中不提供）(一) 簡(jiǎn)單應(yīng)用（15分）打開表單myform002，表單中已有一個(gè)標(biāo)簽（名稱為L(zhǎng)abel1），二個(gè)命令按鈕“計(jì)算”和“關(guān)閉”（名稱分別為Command1和Command2），三個(gè)文本框（名稱分別為Text1、Text2、Text3），要求完成以下功能：1. 在Text1、Text2中分別輸入一個(gè)自然數(shù)（要求用文本框事件代碼設(shè)定，設(shè)計(jì)時(shí)不使用屬性，當(dāng)不滿足要求時(shí)，光標(biāo)不能離開該文本框），且Text2中的自然數(shù)大于Text1中的自然數(shù)（不用代碼設(shè)定），當(dāng)單擊“計(jì)算”按鈕時(shí)，求出兩個(gè)自然數(shù)之間奇數(shù)的和，并將結(jié)果顯示在文本框Text3中。2. 在表單中增加

2、一個(gè)“重置”按鈕，其字體和字號(hào)同其他命令按鈕，當(dāng)單擊“重置”按鈕時(shí)，三個(gè)文本框均清空。3. 單擊“關(guān)閉”按鈕時(shí)結(jié)束表單的運(yùn)行。界面設(shè)計(jì)如下圖所示。需要完成的操作如下：1. 請(qǐng)將“計(jì)算”命令按鈕單擊事件代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。（練習(xí)題中該事件中無代碼）2. 按要求完成“重置”按鈕和“關(guān)閉”按鈕的事件代碼，兩個(gè)文本框的事件代碼。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(在重置按鈕的click事件代碼窗口中輸入：THISFORM.TEXT1.VALUE=THISFORM.TEXT2.VALUE=THISFORM.TEXT3.VALUE=在關(guān)閉按鈕的click事件代碼窗口

3、中輸入：THISFORM.RELEASE修改計(jì)算按鈕的click事件代碼如下：A=VAL( THISFORM.TEXT1.VALUE )B=VAL(THISFORM.TEXT2.VALUE)P= AS=0DO WHILE P= Bif int(p/2) P/2S=S+PENDIFP=P+1ENDDOTHISFORM.TEXT3.VALUE =STR(S)TEXT1的valid事件代碼如下：RETURN VAL(THISFORM.TEXT1.VALUE)=0 AND VAL(THISFORM.TEXT1.VALUE) =INT(VAL(THISFORM.TEXT1.VALUE)TEXT2的val

4、id事件代碼如下：RETURN VAL(THISFORM.TEXT2.VALUE)=0 AND VAL(THISFORM.TEXT2.VALUE) =INT(VAL(THISFORM.TEXT2.VALUE)(二) 簡(jiǎn)單應(yīng)用（15分）打開表單myform002，表單中已有一個(gè)標(biāo)簽（名稱為L(zhǎng)abel1），三個(gè)文本框（名稱為Text1、Text2、Text3），二個(gè)命令按鈕（名稱分別為Command1、Command2），其標(biāo)題文字分別為“計(jì)算”和“關(guān)閉”。要求完成如下功能：1. 在文本框Text1、Text2中分別輸入一個(gè)三位的自然數(shù)（用valid事件設(shè)定），且Text2中的數(shù)大于Text1中的

5、數(shù)據(jù)（用valid事件設(shè)定），當(dāng)單擊“計(jì)算”按鈕時(shí)，計(jì)算在這兩個(gè)自然數(shù)之間滿足數(shù)字本身三個(gè)數(shù)字之和為10這樣條件的數(shù)之和，并將計(jì)算結(jié)果顯示在文本框Text3中；2. 在表單中增加一個(gè)“重置”按鈕，其字體字號(hào)同其他命令按鈕，單擊該命令按鈕時(shí)，三個(gè)文本框的內(nèi)容均清空。3. 單擊“關(guān)閉”按鈕結(jié)束表單的運(yùn)行。界面設(shè)計(jì)如下圖所示。按功能完成如下操作：(三) 請(qǐng)將“計(jì)算”命令按鈕單擊事件代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。(四) 按要求完成“重置”按鈕和“關(guān)閉”按鈕的程序代碼，完成text1和text2事件代碼的設(shè)定。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(在重置按鈕的click事件代

6、碼窗口中輸入：THISFORM.TEXT1.VALUE=THISFORM.TEXT2.VALUE=THISFORM.TEXT3.VALUE=在關(guān)閉按鈕的click事件代碼窗口中輸入：THISFORM.RELEASE修改計(jì)算按鈕的click事件代碼如下：A=VAL(THISFORM.TEXT1.VALUE)B=VAL(THISFORM.TEXT2.VALUE)P=AS=0DO WHILE P =100 and val(thisform.text1.value)=100 and val(thisform.text2.value)val(thisform.text1.value) AND VAL(T

7、HISFORM.TEXT2.VALUE) =INT(VAL(THISFORM.TEXT2.VALUE)(三) 簡(jiǎn)單應(yīng)用（15分）在指定的考生文件夾下，完成下列簡(jiǎn)單應(yīng)用操作。打開表單myform002，其中已經(jīng)添加兩個(gè)名稱分別為L(zhǎng)abel1和Label2的標(biāo)簽和一個(gè)定時(shí)器Timer1，標(biāo)簽Label1的標(biāo)題為“銷售管理信息系統(tǒng)”。要求完成如下功能：（1）將標(biāo)簽Label1的字體設(shè)置為“黑體”，字號(hào)為20，顏色為RGB（255,0,0），調(diào)整其大小，顯示所有內(nèi)容，其他控件的字體為隸書，字號(hào)為20。（2）將Timer1控件的事件代碼中“？”位置改成正確的代碼，并在屬性窗口設(shè)置Timer1的相應(yīng)屬性，

8、保證每隔20毫秒，標(biāo)簽Label1能夠不停的自右向左移動(dòng)（移動(dòng)值設(shè)置為-2），標(biāo)簽右邊沿移至表單左邊沿后，則標(biāo)簽再次從表單右邊沿開始向左移動(dòng)，循環(huán)往復(fù)。（3）添加名為Timer2的定時(shí)器控件，并編寫相應(yīng)的代碼，保證每隔1秒在標(biāo)簽Label2中顯示當(dāng)前系統(tǒng)時(shí)間。（4）添加一個(gè)“退出”按鈕，單擊此按鈕，則退出表單的運(yùn)行。界面設(shè)計(jì)如下圖所示：需要完成的操作如下：3. 請(qǐng)將timer1控件的事件代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。4. 按要求完成 “退出”按鈕的事件代碼，添加timer2控件并完成相應(yīng)的代碼設(shè)置。5. 完成相關(guān)屬性的設(shè)置。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(在關(guān)

9、閉按鈕的click事件代碼窗口中輸入：THISFORM.RELEASETIMER1控件的事件代碼如下：IF THISFORM.LABEL1.LEFT-THISFORM.LABEL1.WIDTHTHISFORM.LABEL1.LEFT=THISFORM.LABEL1.LEFT-2ELSETHISFORM.LABEL1.LEFT=THISFORM.WIDTHENDIF TIMER2控件的事件代碼如下：THISFORM.LABEL2.CAPTION=TIME()(四) 簡(jiǎn)單應(yīng)用（15分）在指定的考生文件夾下，完成下列簡(jiǎn)單應(yīng)用操作。打開表單myform002，表單中有兩個(gè)命令按鈕“輸出”和“退出”（名

10、稱分別為Command1和Command2）；二個(gè)文本框（名稱分別為Text1、Text2），五個(gè)標(biāo)簽（名稱分別為L(zhǎng)abel1、Label2、Label3、Label4、Label5）。要求完成以下功能：1. 在文本框Text1中輸入姓名（不能為空，用事件代碼限定），在Text2中修改學(xué)生成績(jī)，初始成績(jī)?yōu)?00，用屬性窗口設(shè)置，當(dāng)單擊“輸出”按鈕時(shí)，在標(biāo)簽Label5中顯示等級(jí)，格式為“姓名”+“的等級(jí)為”+ 等級(jí)，其中等級(jí)的劃分為：不及格（大于等于0且小于60）、合格（大于等于60且小于90）、優(yōu)秀（大于等于90且小于等于100），2. Text2中修改的成績(jī)只能在0-100之間，否則在判斷

11、等級(jí)時(shí)顯示“數(shù)據(jù)錯(cuò)誤”（不用在單獨(dú)事件中設(shè)定，在給定的事件中已設(shè)定），如果其中的值不為100，則光標(biāo)進(jìn)不去（用事件設(shè)定），添加一個(gè)“重置”按鈕，字體字號(hào)同其他命令按鈕，單擊重置按鈕，則text1為空，text2為100。3. 單擊“退出”按鈕時(shí)結(jié)束表單的運(yùn)行。表單運(yùn)行示例如下：需要完成的操作如下：6. 請(qǐng)將“輸出”命令按鈕單擊事件代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。7. 按要求完成“退出”按鈕和兩個(gè)文本框的事件代碼。8. 添加“重置”按鈕，完成事件代碼設(shè)定。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(在重置按鈕的click事件代碼窗口中輸入：THISFORM.TEXT1.VAL

12、UE=THISFORM.TEXT2.VALUE=100在退出按鈕的click事件代碼窗口中輸入：THISFORM.RELEASE修改輸出按鈕的click事件代碼如下：cj=thisform.text2.valuedo casecase cj=0 AND CJ=60 and cj=90 and cj=100thisform.label5.caption=THISFORM.TEXT1.VALUE+的等級(jí)為優(yōu)秀otherwisethisform.label5.caption=數(shù)據(jù)錯(cuò)誤endcaseTEXT1的valid事件代碼如下：return LEN(ALLTRIM(thisform.TEXT1.

13、VALUE)0TEXT2的when事件代碼如下：return thisform.TEXT2.VALUE=100(五) 簡(jiǎn)單應(yīng)用（15分）在指定的考生文件夾下，完成下列簡(jiǎn)單應(yīng)用操作。打開表單myform002，表單中有兩個(gè)命令按鈕（名稱分別為Command1和Command2），其標(biāo)題文本分別為“輸出”和“退出”。五個(gè)文本框（名稱分別為Text1、Text2、Text3、Text4、Text5），兩個(gè)標(biāo)簽（名稱分別為L(zhǎng)abel1、Label2）。1. 要求在五個(gè)文本框中分別輸入數(shù)據(jù)長(zhǎng)度不超過4位的五個(gè)數(shù)（用事件代碼加以限定），當(dāng)單擊“輸出”按鈕時(shí)，在標(biāo)簽Label2中顯示由大到小排序的結(jié)果，其字

14、體顯示為紅色（RGB（255,0,0）。2. 單擊“退出”按鈕時(shí)結(jié)束表單的運(yùn)行。表單運(yùn)行效果示例如下：（需要完成的操作如下：9. 請(qǐng)將“輸出”命令按鈕單擊事件代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。10. 按要求完成 “退出”按鈕的事件代碼，五個(gè)文本框的事件代碼。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(在退出按鈕的click事件代碼窗口中輸入：THISFORM.RELEASE修改輸出按鈕的click事件代碼如下：dimension x(5)THISFORM.LABEL2.CAPTION=for i=1 to 5p=thisform.text+STR(I,1) +.valuex(

15、i)=val(&p)endforfor i=1 to 4for j=i+1 to 5if x(i)x(j)t=x(i)X(I)=X(J)X(J)=TendifendforENDFORfor i= 1 to 5thisform.label2.caption= THISFORM.LABEL2.CAPTION+str(x(i),7,2)endforTEXT1的valid事件代碼如下：RETURN LEN(ALLTRIM(thisform.TEXT1.VALUE)=4TEXT2的valid事件代碼如下：RETURN LEN(ALLTRIM(thisform.TEXT2.VALUE)=4TEXT3的va

16、lid事件代碼如下：RETURN LEN(ALLTRIM(thisform.TEXT3.VALUE)=4TEXT4的valid事件代碼如下：RETURN LEN(ALLTRIM(thisform.TEXT4.VALUE)=4TEXT5的valid事件代碼如下：RETURN LEN(ALLTRIM(thisform.TEXT5.VALUE)0 AND VAL(THISFORM.TEXT1.VALUE)=INT(VAL(THISFORM.TEXT1.VALUE)TEXT2的valid事件代碼如下：RETURN VAL(THISFORM.TEXT2.VALUE)0 AND VAL(THISFORM.

17、TEXT2.VALUE)=INT(VAL(THISFORM.TEXT2.VALUE) AND VAL(THISFORM.TEXT2.VALUE)VAL(THISFORM.TEXT1.VALUE)(七) 簡(jiǎn)單應(yīng)用（15分）在指定的考生文件夾下，完成下列簡(jiǎn)單應(yīng)用操作。打開表單myform002，在表單中有四個(gè)標(biāo)簽（名稱為L(zhǎng)abel1、Label2、Label3、Label4），一個(gè)下拉式組合框，三個(gè)文本框（名稱為Text1、Text2、Text3），TEXT1、TEXT2、TEXT3的字體顏色分別為RGB(255，0，0)、RGB(0，255，0)、RGB（0，0，255）兩個(gè)命令按鈕（名稱為Co

18、mmand1、Command2），其標(biāo)題文字分別為“統(tǒng)計(jì)”和“退出”。要求完成以下功能：1. 在文本框combo1中選擇一組已有的字符或者輸入長(zhǎng)度大于6的字符串內(nèi)容（若長(zhǎng)度不大于6，焦點(diǎn)不能離開combo1，用事件代碼限定）。當(dāng)單擊“統(tǒng)計(jì)”按鈕時(shí)，分別統(tǒng)計(jì)“字符”、“數(shù)字”和“其他”的個(gè)數(shù)，并將結(jié)果分別顯示在文本框Text2、Text3、Text4中。2. 添加一個(gè)“重置”按鈕，其字體字形同“統(tǒng)計(jì)”按鈕，單擊“重置”按鈕，則將組合框，三個(gè)文本框中的內(nèi)容清空。3. 單擊“退出”按鈕則退出運(yùn)行狀態(tài)。表單運(yùn)行示例圖如下：需要完成的操作如下：13. 請(qǐng)將“統(tǒng)計(jì)”命令按鈕單擊事件代碼中的？去掉，改成正確

19、的代碼，不能增加行或刪除行。14. 按要求添加“重置”按鈕及它的屬性設(shè)置和它的事件代碼的設(shè)置15. 按要求編寫“退出”按鈕的事件代碼，組合框的事件代碼。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(在重置按鈕的click事件代碼窗口中輸入：THISFORM.COMBO1.VALUE=THISFORM.TEXT1.VALUE=THISFORM.TEXT2.VALUE=THISFORM.TEXT3.VALUE=在退出按鈕的click事件代碼窗口中輸入：THISFORM.RELEASE修改統(tǒng)計(jì)按鈕的click事件代碼如下：C=0D=0E=0a=ALLTRIM(bo1.DISPLAYvalue)b=LE

20、N(A)for i=1 to bch=SUBSTR(A,I,1)DO CASECASE ch=a and ch=A and ch=0 and ch6(八) 簡(jiǎn)單應(yīng)用（15分）在指定的考生文件夾下，完成下列簡(jiǎn)單應(yīng)用操作。打開表單myform002，表單中有三個(gè)標(biāo)簽（Label1、Label2、Label3），一個(gè)文本框（Text1），一個(gè)選項(xiàng)按鈕組（Optiongroup1），一個(gè)列表框（List1），兩個(gè)命令按鈕（Command1、Command2），其標(biāo)題文字分別為“重置”和“退出”。要求完成以下功能：1. 在文本框Text1輸入行數(shù)（行數(shù)不能超過6行，必須為一個(gè)自然數(shù)，且如果不輸入也不允許

21、退出Text1焦點(diǎn)）后，在Optiongroup1中，單擊相應(yīng)按鈕，則在列表框中顯示對(duì)應(yīng)的圖形。2. 單擊“重置”按鈕，則文本框和列表框內(nèi)容清空，選項(xiàng)按鈕組全部未選中，TEXT1獲得焦點(diǎn)。3. 單擊“退出”按鈕則結(jié)束表單運(yùn)行。表單運(yùn)行示例圖如下：需要完成的操作如下：16. 請(qǐng)將選項(xiàng)按鈕組、第一個(gè)按鈕、第二個(gè)按鈕、第三個(gè)按鈕的單擊事件代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。17. 按要求完成“重置”按鈕和“退出”按鈕的事件代碼，文本框的事件代碼。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(在重置按鈕的click事件代碼窗口中輸入：THISFORM.TEXT1.VALUE=THISFO

22、RM.OPTIONGROUP1.VALUE=0thisform.LIST1.ROWSOURCE=THISFORM.TEXT1.SETFOCUS()在退出按鈕的click事件代碼窗口中輸入：THISFORM.RELEASE選項(xiàng)按鈕組的click事件代碼如下：public p,xp=val(thisform.text1.value)dimension x(p)for i=1 to px(I)=endforfor i=P to 1 step -1x(P-I+1)=space(6-P)for j=1 to Ix(P-I+1)=x(P-I+1)+*endforendforthisform.list1.r

23、owsourcetype=5thisform.list1.rowsource=Xthisform.refresh選項(xiàng)按鈕組的第一個(gè)選項(xiàng)按鈕的click事件代碼如下：public p,xp=val(thisform.text1.value)dimension x(p)for i=1 to px(I)=endforfor i=1 to P step 1x(I)=space(6-I)for j=1 to 2*I-1x(I)=x(I)+*endforendforthisform.list1.rowsourcetype=5thisform.list1.rowsource=Xthisform.refres

24、h選項(xiàng)按鈕組的第二個(gè)選項(xiàng)按鈕的click事件代碼如下：public p,xp=val(thisform.text1.value)dimension x(p)for i=1 to px(I)=endforfor i=1 to P step 1x(I)=space(6-I)for j=1 to Ix(I)=x(I)+*endforendforthisform.list1.rowsourcetype=5thisform.list1.rowsource=Xthisform.refresh選項(xiàng)按鈕組的第三個(gè)選項(xiàng)按鈕的click事件代碼如下：public p,xp=val(thisform.text1.v

25、alue)dimension x(p)for i=1 to px(I)=endforfor i=P to 1 step -1x(P-I+1)=space(6-I)for j=1 to 2*I-1x(P-I+1)=x(P-I+1)+*endforendforthisform.list1.rowsourcetype=5thisform.list1.rowsource=Xthisform.refreshTEXT1的valid事件代碼如下：RETURN VAL(THISFORM.TEXT1.VALUE)0 AND VAL(THISFORM.TEXT1.VALUE)=int(VAL(THISFORM.T

26、EXT1.VALUE) and val(THISFORM.TEXT1.VALUE)=6(九) 簡(jiǎn)單應(yīng)用（15分）在指定的考生文件夾下，完成下列簡(jiǎn)單應(yīng)用操作。打開表單myform002，表單中已有七個(gè)標(biāo)簽（名稱為L(zhǎng)abel1label7），一個(gè)命令按鈕組，一個(gè)命令按鈕，四個(gè)文本框（名稱分別為Text1text4），兩個(gè)選項(xiàng)按鈕組，一個(gè)復(fù)選按鈕，一個(gè)編輯框，要求完成以下功能：1. 顯示或編輯RSDA.DBF數(shù)據(jù)表中的各個(gè)記錄的相關(guān)字段值，當(dāng)為首記錄時(shí)，“首記錄”，“上一條”按鈕不可用，當(dāng)為末記錄時(shí)，“下一條”和“末記錄”按鈕不可用，單擊“添加記錄時(shí)，“下一條”和“末記錄”按鈕不可用，可以在數(shù)據(jù)表最

27、后增加記錄，單擊“刪除記錄”，“首記錄”和“上一條”不可用，可以刪除一條記錄。2. 記錄號(hào)即TEXT1中的值，通過程序代碼顯示。3. 單擊“退出”按鈕時(shí)結(jié)束表單的運(yùn)行。表單運(yùn)行事例如下圖所示。需要完成的操作如下：1. 請(qǐng)將命令按鈕組中各個(gè)命令按鈕的單擊事件代碼和表單INIT事件代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。(十) 按要求完成 “退出”按鈕的事件代碼。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(表單的INIT代碼為：THISFORM.TEXT1.VALUE=RECNO()THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.THISFORM.

28、COMMANDGROUP1.COMMAND2.ENABLED=.F.命令按鈕組中的首記錄的click事件代碼：GO TOPTHISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.T.THISFORM.TEXT1.VALUE=RECNO()THISFORM.REFRESH命令按鈕組中的上一條的click事件代碼：SK

29、IP -1IF RECNO()=1THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.F.ENDIFTHISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.T.THISFORM.TEXT1.VALUE=RECNO()THISFORM.REFRESH命令按鈕組中的下一條的click事件代碼：A=RECNO()GO BOTTOMB=RECNO()GO ASKIPIF REC

30、NO()=BTHISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.F.ENDIFTHISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.T.THISFORM.TEXT1.VALUE=RECNO()THISFORM.REFRESH命令按鈕組中的末記錄的click事件代碼：GO BOTTOMTHISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.T.

31、THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.F.THISFORM.TEXT1.VALUE=RECNO()THISFORM.REFRESH命令按鈕組中的添加記錄的click事件代碼：SELECT RSDAGO BOTTOMTHISFORM.REFRESHTHISFORM.TEXT2.READONLY=.F.THISFORM.TEXT3.READONLY=.F.THISFORM.TEXT4.

32、READONLY=.F.THISFORM.EDIT1.READONLY=.F.APPEND BLANKTHISFORM.TEXT1.VALUE=RECNO()THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.F.THISFORM.REFRESHTHISFORM.TEXT1.SETFOCUS()命令按鈕組中的刪

33、除記錄的click事件代碼：DELETEPACKTHISFORM.REFRESHTHISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.T.THISFORM.TEXT1.VALUE=RECNO()THISFORM.REFRESH在關(guān)閉按鈕的click事件代碼窗口中輸入：THISFORM.RELEASE(十) 簡(jiǎn)單應(yīng)

34、用（15分）在指定的考生文件夾下，完成下列簡(jiǎn)單應(yīng)用操作。打開表單myform002，表單上有一個(gè)標(biāo)簽（Label1），一個(gè)圖像控件（Image1），一個(gè)計(jì)時(shí)器控件（Timer1），一個(gè)命令按鈕（Command1），其標(biāo)題為“退出”。要求完成以下功能：1. 要求使用屬性窗口為圖像控件Image1添加要顯示的圖片內(nèi)容（所需圖片在對(duì)應(yīng)的考生文件夾中），采用等比填充，然后圖片每隔20毫秒在表單的水平方向上移動(dòng)，到達(dá)表單的左或右邊框時(shí)向相反方向移動(dòng)。2. 當(dāng)單擊“退出”按鈕時(shí)，結(jié)束表單的運(yùn)行。表單設(shè)計(jì)完成后如下圖所示：需要完成的操作如下：1. 修改程序，將計(jì)時(shí)器的timer事件代碼中的“？”改成正確的內(nèi)容，不能添加或刪除代碼行；2. 編寫“退出”按鈕的程序代碼；3. 在表單的Init事件中設(shè)置ff為公共變量，初始值為.T.。通過屬性將圖片添加上去，采用等比填充。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(表單的init事件代碼如下：public ffff=.T.在退出按鈕的click事件代碼窗口中輸入：THISFORM.RELEASE修改計(jì)時(shí)器的timer事件代碼如下：if ffthisform