過(guò)程和自定義函數(shù)

過(guò)程與自定義函數(shù)自定義函數(shù)定義及調(diào)用方法一、數(shù)組變量用來(lái)存儲(chǔ)一批同類型的數(shù)據(jù)。一維數(shù)組：

Dim數(shù)組名(A1ToA2)

As元素類型如：DimScore(1To50)AsIntegerDimscore（50）asinteger在VB中，要定義一個(gè)一維數(shù)組a，用于存儲(chǔ)100個(gè)整數(shù)型數(shù)值，則正確的數(shù)組定義語(yǔ)句是

（A）Dima100AsInteger（B）Dima(1-100)AsInteger

（C）Dima(1，100)AsInteger（D）Dima(1To100)AsInteger下標(biāo)的下界下標(biāo)的上界Score(1)Score(2)Score(3)Score(4)Score(5)……Score(50)二、二維數(shù)組二維數(shù)組：用來(lái)存儲(chǔ)一個(gè)二維表格的數(shù)據(jù)

Dim數(shù)組名(A1ToA2,B1ToB2)

As元素類型如：DimPrice(1to3,1to5)AsDouble問(wèn)：dimscore（0to3,1to6)asstring有幾個(gè)變量？是什么類型的變量？Price(1,1)Price(1,2)Price(1,3)Price(1,4)Price(1,5)Price(2,1)Price(2,2)Price(2,3)Price(2,4)Price(2,5)Price(3,1)Price(3,2)Price(3,3)Price(3,4)Price(3,5)例證性試題1、在VisualBasic中，語(yǔ)句DimbAsDouble所定義的變量b是

（A）整數(shù)型（B）單精度實(shí)數(shù)型（C）雙精度實(shí)數(shù)型（D）長(zhǎng)整數(shù)型2、在VisualBasic中，語(yǔ)句Dimb(1To5)AsInteger所定義的數(shù)組b的維數(shù)是

（A）1（B）2（C）3（D）43、在VisualBasic中，用變量存儲(chǔ)560位學(xué)生的身高數(shù)據(jù)（如：1.76），下列最合適的變量說(shuō)明是（A）將560個(gè)變量說(shuō)明為整數(shù)型（B）將560個(gè)變量說(shuō)明為單精度實(shí)數(shù)型（C）將一個(gè)元素個(gè)數(shù)為560的一維數(shù)組說(shuō)明為整數(shù)型（D）將一個(gè)元素個(gè)數(shù)為560的一維數(shù)組說(shuō)明為單精度實(shí)數(shù)型數(shù)組應(yīng)用有如下vb程序段：PrivateSubCommand1_Click()Dima(1To3)AsIntegera(1)=1a(2)=a(1)+3a(3)=a(1)+a(2)Printa(3)EndSub執(zhí)行完畢后，屏幕上顯示的是（）A.1B.3C.5D.9出錯(cuò)有如下vb程序段：PrivateSubCommand1_Click()dima(6)asintegera(1)=35a(7)=65Text1.text=a(1)EndSub調(diào)試程序時(shí)，出現(xiàn)如下圖所示錯(cuò)誤，引起此錯(cuò)誤的語(yǔ)句使dima(6)asintegerB.a(1)=35C.a(7)=65D.Text1.text=a(1)出錯(cuò)有如下vb程序段：PrivateSubCommand1_Click()dima(6)asintegera(1)=35a(7)=32768Text1.text=a(1)EndSub調(diào)試程序時(shí)，出現(xiàn)如下圖所示錯(cuò)誤，引起此錯(cuò)誤的語(yǔ)句使dima(6)asintegerB.a(1)=35C.a(7)=65D.Text1.text=a(1)二、過(guò)程與函數(shù)VB應(yīng)用程序是按模塊化方式組成的，程序模塊分為過(guò)程與函數(shù)。過(guò)程：事件處理過(guò)程+通用過(guò)程，可以被重復(fù)調(diào)用。函數(shù)：被重復(fù)調(diào)用，計(jì)算結(jié)果被返回供程序繼續(xù)處理。Function函數(shù)名（參數(shù)表）as類型名

