[計算機]實驗一程序流程設(shè)計ppt課件

1、實驗一實驗一 程序流程設(shè)計程序流程設(shè)計1、理解大小寫轉(zhuǎn)換函數(shù)。在文本框中輸入文本串，按、理解大小寫轉(zhuǎn)換函數(shù)。在文本框中輸入文本串，按“轉(zhuǎn)大寫轉(zhuǎn)大寫”按鈕，文本中的英文字母變?yōu)榇髮?，按按鈕，文本中的英文字母變?yōu)榇髮?，按“轉(zhuǎn)小寫轉(zhuǎn)小寫”按鈕，文本中的英文字母變?yōu)樾?，如圖按鈕，文本中的英文字母變?yōu)樾懀鐖D所示。所示。 設(shè)計代碼設(shè)計代碼方法一：方法一： 首先設(shè)計文本框的首先設(shè)計文本框的InteractiveChange事件代碼，事件代碼，使得輸入的字符存入表單的使得輸入的字符存入表單的Tag屬性屬性(用來存儲用來存儲程序所需的任何額外數(shù)據(jù)程序所需的任何額外數(shù)據(jù))中：中： thisform.tag=

2、this.value 編寫編寫“大寫大寫”按鈕按鈕Command1的的Click事件代碼：事件代碼： thisform.text1.value=upper(thisform.tag) 編寫編寫“小寫小寫”按鈕按鈕Command2的的Click事件代碼：事件代碼： thisform.text1.value=lower(thisform.tag) 編寫編寫“復(fù)原復(fù)原”按鈕按鈕Command2的的Click事件代碼：事件代碼： thisform.text1.value=thisform.tag方法二：方法二： 首先在表單的首先在表單的load事件代碼中聲明一個全局變量事件代碼中聲明一個全局變量a：

3、Public a 設(shè)計文本框的設(shè)計文本框的InteractiveChange事件代碼，事件代碼，使得使得輸入的字符存入表單的輸入的字符存入表單的Tag屬性屬性(用來存儲程序所用來存儲程序所需的任何額外數(shù)據(jù)需的任何額外數(shù)據(jù))中：中： a=this.value 編寫編寫“大寫大寫”按鈕按鈕Command1的的Click事件代碼：事件代碼： thisform.text1.value=upper(a) 編寫編寫“小寫小寫”按鈕按鈕Command2的的Click事件代碼：事件代碼： thisform.text1.value=lower(a) 編寫編寫“復(fù)原復(fù)原”按鈕按鈕Command2的的Click事件

4、代碼：事件代碼： thisform.text1.value=a2、輸入、輸入3個個 不同的數(shù)，將他們從大到小排序。不同的數(shù)，將他們從大到小排序。 分析：分析： 先將先將a與與b比較，把較大者放入比較，把較大者放入a中，小者放入中，小者放入b中；再將中；再將a與與c比較，把較大者放入比較，把較大者放入a中，小者放入中，小者放入c中，此時中，此時a為為三者中的最大者；最后將三者中的最大者；最后將b與與c比較，把較大者放入比較，把較大者放入b中，中，小者放入小者放入c中，此時中，此時a、b、c已由大到小順序排列；已由大到小順序排列； 流程圖如下：流程圖如下：輸入輸入a,b,c 給出三個數(shù)給出三個數(shù)a

5、,b,c如果如果ba真真交換交換a,b如果如果ca真真交換交換a,c如果如果cb真真交換交換b,c輸出輸出a,b,c 輸出交換后的輸出交換后的a,b,c對象對象屬性屬性屬性值屬性值說明說明Command1Caption排序排序按鈕標簽按鈕標簽label1Caption請輸入請輸入3個數(shù)個數(shù)Label2label4CaptionText1 Text3Value0InputMask9999 編寫編寫Command1的的Click事件代碼：事件代碼：a=thisform.text1.valueb=thisform.text2.valuec=thisform.text3.value IF ba d=a

