VF90期末實驗題庫答案全解

1、數(shù)據(jù)庫應(yīng)用基礎(chǔ) Visuyal FoxPro 9.0期末考試題庫第一部分基礎(chǔ)題1.先用賦值語句分別為變量 X、丫、Z賦初值為200、300、400,然后要求輸出: (X-2Y)/(2-Z)*Y50Z100或 Yioa OK T如?Z50 AND ZDO2按照以下表結(jié)構(gòu)，建立三個表。字段名寬度小數(shù)位字段名寬度小數(shù)住號冷型6職工號字符型6姓名彌型8商品號冷型4性別詡型卞數(shù)值型82婚否邏輯型1金額數(shù)值舉122出生日期日期型8寬度小數(shù)位科工資數(shù)值型81子取召_-er 口 口字符型4部門瑋型4Ln備理4商品名禰字符型20通用型去類別|字符型1翳量|數(shù)值型$7單價數(shù)值型87.單位字符型43顯不格式迎t輸入

2、摘碼但:標(biāo)題回；*1字段有埶性信（G）：smtsw匹淳段奠型到類員度小埶位埶索引NULL表設(shè)計言段|索弓I 義窖稱類型顯示庫丄）：刑N型型型型型型型型 存符符it朗值存逹用 字宇字邏曰敎寶備通號工宿別舌 題姓性婚 宇段索引表名稱糞型窗度小數(shù)血數(shù)索引NULL韻工E拿荷型6 *丨商品號宇符型斗口輸入掩瑪訓(xùn)）；數(shù)里數(shù)值型8 2I金額頻值型12 2標(biāo)題:字段有規(guī)則遲）：ftSCGX宇段索引表名稱類型兗度小釧立埶索引NULL-JUDDDD陣存重單位埶值型數(shù)值型字存型20482E24格式Q）：輸入掩碼迴#標(biāo)&事嚴有效性MB）-信 e（KL默認值址）：匹酉淳段糞型到類3.統(tǒng)計職工表的職工總?cè)藬?shù)以及男、女職工

3、的人數(shù)。USE職工COUNT TO ZRSCOUNT FOR 性別=男TO MZGCOUNT FOR 性別=女TO WZG?總?cè)藬?shù)=+STR( ZRS ,2),男職工人數(shù)=+STR(MZG,1),; 女職工人數(shù)=+STR( WZG ,1)總?cè)藞藲辰泄ifcn立取工人埶訓(xùn)USE 吹取工C0U1IT TO 2RSCOUHT fOR 羞別胃TO MZGCOOT TOR 性TO W2G曠總?cè)霐湶爬瑖@花曆疋），男職工人l+STRm O ；女職工人數(shù)rSTR仙陰” 14.編寫程序，修改并顯示指定職工的基本工資。 NOTE修改并顯示指定職工的基本工資SET TALK OFFCLEARUSE職工ACCEPT

4、 請輸入職工號:TO ZGH LOCATE FOR 職工號=ZGHIF !EOF（）廳無和I尊數(shù)據(jù)庫應(yīng)用基礎(chǔ) Visuyal FoxPro 9.0期末考試題庫7REPLACE 基本工資 WITH 基本工資+200 ?職工號，姓名，基本工資ELSE?沒有找到!ENDIFUSESET TALK ONi青輸入的工號iPMfrl199T01 李紅 ETO.OO；3修改井顯示指走眼工射基本工資可SET TJJLK OFPCLEARUSE配工hCCEFT IS輸入肥工號:TO 2GKLOCATE珀R取工號二ZOHIF 1E0J 0KEJLACI 基本工資 mH MI+200 ?取工昌姓窖.星本工資FT嚴沒