語(yǔ)句塊EndFunctionSub事件處理過(guò)程名（參數(shù)表）

語(yǔ)句塊EndSub事件處理過(guò)程名：對(duì)象名_事件的標(biāo)準(zhǔn)名Text_click,text_Dblclick、text_keypress、text_change函數(shù)名的命名規(guī)則與變量名相同類型名是用來(lái)聲明函數(shù)返回值的類型函數(shù)語(yǔ)句塊中一般有“函數(shù)名=表達(dá)式”的語(yǔ)句，其作用就是確定函數(shù)的返回值Functionf(xasinteger)asbooleanifxmod2=0thenf=trueelsef=falseEndfunction求f（4）的值注意：定義時(shí)語(yǔ)句塊中至少有一個(gè)：函數(shù)名=表達(dá)式

整個(gè)函數(shù)有一個(gè)返回值即該函數(shù)的值

函數(shù)名命名規(guī)則與變量名相同三、函數(shù)調(diào)用舉例要求從某一字符串中刪除指定的字符（假設(shè)所含的英文字母均為小寫(xiě)字母）,并將處理后的字符串重新輸出。程序界面如圖所示，在文本框text_1中輸入原始字符串，在文本框text_2中輸入需要?jiǎng)h除的字符，單擊“刪除此字符”按鈕（command1）后，在文本框text_3)中輸出處理后的結(jié)果。解決此問(wèn)題的算法流程圖如圖所示，相應(yīng)的vb程序如下：DimpAsString,kAsStringPrivateSubCommand1_Click()DimsAsInteger,resultAsString,flagAsBooleanresult=""p=text_1.Textk=Text_2.TextFors=1ToLen(p)flag=f(s)IfNotflagThenresult=result+_______EndIfNexts________EndSubFunctionf(sAsInteger)AsBooleanIfMid(p,s,1)=kThenf=TrueEndFunction函數(shù)調(diào)用實(shí)例函數(shù)調(diào)用實(shí)例值(十進(jìn)制)0123456789101112131415加密字符IlikeCHNP0stcard[2015.10]17.【加試題】某數(shù)據(jù)加密方法描述如下：(1)以字節(jié)為單位進(jìn)行加密處理；(2)將1個(gè)字節(jié)的8位二進(jìn)制數(shù)分割成前4位與后4位兩個(gè)二進(jìn)制數(shù)；(3)分別將上述兩個(gè)4位二進(jìn)制數(shù)轉(zhuǎn)換為十進(jìn)制數(shù)；(4)將每個(gè)十進(jìn)制數(shù)轉(zhuǎn)換為1個(gè)加密字符，對(duì)應(yīng)的“密碼表”如下：小明按照上述方法，設(shè)計(jì)了一個(gè)字符串（僅包含ASCII字符）加密的VB程序，功能如下:單擊“加密”按鈕Commandl,程序依次將文本框Textl中每個(gè)字符的ASCII碼值作為1個(gè)字節(jié)轉(zhuǎn)換為兩個(gè)加密字符，連接這些加密字符，最后在文本框Text2中輸出加密結(jié)果。下表顯示了字符串中一個(gè)字符的加密過(guò)程：程序運(yùn)行效果如第17題圖所示。實(shí)現(xiàn)上述功能的VB程序如下：（1）請(qǐng)?jiān)趧澗€處填入合適代碼。PrivateSubCommand1_Click()DimnAsInteger,sAsString,iAsInteger,ssAsStringDimaAsInteger'存儲(chǔ)加密前字符的ASCII碼Dimb1AsInteger,b2AsInteger'分別存儲(chǔ)分割、轉(zhuǎn)換后的兩個(gè)十進(jìn)制數(shù)s=Text1.Text①Fori=1Tona=Asc(Mid(s,i,1))b1=a\16b2=aMod16ss=ss+Code2Char(b1)+Code2Char(b2)Text2.Text=ssNextiEndSub'十進(jìn)制值轉(zhuǎn)換為加密字符的函數(shù)FunctionCode2Ch