6、a=bb=d ENDIF IF ca d=aa=cc=d ENDIF IF cb d=b b=c c=d ENDIF thisform.label2.caption=STR(a,4) thisform.label3.caption=STR(b,4) thisform.label4.caption=STR(c,4)3、設(shè)計個人納稅計算程序。、設(shè)計個人納稅計算程序?！岸惙ǘ惙ā币?guī)定，工資、規(guī)定，工資、薪金所得，使用超額累進稅率。以每月收入額減薪金所得，使用超額累進稅率。以每月收入額減去去800元后的余額，為應(yīng)納稅所得額。其稅率表見元后的余額，為應(yīng)納稅所得額。其稅率表見表表5-3。輸入輸入n 輸入當

7、月收入輸入當月收入nn-800 輸入應(yīng)納稅所得額輸入應(yīng)納稅所得額S1=500*0.05S2=2000*0.1+ s1S3=5000*0.15+ S2S4=20000*0.2+ S3S5=40000*0.25+ S4S6=60000*0.3+ S5S7=80000*0.35+ S6S8=100000*0.4+ S7情形情形n=500s n*0.05n=2000s (n-500)*0.1+s1n=5000s (n-2000)*0.15+s2n=20000s (n-5000)*0.2+s3n=40000s (n-20000)*0.25+s4n=60000s (n-40000)*0.3+s5n=800

8、00s (n-60000)*0.35+s6n100000s (n-100000)*0.45+s8 Text1的的KeyPress事件代碼事件代碼: LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode=13 n=val(this.value) IF n800 MESSAGEBOX(不超過不超過800元，不必納稅！元，不必納稅！) ELSE S1=500*0.05 S2=2000*0.15 S3=5000*0.2 S4=20000*0.25 S5=40000*0.3 S6=60000*0.35 S7=80000*0.4 S8=100000*0.45 n=

9、n-800 DO CASE CASE n=500 s=n*0.05 CASE n=2000 s =(n-500)*0.1+s1 CASE n=5000 s =(n-2000)*0.15+s2 CASE n=20000 s =(n-5000)*0.2+s3 CASE n=40000 s =(n-20000)*0.25+s4 CASE n=60000 s =(n-40000)*0.3+s5 CASE n=80000 s =(n-60000)*0.35+s6 CASE n=100000 s =(n-80000)*0.4+s7 OTHERWISE s =(n-100000)*0.45+s8 ENDCA

10、SE thisform.label2.caption=共計納稅：共計納稅：+STR(round(s,2),8,2)+元元 this.SelStart=0 this.SelLength=LEN(this.value) ENDIF ENDIF4、“完備數(shù)完備數(shù)”是指一個數(shù)恰好等于它的因子之和，如是指一個數(shù)恰好等于它的因子之和，如6的因子為的因子為1、2、3，而，而6=1+2+3，因而，因而6就是完備數(shù)。就是完備數(shù)。編制程序，找出編制程序，找出11000之間的全部之間的全部“完備數(shù)完備數(shù)”。 分析：依題意可知，要想知道一個自然數(shù)是否為完分析：依題意可知，要想知道一個自然數(shù)是否為完備數(shù)，首先必須找除其

11、所有因數(shù)。從備數(shù)，首先必須找除其所有因數(shù)。從2開始到這個數(shù)開始到這個數(shù)的最打因數(shù)為止（偶數(shù)不大于其值的二分之一，奇的最打因數(shù)為止（偶數(shù)不大于其值的二分之一，奇數(shù)不大于其值的三分之一），進行整除判斷，凡是數(shù)不大于其值的三分之一），進行整除判斷，凡是可以被整除的數(shù)均為這個數(shù)的因數(shù)。由此，可畫出可以被整除的數(shù)均為這個數(shù)的因數(shù)。由此，可畫出其流程圖。其流程圖。n從1到100如果n為偶數(shù)真tn/2假tn/3a 2，s 1a =t如果a是n的因子真s s+aa a +1如果s=n真輸出n 編寫Command1的Click事件代碼：thisform.container1.list1.clearfor n=1

