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

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

Dim數(shù)組名(A1ToA2)

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

（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ù)組：用來存儲一個二維表格的數(shù)據(jù)

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

As元素類型如：DimPrice(1to3,1to5)AsDouble問：dimscore（0to3,1to6)asstring有幾個變量？是什么類型的變量？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中，語句DimbAsDouble所定義的變量b是

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

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

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

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

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

函數(shù)名命名規(guī)則與變量名相同三、函數(shù)調(diào)用舉例要求從某一字符串中刪除指定的字符（假設(shè)所含的英文字母均為小寫字母）,并將處理后的字符串重新輸出。程序界面如圖所示，在文本框text_1中輸入原始字符串，在文本框text_2中輸入需要刪除的字符，單擊“刪除此字符”按鈕（command1）后，在文本框text_3)中輸出處理后的結(jié)果。解決此問題的算法流程圖如圖所示，相應(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個字節(jié)的8位二進(jìn)制數(shù)分割成前4位與后4位兩個二進(jìn)制數(shù)；(3)分別將上述兩個4位二進(jìn)制數(shù)轉(zhuǎn)換為十進(jìn)制數(shù)；(4)將每個十進(jìn)制數(shù)轉(zhuǎn)換為1個加密字符，對應(yīng)的“密碼表”如下：小明按照上述方法，設(shè)計了一個字符串（僅包含ASCII字符）加密的VB程序，功能如下:單擊“加密”按鈕Commandl,程序依次將文本框Textl中每個字符的ASCII碼值作為1個字節(jié)轉(zhuǎn)換為兩個加密字符，連接這些加密字符，最后在文本框Text2中輸出加密結(jié)果。下表顯示了字符串中一個字符的加密過程：程序運(yùn)行效果如第17題圖所示。實(shí)現(xiàn)上述功能的VB程序如下：（1）請在劃線處填入合適代碼。PrivateSubCommand1_Click()DimnAsInteger,sAsString,iAsInteger,ssAsStringDimaAsInteger'存儲加密前字符的ASCII碼Dimb1AsInteger,b2AsInteger'分別存儲分割、轉(zhuǎn)換后的兩個十進(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