5、有找到LEMDIFUSSET TM ON5編寫程序，火車托運行李，根據(jù)行李的重量計算托運費。收費標(biāo)準(zhǔn)假設(shè)是0.60元/千克。由用戶輸入貨物的重量，請計算并輸出所需要的托運費。SET TALK OFFCLEARINPUT 請輸入貨物的重量 (Kg): TO WF=W*0.60?貨物重量+ALLTRIM(STR( W,19,2)+千克需要的托運費為：”；+ALLTRIM(STR( F,19,2)+元SET TALK ON済輪入貨物的重里壓：56貨物重重関00千克霍要的托運嚴為：33. G阮園計SFSS.prgSIT TAU OFFCLEAK_“清輸入帥的重SW： TO肖F二料0 gg甘貨柳重里WL

6、URI悴TEW ig)*壞克需要的艇賽尙*： +ALLTRIM (STRtFj 元ST TALK OH6.編寫程序，求“職工”表中指定部門(如直銷、零售)全體職工的基本工資總額。 NOTE求指定部門基本工資總額SET TALK OFFCLEARUSE 職工ACCEPT 請輸入指定部門：” TO BMSUM 基本工資 TO JBGZ FOR 部門=BM?BM +部全體職工的基本工資為：+STR(基本工資，8,2)USE諂輸入扌靛部門；亙銷直梢祁全體取工的基本工資為：0.00SET TALK ON豊求糟定部門基本工資總甌prgHOTE求焉部門基不工賈總額SBT TALC OFFCLEAHUSEAC

7、CEPT TS輸入臘圭部門：* TO BMSUM 基玄工炎TO JT富FOR部門=EM 肚M+部全瞬工的呈本工+STR(1本工 ,呼) UEESET TALK 0147.編寫程序，如果在例題5中，當(dāng)重量不超過50kg時，按每千克0.60元收費；當(dāng)重量超過50kg，超出50kg 的部分按每千克0.90元收費。試編寫程序計算托運費。SET TALK OFFCLEARINPUT 請輸入貨物的重量 (Kg): TO WIF W =50F=W*0.60ELSEF=50*0.6+(W-50)*0.9ENDIF?貨物重量” +ALLTRIM(STR( W,19,2)+ “千克需要的托運費為：”；+ALLTR

8、IM(STR( F,19,2)+元SET TALK ON請輸入貨物的重lGts); 56r負擁重重茨DO千克需要餉托運勤：35Y0元SEr TALK OFFClARIN?UT 清輸入燙物的fSCKg): * TJ YIF tf=50f=tf*0.60ELSEF=50.6+(y-50)*0.BMIITF?噴物重fTBIMGTR 12)千克需要的吒運費為；S+ALLTRIil C5TR2)十元SET TALK ON方法。8. 編寫程序：求 x + x2 + x3 + x4 + + xn的值。n, x從鍵盤輸入。FOR- ENDFORSET TALK OFFCLEARINPUT N= TO NINP

9、UT X= TO XA=1S=0FOR 1=1 TO NA=A*XS=S+AENDFOR ?S=, SSET TALK ON回 求+ kS 4- ji4 + -?- Jtn的宣 p rgSIT TMK OTFCLEhRINPUTTO SIHFUTTO Ik-1S=0FOR 1=1 TO N心閥S=5+jlEWOR” SSET TALDC 期M （從鍵盤輸入）內(nèi)的偶數(shù)及偶數(shù)和。9. 編寫程序：顯示輸出正整數(shù)SET TALK OFFCLEARINPUT M= TO MS=01=1DO WHILE lv=MIF INT(l/2)=I/2?l,是偶數(shù)”S=S+IENDIFI= 1+1ENDDO?偶數(shù)和