12、to 1000 t=iif(n%2=0,n/2,n/3) a=2 s=1 do while a=t if n%a=0 s=s+a endif a=a+1 enddo if s=n thisform.container1.list1.additem(str(n,6) endifendfor 編寫Command2的Click事件代碼： release thisform5、輸出99乘法表，格式如下圖： 1、 利用雙重循環(huán)分別處理行、列的輸出。對象對象屬性屬性屬性值屬性值說明說明List1ColumnCount10列對象的數(shù)目列對象的數(shù)目ColumnLines.F. 假假列間的分割線列間的分割線Col

13、umnWidths40,30,30,30,30,30,30,30,30,30各列的寬度各列的寬度 編寫Command1的Click事件代碼：Thisform.list1.clearThisform.list1.addlistitem(“*”,1, 1)for k=1 to 9 Thisform.list1.addlistitem(str(k,3),1,k+1)endforfor n=1 to 9 Thisform.list1.addlistitem(str(n,3),n+1, 1) for k=1 to n Thisform.list1.addlistitem(str(k*n,3),n+1,

14、k+1) endforEndfor 編寫Command2的Click事件代碼： release thisform 6、小學生做加減法的算術(shù)練習程序。計算機連續(xù)地隨機給出兩位數(shù)的加減法算術(shù)題，要求學生回答，答對的打“”，答錯的打“”。將做過的題目存放在列表框中備查，并隨時給出答題的正確率。 分析：隨機函數(shù)RAND()返回一個（0，1）之間的隨機小數(shù)，為了生成某個范圍內(nèi)的隨機整數(shù)，可以使用以下公式：Int(最大值-最小值+1)* RAND()+最小值) 其中最大值和最小值為指定范圍中的最大、最小數(shù)。 給出部分由窗體的激活（activate）事件代碼完成：a=int(10+90*rand()b=in

15、t(10+90*rand()p=int(2*rand()do case case p=0 this.text1.value=str(a,3)+str(b,3)+= this.text1.tag=str(a+b) &將本題答案放入text1.tag中 case p=1 if ab t=a a=b b=t endif this.text1.value=str(a,3)+-+str(b,3)+= this.text1.tag=str(a-b) &將本題答案放入text1.tag中endcasen=val(this.tag)this.tag=str(n+1)this.text2.setfocusthi

16、s.text2.value= 編寫Command1的Click事件代碼：if val(thisform.text2.value)=val(thisform.text1.tag) item=allt(thisform.text1.text)+thisform.text2.text+ k=val(thisform.list1.tag) thisform.list1.tag=str(k+1)else item=allt(thisform.text1.text)+thisform.text2.text+endifthisform.list1.additem(item,1) &將題目和答案放入列表框中的

17、第一項x=vAL(thisform.list1.tag)/val(thisform.tag)p=正確率為：+chr(13)+str(x*100,5,2)+%thisform.label1.caption=共+allt(thisform.tag)+題，+pthisform.activate() &調(diào)用出題代碼7、使用命令按鈕組設(shè)計簡易計算器程序。如圖所示。、使用命令按鈕組設(shè)計簡易計算器程序。如圖所示。 編寫commandgroup1的click事件代碼：if thisform.tag=T thisform.text1.value=allt(right(str(this.value),1) thi

18、sform.tag=else a=thisform.text1.value thisform.text1.value=a+allt(right(str(this.value),1)endif 編寫“.”按鈕command11的click事件代碼： a=thisform.text1.value thisform.text1.value=a+. 編寫“=”按鈕command12的click事件代碼： a=thisform.text1.value thisform.text1.value=allt(str(&a) thisform.tag=T 編寫“+”按鈕command12的click事件代碼： a=thisform.text1.value thisform.text1.v