計(jì)算機(jī)VB簡(jiǎn)單編程題目實(shí)訓(xùn)十

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