第八章數(shù)組與自定義方法.doc

第七章 數(shù)組與自定義函數(shù)、屬性、方法試驗(yàn)?zāi)康模?、 了解數(shù)組的概念，掌握數(shù)組的定義和使用方法2、 學(xué)習(xí)數(shù)組與數(shù)據(jù)表文件之間傳遞數(shù)據(jù)的若干命令3、 掌握主程序、子程序和過程文件的區(qū)別4、 掌握子程序和過程文件建立和調(diào)用的方法5、 掌握自定義函數(shù)的格式及其調(diào)用方法6、 了解自定義屬性、方法概念、使用方法7、 掌握全局、局部、區(qū)域變量的作用和作用范圍8、 掌握參數(shù)的地址傳遞、數(shù)值傳遞的使用試驗(yàn)內(nèi)容：1 使用表單自定義方法編寫求階乘和求累加和。n=thisform.text1.values=0for i=1 to n s=s+fact(i)endfor?1!+2!+3!+.+alltrim(str(n)+!=+alltrim(str(s)function fact PARAMETER NUMx=1FOR m= 1 TO NUMx=x*mENDFORRETURN xEND FUNCTION2 使用“傳址”方式傳遞參數(shù)，編寫判斷素?cái)?shù)的自定義方法，驗(yàn)證哥德巴赫猜想：一個(gè)不小于6的偶數(shù)可以表示為兩個(gè)素?cái)?shù)之和。在表單中增加一個(gè)判斷素?cái)?shù)的自定義方法Prime(),并編寫其代碼為：Lparameters mf=.T.if m3 for i=3 to SQRT(m) if m%i=0 f=.F. exit endif endforendifreturn f編寫命令按鈕command的事件代碼n=thisform.text1.valueif n%20 or nav p=p+a(+str(n,1)+,+str(m,1)+)=+str(a(n,m),2)+ ENDIF ENDFOR ENDFOR MESSAGEBOX(p,0,大于平均值的元素是) CASE k=2 thisform.activate thisform.label1.caption=平均值= ENDCASE 4使用數(shù)組屬性定義86的矩陣，各元素的值由由計(jì)算機(jī)隨機(jī)產(chǎn)生，求全部元素的平均值，并輸出高于平均值的元素以及它們的行、列號(hào)。5設(shè)有10個(gè)評(píng)委，有計(jì)算機(jī)隨機(jī)產(chǎn)生5.0010.00的數(shù)值代替打分，分別用10個(gè)文本框顯示，去掉一個(gè)最高分、一個(gè)最低分，計(jì)算平均分。dime a(10)for i=1 to 10 a(i)=rand()*5+5endforthisform.text1.value=a(1)thisform.text2.value=a(2)thisform.text3.value=a(3).thisform.text10.value=a(10)6分別編寫一個(gè)函數(shù)和子過程，用來判斷一個(gè)數(shù)是否是水仙花數(shù)。其中：函數(shù)過程返回“是”或“不是，”子過程由消息框顯示判斷結(jié)果。函數(shù)FUNCTION NNPARAMETERS nNumcNum=ALLTRIM(STR(nNum)IF LEN(cNum)3 MESSAGEBOX(數(shù)據(jù)不是三位數(shù)，請重新賦值。) RETURN .F.ENDIF S1=VAL(LEFT(cNum,1)S2=VAL(SUBSTR(cNum,2,1)S3=VAL(RIGHT(cNum,1)IF S1*S1*S1+S2*S2*S2+S3*S3*S3=nNum RETURN .T.ELSE RETURN .F.ENDIFEND FOUNCTION子程序*shuixianhuashu x=1y=1input 請輸入一個(gè)數(shù): to xinput 請輸入水仙花數(shù) to yif x=yMESSAGEBOX(“是”)elseMESSAGEBOX(“否”)endifreturn7分別用函數(shù)、過程和子程序判斷某數(shù)是否是素?cái)?shù)。INPUT輸入一個(gè)數(shù)，判斷是否為素?cái)?shù)TO SSA=0B=SSIF A1 DO WHIL SS/BINT(SS/B) B=B-1 IF B=0 ENDDO ENDIFELSEmessagebox =(輸入大于1的數(shù))EXITENDIFthisform.text1.value= SS是素?cái)?shù)RETURN8分別用函數(shù)、過程和子程序隨機(jī)產(chǎn)生一個(gè)兩位奇數(shù)。9編寫一個(gè)find函數(shù)，能夠查找用戶輸入的數(shù)是否在一個(gè)隨機(jī)數(shù)組中，如在數(shù)組中，則把它的位置顯示出來。例如，a數(shù)組中隨機(jī)產(chǎn)生的5個(gè)數(shù)：3，8，9，5，2。如果用戶輸入9，調(diào)用find函數(shù)后能夠顯示：9在數(shù)組a中，是第3個(gè)數(shù)。dime a(5)for i=1 to 5 a(i)=rand()*5+5endforinput “輸入要查找的數(shù)n” to nb=max(a(1),a(2),a(3),a(4),a(5)for n=1 to b c=find(n) messagebox(allt(str(n)+”在數(shù)組中是第”+all(str(c)+”個(gè)數(shù)”)endforfunction findparameters NUMfor m=1 to NUM提示：中數(shù)：將一個(gè)數(shù)列排序后，若數(shù)列的個(gè)數(shù)為奇數(shù)，則其中數(shù)為數(shù)列中間那個(gè)數(shù)的值，若為偶數(shù)，則其中數(shù)為數(shù)列中間那兩個(gè)數(shù)的平均值。如1，2，3，4，5的中數(shù)為中間的3；1，2，3，4，5，6的中數(shù)為中間3和4兩數(shù)的平均值3.5。10編寫函數(shù)求一元二次方程ax2+bx+c=0的解，分別通過文本框輸入系數(shù)a，b，c，輸出解x12，x2。編寫Command1的 click事件代碼a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value m=b*b-4*a*c N=-B/(2*A) do case case a=0 x=-c/b thisform.label5.caption=該方程不是一元二次方程，只有一個(gè)根x=+alltrim(str(x,6,2) case a0 and m0 x1=N+sqrt(m)/(2*a) x2=N-sqrt(m)/(2*a) thisform.label5.caption=該方程有兩個(gè)不同的實(shí)根x1=+alltrim(str(x1,6,2)+ x2= +alltrim(str(x2,6,2) case a0 and m=0 x=N thisform.label5.caption=該方程有兩個(gè)相同的實(shí)根x=+alltrim(str(x) case a0 and m0 x1=allt(str(n,6,2)+allt(str(sqrt(-m)/(2*A),6,2)+i x2=allt(str(n,6,2)+-+allt(str(sqrt(-m)/(2*A),6,2