單擊此處編輯母版標題樣式,,單擊此處編輯母版文本樣式,,第二級,,第三級,,第四級,,第五級,,,*,第8章 過程 制作：柳淑花,實訓(xùn)十 子 過 程,一、實訓(xùn)目的,,1、掌握通用過程的定義和調(diào)用方法。,,2、了解形參和實參的對應(yīng)關(guān)系及參數(shù)傳遞的方式。,,二、實訓(xùn)內(nèi)容,,1、通用過程,,【實訓(xùn)要求】,,隨機產(chǎn)生兩個數(shù)組并按由小到大的順序排序，,,然后將它們合并到第三個數(shù)組中（合并后的數(shù)組,,仍然有序）。要求：,sx10_1.vbp,下一頁,,（1）編寫一個CreatArr子過程，產(chǎn)生有n個元素的,數(shù)組，其元素是隨機產(chǎn)生的1 到100之間的數(shù)；,,（2）編寫一個Sort子程序，對數(shù)組按遞增次序排列；,,（3）編寫一個Merge子程序，將兩個數(shù)組進行合并；,,（4）編寫一個PrintArr子程序，將數(shù)組顯示在窗體上。,,（5）編寫一個按鈕的Click 事件過程，分別調(diào)用上述過程。,,其運行效果見圖：,上一頁,下一頁,,【實訓(xùn)步驟】,第1步：,啟動VB，打開一個新的標準工程。,,第2步：,在窗體上添加一個命令按鈕Command1。,,第3步：,編寫代碼：,,（1）編寫如下四個過程：,,Option Base 1,‘ 數(shù)組的下標從1開始,,Public Sub creatarr(a%(), n%),‘產(chǎn)生數(shù)組的過程,,Dim i%,,For i = 1 To n,,a(i) = Int(Rnd * 100 + 1),,Next,,End Sub,上一頁,下一頁,,Public Sub Sort(a%(), n%),‘ 排序過程（選擇法遞增排序）,,Dim i%, j%, t%,,For i = 1 To,,imin = i,,For j = i + 1 To n,,If a(j) < a(imin) Then imin = j,,Next,,t = a(i),,,,a(imin) = t,,Next,,End Sub,上一頁,下一頁,,Public Sub PrintArr( a%( ) ),‘ 輸出數(shù)組過程,,Dim i%,,For i = LBound(a) To,,If Then,‘ 每行輸出10個數(shù),,Print a(i),,Else,,Print a(i);,,End If,,Next,,Print,,End Sub,,,上一頁,下一頁,,Public Sub Merge(a%(), b%(), c%() ),‘ 合并數(shù)組過程,,Dim ia%, ib%, ic%, ina%, inb%, inc%,,ina = UBound(a),‘ 數(shù)組a 的元素個數(shù),,inb = UBound(b),‘ 數(shù)組b 的元素個數(shù),,inc = ina + inb,‘ 合并后的數(shù)組的元素個數(shù),,ia = 1: ib = 1: ic = 1,,Do While ia <= ina And ib <= inb,'當(dāng)兩個數(shù)組沒有都讀完,,If a(ia) < b(ib) Then,,c(ic) = a(ia): ia = ia + 1,,Else,,,,End If,,,,Loop,,,上一頁,下一頁,,Do While ia <= ina,‘ 如果數(shù)組 a 沒有讀完,,,,ic = ic + 1,,Loop,,Do While ib <= inb,‘ 如果數(shù)組 b 沒有讀完,,,,ic = ic + 1,,Loop,,End Sub,,上一頁,下一頁,,Private Sub Command1_Click( ),,Cls,,Dim aa%(10), bb%(8), cc%(18),,Call creatarr(aa(), 10),,Sort aa(), 10,,Print,,Print "打印aa數(shù)組",,,,Call creatarr(bb(), 8),,,,Print,,,,,運行程序，單擊按鈕即可顯示如上圖所示的結(jié)果,Print "打印bb數(shù)組",,,,Merge aa(), bb(), cc(),,Print,,Print "打印cc數(shù)組",,,,End Sub,,上一頁,下一頁,,【實訓(xùn)要求】,編寫一子過程 MoveStr( ),,,Public Sub MoveStr(a$(),m%,Tag As Boolean）,,,其功能是把字符數(shù)組移動m個位置，當(dāng)Tag 為 True時左移，將前m個字符移到字符數(shù)組尾，例如：“abcdefghij”左移3個位置后，結(jié)果為“defghijabc”；當(dāng)Tag 為 False時右移，將后m個字符移到字符數(shù)組前，例如：“abcdefghij”,,右移3個位置后，結(jié)果為,,“hijabcdefg”。,,試編寫一主調(diào)程序調(diào)用之。,2、做一做,sx10_2.vbp,上一頁,下一頁,,【實訓(xùn)要求】,從數(shù)組a 中刪除數(shù)組 b 中已有的數(shù)后形成新的數(shù)組 x。,,要求：,單擊窗體自動產(chǎn)生數(shù)組a和數(shù)組 b（隨機產(chǎn)生40 — 70之間的整數(shù)）；,,單擊“刪除”按鈕，刪除相同的元素，并將剩余元素打印出來。結(jié)果如圖：,,sx10_3.vbp,3、做一做,上一頁,下一頁,,【實訓(xùn)要求】,編寫一個子程序DeleStr(s1,s2)，將字符串s1中出現(xiàn)的s2 子字符串刪去，結(jié)果還是存放在s1中。,,界面如圖：,,sx10_4.vbp,4、做一做,上一頁,下一頁,,【實驗要求】,統(tǒng)計輸入的文章中的單詞數(shù)，并將出現(xiàn)的定冠詞The 全部去除，同時統(tǒng)計刪除的定冠詞個數(shù)。（假定單詞間以一個空格分隔）,,與數(shù)組有關(guān)的函數(shù)：,,Array LBound UBound,,,Split函數(shù)：,從一個字符串中，,,以某個指定的符號為分隔符，,,分離若干個子字符串，建立一個下標從0開始的一維數(shù)組。,格式：,Split([,]),,Filter函數(shù)：,去處定冠詞 Filter(a, “ The ”,False),,,Join函數(shù)：,合并字符數(shù)組 Join(字符數(shù)組),5、做一做,sx10_5.vbp,上一頁,下一頁,,【實訓(xùn)要求】,,通過調(diào)用過程，顯示如圖所示的結(jié)果：,,【實訓(xùn)步驟】,,第1步：,啟動VB，打開一個,,新的標準工程。,,第2步：,在窗體上添加二個,,命令按鈕Command1 和Command1 。,,第3步：,編寫代碼：,,（1）編寫如下二個Sub 過程：,6、用不同的參數(shù)傳遞方式調(diào)用過程,上一頁,下一頁,,Sub tryout1(,ByVal x as integer, ByVal y as integer,),,x=x+100,,y=y*6,,print “x=“ ; x，”y=“ ; y,,End Sub,,,Sub tryout2(,x as integer, y as integer,),,x=x+100,,y=y*6,,print “x=“ ; x，”y=“ ; y,,End Sub,上一頁,下一頁,,（2）編寫命令按鈕的事件如下：,,Private Sub,Command1_Click(),,Dim a%, b%,,Print,,Print "傳值調(diào)用：",,a = 10: b = 20,,,,Print "a="; a, "b="; b,,End Sub,Private Sub,Command2_Click(),,Dim a%, b%,,Print,,Print "傳址調(diào)用：",,a = 10: b = 20,,,,Print "a="; a, "b="; b,,End Sub,本實驗主要用來說明傳值調(diào)用與傳址調(diào)用的區(qū)別。傳值調(diào)用只是把實參值的拷貝傳遞給形參，本身沒有任何變化，調(diào)用前與調(diào)用后的值相同。而傳址調(diào)用傳送的是使參的地址，調(diào)用過程后實參的值也隨之變化。,上一頁,,