10、為：”，SSET TALK ON數(shù)據(jù)庫應(yīng)用基礎(chǔ) Visuyal FoxPro 9.0期末考試題庫1=10r聞?wù)?酗m內(nèi)鎧;偃數(shù)更駅0Q，prg豈是偶鍛SET TALK OFTCLEA14是橋數(shù)ihputto m6是偶數(shù)s=oS是偶埶1=110是褊教B0 OILE I=N12杲偶埶if iin a/)= i/2W是偶埶?i是偈數(shù)片ie是譙數(shù)S=S+I隔勤和拘：T5EHDIP1M+lENDDO們禺?dāng)?shù)和為：J 3SET TALK Oil10.編寫程序，顯示輸出如圖4-34所示的圖形。：忙4乂：匸耳：章*世桿車SET TALK OFFCLEARFOR i=5 TO 1 STEP -1 ?SPACE(6

11、-i) FOR j=1 TO 2*i-1? * ENDFORENDFORSET TALK ON心揃出HE角圖形田SET TALK OFFCLEARTOR i=5 TO 1 STEP -1 ?SPAJCE(&-；FOR j=l TO Zi-1 餌*ElWFOEIHDFaRSET TALK OU11.編寫程序，要求從鍵盤輸入職工工作業(yè)績考評分數(shù)（0分100分），將其轉(zhuǎn)換成對應(yīng)的中文輸出（分為五檔：90分為優(yōu)秀，8089分為良好，7079分為中等，6069分為合格，60以下為不合格）。SET TALK OFFCLEARINPUT請輸入數(shù)據(jù) x= TO XDO CASECASE X=60 AND X=

12、70 AND X=80 AND X=90Y=優(yōu)秀ENDCASE?考評分數(shù)：”,X,為：”，YSET TALK ON請輸入埶拐滸葩四職工工作業(yè)壤考評分數(shù).prg1考評分數(shù)：昴為；良好SET TALK OFFCLEAINPUT F青輪IX數(shù)據(jù)V 70 S ID CASECA3E K=eo m 忖舍格CASE X=70 A3TOr-J中學(xué)CASE XXO Mffi 沁日 仁良好CASE X=90 &優(yōu)秀rItTDCASE計者評分數(shù)；：瓦呀；J Y SET TALK 0U2000元的姓名、部門、性別、基本工12.要求用循環(huán)語句編寫程序，顯示輸出“職工”表中基本工資大于 資等數(shù)據(jù)。SET TALK OF

13、FCLEARUSE zg1SCAN FOR 基本工資2000?姓名，部門，性別，基本工資ENDSCANUSESET TALK ON#數(shù)據(jù)庫應(yīng)用基礎(chǔ) Visuyal FoxPro 9.0期末考試題庫13feH女女SS 請售腿梢售服 直一嬰客直?喜馥華 紅偉英秀軍寶 李張越紅張孫2TO 00 2500.00 2600 00E10CI 002200 002300 00酒蜒出is本:rax于2000元n逛.p粵SET TALK OFF 匚 LEAKUSE齪工SCAK FOR基本工資龍000*姓名部門，性現(xiàn)基本工関EWDSCA1?USESET TALK ON第二部分拓展題1.編制一個抽獎程序，實現(xiàn)對“職

14、工 .DBF”表文件中的職工多次不重復(fù)的隨機抽取。1、設(shè)置數(shù)據(jù)環(huán)境蘭裹雖沒i雪-舉工B1耶工號三性別2、Forml目卷單設(shè)計器-抽獎/CM亙旦|亙冒 FarmUnrt対象回：嚼場rm冋|迥程遲）歹 Init冋Lhi sEcrm. liner 1 . enabLe . F. thisfcYni. label 1 . viEihle. F.thisforni. teitl .walue=rfU.3S工號和柱宕抽獎 SET DELETED OFF3、Command1豈袁笛設(shè)計器-雄獎上-昌 Commandl.Click普 Click対療旦）：O Camrnandl* 過程世）：thi 5form,

15、tin*!t triabled=. T thi e for m 1117151 bl T.Lhi eform. tewtl forecolor =RGB 0, 0）thi e for m. Refr esh4、Command2曰I回II 3頁旦匕5、Command3國 Com ma nd 30 ick對象（旦Q Commands迥程遲）;SET DELETED OFF血 ALL ALLtkisform. RJw注w亙II亙亙恭真您！199803趙英抽獎開始停止退出12081108于礴2. 設(shè)計下圖所示的一個顯示表單。要求：放一幅圖片并配上詩。圖片用兩個形狀作外框，詩句采用豎排、華文行楷、20號

16、、白底、藍字顯示。髒it妝據(jù)猱恵*|直-步驟：(1 )新建表單，設(shè)置表單的Caption屬性為：詩畫”;(2) 放入圖像控件，在屬性窗口設(shè)置其Picture與圖片連接，調(diào)整圖像大小并 設(shè)置Stretch為等比填充。畫哥面占亍尊吃盾兗niaiHMiiiBmaiiMin iiiuhii itBamiaHHiiiaiiiHiiHBiimji iimhiii nu(3) 為圖像框一個形狀，設(shè)置形狀的SpecialEffect為3維，用布局工具欄或格式菜單使形狀置后，并調(diào)整大小使其框住圖像。同樣再放入一個形狀。本例用了2個形狀來修飾圖像。specialEfff o-3SA 0 F ffl 倉燈科3尊數(shù)據(jù)

17、庫應(yīng)用基礎(chǔ) Visuyal FoxPro 9.0期末考試題庫（4）放入一個標(biāo)簽，設(shè)置其Caption為詩句，設(shè)置其 AutoSize為.T.，WordWrap為.T.，往左擠壓文字使之豎排。放入其他三個標(biāo)簽，同樣做上面的設(shè)置。政 A.utoSize L 真函 ordrap T#（5） 按住Shift鍵，選中所有寫上詩句的標(biāo)簽，設(shè)置它們以華文行楷、20號、白底、藍字顯示, 然后調(diào)整好布局。（6）保存、運行即可。;丄丄 At? 39 丄I I fl Jr I I I I I 4 arri I HIS Jrli Jr1 J-I JT IJ - J- r e r - - L_Lil #!盧 1 I I

18、 ! I i I I *=*蘆nf:4 - s B B 4saH 0 = urjs.1t*IJa *kJFLh ”*!ll*a Fda.lll-1 L Jrl - s a a s a s a ar a -rfiiJ-=B#rllf - *ubi*B.lJl.afruH-r:-&藏a心?:匯 : a*!fJ-r 丄!#- a4#a*aJff* -!l4fl1* *!r *-rm 亠 frm* B - fa V r e r B- B ;:蒐 AJ 14.;.;_ . 占 圈 s.;.;.; r*. I I I I!I J 1 1 1 -QBr4fl!L -1il!I-! rr- - fa L u

19、I B r r - fa k n r r r -_ #spii!.#r Ur p = -=alilFF r -! = _ - b K eB - fa h B !e e B- 、 .b ;:rnH,ne,inimrn nil mm m raimrannHnn circlei l r li e l, ee st k sr l sr e sr r”即自動選中文本。）.-1-?: Text1的Valid事件代碼：IF ALLTRIM（This.Value）=ABC & 精確比較，口令為“ ABC ”=MESSAGEBOX（歡迎使用本系統(tǒng)）&利用消息框函數(shù)顯示提示 RETURN .T.&可以失去焦點，繼

20、續(xù)后面的操作ELSE=MESSAGEBOX（ 口令錯，請再試一次!）RETURN .F.&不能失去焦點，光標(biāo)鎖定在文本框上ENDIF倒 TextLValld討氨吵 Text1理程;#啟-:EF 虹丄T 肛L1(ThiM.al擊)=“AE(T=HESSA(?EMJK取迎使用本系銃”RETURN TELSE=HESSAGEBOK(*口令錯 IWffliit一次)EETURN .?.ENDIFA 口令驗證匿口請輸入口令；*0其余為1的一個矩陣。4. 按姓名查詢職工的信息。要設(shè)計一個表單，能在編輯框中輸出一個對角線為步驟： 新建表單，放入1個標(biāo)簽、1個文本框、1個命令按鈕、1個編輯框。 在屬性窗口設(shè)置

21、 Form1、Label1、Command1的Caption屬性。 Form1的In it事件。Thisform.Comma nd1.Default=.T.Thisform.Text1.Select OnEn try =.T.Thisform.Text1.Value=1Thisform.Edit1.ReadO nly =.T. Command1 (顯示)的Click事件數(shù)據(jù)庫應(yīng)用基礎(chǔ) Visuyal FoxPro 9.0期末考試題庫N=Thisform.Text1.Value &獲取文本框的輸入值P=&長字符串的初值FOR 1=1 TO N &外循環(huán)控制輸出的行數(shù)FOR J=1 TO N &內(nèi)

22、循環(huán)控制輸出的列數(shù)IF I=J OR J=N-l+1& 左對角線 l=J,右對角線 J=N-l+1A=0&對角線上元素賦值 0,為輸出清晰在零的前面加一空格ELSEA=1&非對角線上元素賦值 1ENDIFP=P+str(A,2) &把每個字符連接起來ENDFORP=P+CHR(10)&連接換行符，或回車符CHR(13)ENDFORThisform.Edit1.Value=PThisform.Text1.Setfocus&把帶回車符的長字符串賦值給編輯框 &焦點打到文本框上，為下次輸入作準(zhǔn)備Thisform.RefreshText1的Valid事件IF This.Value9 OR This.V

23、alue1 =MESSAGEBOX(輸入錯，請重新輸入!) Return .F.ELSEReturn .T.ENDIFThisform.Refresh譎般之0111111101011111011L011101111110111111101111111010111110111011101111101011111110顯示5. 按姓名查詢職工的信息。求初始運行時只顯示左邊的姓名列表框信息，選擇某一姓名后才顯示指定姓名的具體信息步驟 建表單，職工表放入數(shù)據(jù)環(huán)境。 放入標(biāo)簽和列表框控件，在屬性窗口設(shè)置表單和標(biāo)簽的Caption屬性，設(shè)置列表框的RowSourceType為6，RowSource為職工.

24、姓名。占 RoiriSource 更工理茗屮IIIH-+111lll-iiailll ltlIII*+1壷 RowSourceTypi 6 -至找 把職工號、姓名、性別、婚否、出生日期、部門、基本工資、簡歷字段從數(shù)據(jù)環(huán)境拖入表單，邏輯 型字段婚否自動與復(fù)選框綁定，備注型字段簡歷自動與編輯框綁定，其余字段自動與文本框綁定。 Forml的In it事件Thisform.Setall(Visible,.F.)Thisform. Label1.Visible=.T.Thisform .L ist1.Visible=.T.Thisform.SetAII(ReadO nl y,.T.,TextBox)Th

25、isform.Edt 簡歷.ReadOnly=.T.Thisform.Chk 婚否.ReadOnly=.T. List1 的 InteractiveChange 事件Thisform.Setall(Visible,.T.)Thisform.Refresh& 刷新表單6. 設(shè)計實現(xiàn)數(shù)據(jù)在列表框之間轉(zhuǎn)移操作的表單。要求：能把左邊列表框選定的數(shù)據(jù)項移到右邊列表框，也能把右邊列表框選定的數(shù)據(jù)項移到左邊列表框。步驟： 建表單，將職工表放入數(shù)據(jù)環(huán)境。 表單控件工具欄，放入2個標(biāo)簽、2個列表框、2個命令按鈕。在屬性窗口設(shè)置表單和 2個命令按的Caption屬性。 Forml的In it事件Thisfor m

26、.L istl. RowSourceType=0SCANThisform.List1.Addltem(職工.姓名)ENDSCAN Command1 的 Click 事件Thisform .L ist2.Addltem(Thisform .L ist1.Value)Thisform.List1.Removeltem(Thisfor m.L ist1 .L istI ndex)Thisform.Refresh Command2 的 Click 事件Thisform .L ist1.AddItem(Thisform .L ist2.Value)Thisform.List2.RemoveItem(Th

27、isfor m.L ist2.listI ndex) Thisform.Refresh亙I直亙目標(biāo)數(shù)將列裏：李紅卿一項張偉張|李四方7. 根據(jù)“職工”表，設(shè)計一個計算指定部門基本工資平均數(shù)的表單。要求：指定部門可以用戶輸入也可以從 列表中選擇，如果用戶輸入的部門不存在，則顯示“查無此部門！”，如果存在則計算指定部門基本工資的平均數(shù)，并顯示在文本框中。步驟： 新建表單，將職工表放入數(shù)據(jù)環(huán)境 放入2個標(biāo)簽、1個組合框、1個文本框和1個命令按鈕。在屬性窗口設(shè)置表單和Label1的Caption屬性，設(shè)置組合框的 SelectOnEntry為.T.。 Form1的In it事件SET TALK OFF

28、SET SAFETY OFFThisform.Combo1.RowSourceType=0INDEX ON 部門TO BM UNIQUE &將重復(fù)的部門記錄去掉SCANThisform.Combo1.AddItem（部門）ENDSCANCLOSE INDEX&關(guān)閉索引，恢復(fù)表的原狀鈕19癒無和I尊數(shù)據(jù)庫應(yīng)用基礎(chǔ) Visuyal FoxPro 9.0期末考試題庫Thisform. Label2.Visible=.F.Thisform.Text1.Visible=.F. Combo1的Valid事件LOCATE FOR ALLT (Thisform.Combo1.DisplayValue)=ALL

29、T ( 部門) IF EOF()&到文件尾，則不存在Thisform.Label2.Visible=.F. & 設(shè)置 Label2 不可見Thisform.Text1.Visible=.F. & 設(shè)置 Text1 不可見 =MESSAGEBOX(查無此部門！ )&顯示提示信息RETURN .F.ELSE &否則找到部門Thisform.Label2.Visible=.T.& 設(shè)置 Label2 可見Thisform.Text1.Visible=.T.& 設(shè)置 Text1 可見RETURN .T.ENDIFThisform.Refresh/r i+M工資請輸入或選擇部門;#退出8. 編制一手工日

30、歷。步驟DownClick 和 設(shè)置表單的標(biāo)題屬性Caption，放入1個文本框來顯示日期，放入一個微調(diào)，利用其UpClick 事件。 Form1的In it事件ThisForm.Text1.Value=Date()ThisForm.Text1.DateFormat=14ThisForm.Spi nn er1.Setfocus Spinner1 的 DownClick 事件Thisform.Text1.Value=Thisform.Text1.Value-1Thisform.Refresh Spinner1 的 UpClick 事件Thisform.Text1.Value=Thisform.T

31、ext1.Value+1Thisform.Refresh Command1 的 Click 事件Thisform.Release號人工閔動日歷刁冋蘆201412月15日丄t 退出9設(shè)計一個職工表的只讀瀏覽表單，用戶能通過前翻、后翻命令按鈕翻頁記錄，當(dāng)翻到文件頭時，前翻按鈕 禁止使用，翻到文件尾時，后翻按鈕禁止使用。步驟： 新建表單，把職工表放入數(shù)據(jù)環(huán)境，然后把職工號、姓名、性別等字段拖入表單，它們會與對應(yīng)的 控件建立綁定。放入 3個命令按鈕。調(diào)整布局及字體大小。 在屬性窗口設(shè)置以下屬性：表單及命令按鈕的Caption;把Command2的Default屬性設(shè)置為.，使其為默認按鈕；選中所有的文

32、本框、復(fù)選框、編輯框，設(shè)置它們的ReadOnly為.。 Command1 （前翻）的Click事件SKIP -1&下移一條記錄IF BOF（）&如果是文件頭Thisform.Comma nd1.E nabled=.F.&Comma nd1 禁用ENDIFThisform.Command2.Enabled=.T. & 置 Command2 可用Thisform.Refresh Command2 （后翻）的 Click事件SKIP&上移一條記錄IF EOF（） &如果是文件尾Thisform.Command2.Enabled=.F.&Command2 禁用ENDIFThisform.Command

33、1.Enabled=.T. & 置 Command1 可用Thisform.Refresh Command3 （退出）的 Click事件Thisform.Release數(shù)據(jù)庫應(yīng)用基礎(chǔ) Visuyal FoxPro 9.0期末考試題庫10. 編寫一個無紙化考試的表單，運行界面如下圖所示。題目內(nèi)容取之于表文件的備注字段，學(xué)生答題時能 將所選答案存入表文件對應(yīng)字段中。步驟： 新建表文件“題目及答案”，按照圖所示的要求輸入表結(jié)構(gòu)， “題目”和 “標(biāo)準(zhǔn)”字段的數(shù)據(jù)自編或 從電子數(shù)據(jù)復(fù)制過來。 新建表單，“題目及答案”表文件放入數(shù)據(jù)環(huán)境。放入控件：1個編輯框、1個標(biāo)簽、1個選項按鈕組、1個命令按鈕組。 屬

34、性窗口設(shè)置屬性：設(shè)置表單和標(biāo)簽的Caption，設(shè)置標(biāo)簽的 FontName、FontSize、ForeColor為適當(dāng)?shù)臉幼樱辉O(shè)置編輯框的ControlSource為“題目及答案.題目”字段、ReadOnly為.T.，調(diào)整編輯框 的字體為適當(dāng)大小。I 用命令按鈕組的生成器設(shè)置其按鈕數(shù)為 5,在生成器對話框中設(shè)置每個按鈕的標(biāo)題并給每個按鈕加上 快捷鍵（標(biāo)題中字母，按Alt+字母可以操作該按鈕），如圖6-23所示，再設(shè)置按鈕布局為水平，按鈕間距 為10。用命令按鈕組快捷菜單的“編輯”命令進入各按鈕的編輯狀態(tài)，選中全部的按鈕設(shè)置它們的字體為 適當(dāng)大小。鬆目及客亙亙I亙1 Window s95是個O

35、4A 用程序B操作系繚C、數(shù)據(jù)庫管理系統(tǒng)叭文字處理軟件請選擇：首記錄工上一JS1I下一題H 末記錄E11. 設(shè)計一個統(tǒng)計車票總金額的表單，要求是：在給出的各種車票中選擇你需要的，按“計算總額”命令按 鈕，將所需要的車票總金額計算出來并顯示在指定的文本框中。步驟新建表單，放入 2個標(biāo)簽、3個復(fù)選框、2個命令按鈕、1個文本框。 在屬性窗口設(shè)置屬性：標(biāo)簽、復(fù)選框、命令按鈕及表單的Caption屬性，設(shè)置“計算總額”命令按鈕為默認按鈕，即Default為.。設(shè)置文本框 Textl的只讀屬性 Read On ly為.，選中所有對象,設(shè)置字體為適當(dāng)?shù)拇笮　?兒右 Command1 （計算總額）的 Click事件S=0&為放總額的變量賦初值0IF Thi