第5章VB程序設(shè)計1

編制電視歌手大賽評分程序，要求評委人數(shù)和每位評委的打分從鍵盤輸入，去掉一個最高分，再去掉一個最低分，求評委給出的最后得分。思考與回顧第5章VB編程1—數(shù)組應(yīng)用

（P48,P81~90)任務(wù)1(P81-例5-1)隨機產(chǎn)生50個兩位的整數(shù)作為一個班學(xué)生的考試成績，求平均分，最高分、最低分。問題分析1、隨機數(shù)的產(chǎn)生2、每個隨機數(shù)的顯示-------圖片框3、結(jié)果的顯示-----文本框4、關(guān)鍵算法：最高分，最低分，平均分新知識點----圖片框、圖像框圖片框圖像框圖片框主要屬性Name：名稱Picture：顯示圖片和圖像。Autosize屬性:決定圖片框是否自動適應(yīng)圖片的大小true：圖片框自動調(diào)整大小適應(yīng)圖片。false：圖片框不能自動調(diào)整大小，加載的圖形保持其原始尺寸。圖像框的主要屬性Name：名稱Picture：顯示圖片和圖象。Strech屬性：決定圖片是否自動適應(yīng)控件的大小true：被加載圖形自動調(diào)整大小適應(yīng)圖像框的大小。false：圖像框自動調(diào)整大小適應(yīng)加載的圖形。圖片設(shè)置的方法----picture屬性1、設(shè)計階段設(shè)置----利用屬性窗口2、在程序執(zhí)行過程中加載。-----------loadpicture()例如：P1.Picture=LoadPicture(“圖片所在的位置及文件名”)

P1.Picture＝LoadPicture(″D：\Pic1.jpg″)p1.picture=loadpicture(“”)思考在窗體Form1上畫一個圖片框，名稱為P1，高為1900，寬為2400。請編寫適當?shù)氖录^程，使得在運行時，如果單擊窗體，則裝入D盤下的文件名為Pic1.bmp的圖片；如果雙擊窗體，則圖片框中的圖片消失。兩個控件的主要區(qū)別①圖片框可以作為其它控件的容器②圖片框可以通過Print方法顯示文本如：圖片框名稱.print表達式③圖像框比圖片框占用內(nèi)存少，顯示速度快思考與回顧思考主要代碼DimiAsIntegerPicture1.ClsFori=1To7Picture1.PrintString(2*i-1,"*")Next應(yīng)用Fibonacci數(shù)列定義如下：

F1=1

F2=1

Fn=Fn-1+Fn-2(n>2)

求Fibonacci數(shù)列的前30項。

要求：數(shù)列中的每個數(shù)顯示在圖片框中，且每行顯示5個數(shù)字。Dimf1&,f2&,f3&,i%f1=1f2=1Picture1.Printf1;f2;Fori=3To30f3=f1+f2Picture1.Printf3;IfiMod5=0ThenPicture1.PrintEndIff1=f2f2=f3Next應(yīng)用隨機產(chǎn)生50個兩位的整數(shù)作為一個班學(xué)生的考試成績，求平均分，最高分、最低分。（P82)要求：（1）利用圖片框顯示學(xué)生的成績，每行10個。（2）利用文本框顯示平均分，最高分，最低分任務(wù)1知識點小結(jié)1、隨機數(shù)的產(chǎn)生2、圖片框和圖像框的使用3、如何利用圖片框輸出文本信息4、最大數(shù)和最小數(shù)算法的求解。在若干個數(shù)中求最大值，一般先假設(shè)一個較小的數(shù)為最大值的初值，若無法估計較小的值，則取第一個數(shù)為最大值的初值；然后將每一個數(shù)與最大值比較，若該數(shù)大于最大值，將該數(shù)替換為最大值；依次逐一比較。任務(wù)2[例5-3]隨機產(chǎn)生50個兩位整數(shù)作為一個班某門課程的成績，然后求該門課程的平均分并統(tǒng)計高于平均分的人數(shù)。

對比：隨機產(chǎn)生50個兩位的整數(shù)作為一個班學(xué)生的考試成績，求平均分，最高分、最低分。數(shù)組的基本概念（P48)一維數(shù)組應(yīng)用新知識點-----數(shù)組數(shù)組的基本概念1、數(shù)組的定義：數(shù)組是由一定數(shù)目的同類元素按一定順序排列而成的結(jié)構(gòu)數(shù)據(jù)類型，是一組具有同一名字（數(shù)組名）、不同下標的下標變量（數(shù)組元素）的集合例1：一個班60名學(xué)生的成績組成一個數(shù)組G，每個學(xué)生的成績分別表示為：G(1),G(2),G(3),…,G(i),…,G(60)例2：某廠5個車間全年各季度的產(chǎn)量組成數(shù)組P，每個車間每季度的產(chǎn)量分別表示為：P(1,1),P(1,2),P(1,3),P(1,4)P(2,1),P(2,2),P(2,3),P(2,4)P(3,1),P(3,2),P(3,3),P(3,4)P(4,1),P(4,2),P(4,3),P(4,4)P(5,1),P(5,2),P(5,3),P(5,4)2、數(shù)組的分類：VisualBasic中的數(shù)組，按不同的方式可分為以下幾類：按數(shù)組的大小（元素個數(shù)）是否可以改變來分為：定長數(shù)組(靜態(tài)數(shù)組）、動態(tài)（可變長）數(shù)組。按元素的數(shù)據(jù)類型可分為：數(shù)值型數(shù)組、字符串數(shù)組、日期型數(shù)組、變體數(shù)組等。按數(shù)組的維數(shù)可分為：一維數(shù)組、二維數(shù)組、多維數(shù)組。對象數(shù)組：菜單對象數(shù)組、控件數(shù)組。3、數(shù)組的基本要素(1)數(shù)組名：數(shù)組和變量一樣，也用符號名來命名。(2)數(shù)組的類型：數(shù)組的類型由數(shù)組元素的類型來決定。(3)數(shù)組的維數(shù)：數(shù)組的維數(shù)即為了區(qū)分數(shù)組元素所需順序號的個數(shù)。(4)數(shù)組的大?。簲?shù)組的大小即數(shù)組中包含數(shù)組元素的個數(shù)，由數(shù)組每維下標的上界和下界來決定。一維數(shù)組基礎(chǔ)知識1、數(shù)組聲明定義格式案例方法1：Dim數(shù)組名（[下界to]上界）as類型方法2：Dim數(shù)組名[類型符]([下界to]上界)Dima(1to10)asintegerDima%(1to10)說明：缺省下界，默認下標從0開始缺省類型，為變體類型通用模塊定義：Optionbase0|1數(shù)組元素個數(shù)：上界-下界+12、數(shù)組結(jié)構(gòu)邏輯結(jié)構(gòu)：線性表存儲結(jié)構(gòu)：線性表數(shù)組中各元素在內(nèi)存占一片連續(xù)的存儲空間，一維數(shù)組在內(nèi)存中存放的順序是下標大小的順序。例如Dimmark(1To100)AsInteger思考與應(yīng)用1、輸入50個學(xué)生的一門課程的成績，然后求其平均分并統(tǒng)計高于平均分的人數(shù)。用數(shù)組來存放這50個數(shù)，則數(shù)組應(yīng)如何定義？2、輸入10個學(xué)生的總分，求每個學(xué)生的名次。3、一維數(shù)組元素的引用使用形式：數(shù)組名(下標)

其中：下標可以是整型變量、常量或表達式。例如：設(shè)有下面的數(shù)組定義：DimB(10)AsInteger，A(10)AsInteger則下面的語句都是正確的。A(1)=A(2)+B(1)+5'取數(shù)組元素運算A(i)=B(i)'下標使用變量B(i+1)=A(i+2)'下標使用表達式一維數(shù)組基本操作基本操作方法案例數(shù)組元素值的確定利用賦值語句利用輸入函數(shù)利用array函數(shù)A(1)=5A(1)=val(inputbox(“請輸入數(shù)據(jù)”))DimbB=array(2,3,4,5)數(shù)組元素輸出利用窗體輸出利用文本框輸出利用圖片框輸出Printa(1)Text1.text=a(1)Picture1.printa(1)說明：如果要輸入或輸出整個數(shù)組所有元素，一般配合一重循環(huán)結(jié)構(gòu)使用Dima(1to10)asinteger,IasintegerForI=1to10a(I)=2*INextForI=1to10a(I)=val(inputbox(“請輸入”+str(I)+”數(shù)據(jù)“))Next在窗體中輸出數(shù)組每個元素：fori=1To10Printa(i);Nexti在文本框中輸出數(shù)組每個元素：Fori=1To10Text1.Text=Text1.Text+","+Str(a(i))Next在圖片框中輸出數(shù)組每個元素Fori=1To10Picture1.Printa(i);Next

編程求輸入50個學(xué)生的一門課程的成績，然后求其平均分并統(tǒng)計高于平均分的人數(shù)。應(yīng)用（p83-例5-3）OptionBase1PrivateSubCommand1_Click()Dimi%,avg!,sum!,a(50)AsSingleDimcount%count=0sum=0Fori=1To50a(i)=InputBox("請輸入第"+Str(i))Text3.Text=Text3+Space(2)+Str(a(i))sum=sum+a(i)Nextiavg=sum/50Fori=1To50Ifa(i)>avgThencount=count+1EndIfNextiText1.Text=avgText2.Text=countEndSub回顧與應(yīng)用請定義一個包含10個元素的一維數(shù)組，按照賦值a(I)=2*I的規(guī)律給各元素賦值，計算輸出數(shù)組的平均值。隨機產(chǎn)生10個[50,100]的整數(shù)，求其和。數(shù)組計數(shù)器。輸入10名學(xué)生一門課程的考試成績，統(tǒng)計各分數(shù)段的人數(shù)。分數(shù)段劃分如下：優(yōu)：[95,100]良:[80,95)中:[70,80)及格:[60,69)不及格:<60問題1求一組數(shù)（假設(shè)10個）中最大數(shù)及最大數(shù)所在的位置。DimMaxAsInteger,iMaxAsInteger Max=A(1)：iMax=1Fori=2To10IfA(i)>MaxThen Max=A(i) iMax=iEndIfNextI問題2將一個數(shù)組的元素按逆序重新存放。思考從鍵盤輸入10個數(shù)，要求按輸入時的逆序輸出。關(guān)鍵代碼：Fori=1To10\2t=A(i)A(i)=A(10-i+1)A(10-i+1)=tNextI問題3在有序數(shù)組a(1ton)(原有n-1個元素)插入一個值Key元素.算法:查找要插入的位置k（1<=k<=n-1）騰出位置,把最后一個元素開始到第K個元素往后移動一個位置第k個元素的位置騰出，就可將數(shù)據(jù)Key插入在有序的一組數(shù)中，插入一個數(shù)后，仍保持有序。思考有一個已排好序的數(shù)組，再輸入一個數(shù)，要求按原來排序的規(guī)律將它插入數(shù)組中。Dima(1To11)AsIntegerDimi%,x%'從小到大的一組數(shù)據(jù)Fori=1To10a(i)=Val(InputBox("請輸入"+Str(i)+"個數(shù)據(jù)"))Nextx=Val(InputBox("請輸入要插入的數(shù)據(jù)"))Fori=1To10If(x<a(i))ThenExitFor‘查找位置NextForj=10ToiStep–1‘挪動數(shù)據(jù)a(j+1)=a(j)Nexta(i)=x‘插入數(shù)據(jù)Fori=1To11Printa(i)Next問題4算法：A、確定位置（查找）B、挪動位置刪除一個數(shù)（假定不存在重復(fù)的數(shù)據(jù)或刪除找到的第一個數(shù)）Dimb(1To10)AsInteger,x%Fori=1To10b(i)=Val(InputBox("請輸入數(shù)據(jù)"))Nextx=Val(InputBox("請輸入要刪除的數(shù)據(jù)"))Fori=1To10If(x=b(i))ThenExitFor‘查找是否有要刪除的數(shù)據(jù)及位置“NextForj=i+1To10‘挪動位置b(j-1)=b(j)NextFori=1To9‘輸出Printb(i);Next任務(wù)2：知識點小結(jié)一維數(shù)組的定義一維數(shù)組的元素的引用數(shù)組的輸入與輸出數(shù)組的簡單應(yīng)用求最大值、最小值及平均值按逆序重新存放數(shù)據(jù)在一組有序的數(shù)組中，插入一個數(shù)。刪除一個數(shù)綜合應(yīng)用1、用數(shù)組保存隨機產(chǎn)生的10個介于20~50之間的整數(shù)，求其中的最大數(shù)、最小數(shù)和平均值，然后將10個隨機數(shù)和最大數(shù)以及平均值顯示在窗體上。2、用數(shù)組求F數(shù)列的前20項，并按照每行5個打印在圖片框控件中。任務(wù)3----數(shù)據(jù)排序?qū)崿F(xiàn)一組數(shù)據(jù)從小到大排序?qū)崿F(xiàn)一組數(shù)據(jù)從大到小排序排序的實現(xiàn)----兩個常用算法（1）選擇法排序（2）冒泡法排序思想：1）假設(shè)某個位置的數(shù)是最大/小的。2）驗證是否是最大/小的3）驗證過程中標記最大/小數(shù)的位置4）交換選擇法排序問題與思考問題1：利用選擇法求10個數(shù)中的最大數(shù)，并把找出的最大數(shù)放到數(shù)組中的第一個數(shù)的位置。問題2：將10個數(shù)從大到小排列后輸出思考：把一組數(shù)從大到小排序Fori=1Ton-1p=iForj=i+1TonIfa(j)>a(p)Thenp=jNextjtemp=a(i)a(i)=a(p)a(p)=tempNexti選擇法排序（降序）的VB程序：思想：兩兩比較，（數(shù)組中相鄰的兩個數(shù)進行比較）大數(shù)放在后面，小數(shù)放在前面。冒泡法排序問題與應(yīng)用1）利用冒泡法求10個數(shù)中的最大數(shù)。給出10個數(shù)找出最大數(shù)輸出最大數(shù)2）利用冒泡法把10個數(shù)從小到大排序Fori=1Ton-1Forj=1Ton-iIfa(j)>a(j+1)Thentemp=a(j)a(j)=a(j+1)a(j+1)=tempEndifNextjNexti冒泡法排序（升序）的VB程序：思考PrivateSubCommand1_Click()Dimi%,j%,t%,p%Text2.Text=""Fori=1To9p=iForj=i+1To10Ifa(j)<a(p)Thenp=jNextjIfp<>iThent=a(p)a(p)=a(i)a(i)=tEndIfNextiFori=1To10Text2.Text=Text2+Space(2)+Str(a(i))Nexti

EndSubPrivateSubCommand2_Click()EndEndSubPrivateSubCommand3_Click()Dimi%,j%,t%Text2.Text=""Fori=1To9Forj=1To10-iIfa(j)>a(j+1)Thent=a(j)a(j)=a(j+1)a(j+1)=tEndIfNextjNextiFori=1To10Text2.Text=Text2+Space(2)+Str(a(i))NextiEndSubPrivateSubCommand4_Click()Dimi%Text1.Text=""Text2.Text=""Fori=1To10a(i)=InputBox("請輸入第"+Str(i)+"個數(shù)據(jù)")Text1.Text=Text1+Space(2)+Str(a(i))NextiEndSub用隨機函數(shù)產(chǎn)生50個[10，100]的隨機整數(shù)，并按照由小到大的順序打印出來。程序界面如下：應(yīng)用OptionBase1Dima(50)AsIntegerPrivateSubCommand1_Click()Dimi%RandomizeText1.Text="排序前的數(shù)據(jù)"+vbCrLfFori=1To50a(i)=Int(91*Rnd+10)Text1.Text=Text1.Text+""+Str(a(i))NextEndSubPrivateSubCommand2_Click()Dimi%,j%Fori=1To49Forj=1To50-iIf(a(j)>a(j+1))Thent=a(j):a(j)=a(j+1):a(j+1)=tEndIfNextjNextiText1.Text=Text1.Text+vbCrLfText1.Text=Text1.Text+"排序后的結(jié)果"+vbCrLfFori=1To50Text1.Text=Text1.Text+""+Str(a(i))Nexti任務(wù)3知識點小結(jié)數(shù)據(jù)排序的常用算法（1）冒泡排序法（2）選擇排序法任務(wù)4-----動態(tài)數(shù)組動態(tài)數(shù)組：

在聲明時未給出數(shù)組的大小。定長數(shù)組(靜態(tài)數(shù)組)是在程序編譯時分配存儲空間，而動態(tài)數(shù)組是在程序執(zhí)行時分配存儲空間。動態(tài)數(shù)組使用

1、建立動態(tài)數(shù)組，分以下兩個步驟：數(shù)組聲明數(shù)組大小說明格式：Dim數(shù)組名（）As數(shù)據(jù)類型Dim數(shù)組名類型符（）例：Dima()AsInteger或dima%()（1）使用Dim語句聲明括號內(nèi)為空的數(shù)組(2)在程序中用ReDim語句指明該數(shù)組的大小。Preserve參數(shù)：保留數(shù)組中原來的數(shù)據(jù)例：

RedimA(10)

RedimPreserveA(20)格式：ReDim[Preserve]數(shù)組名（下標1）可以常量或有確定值的變量應(yīng)用輸入n個數(shù)據(jù)，求最大數(shù)輸入N個數(shù)據(jù)，從小到大的順序輸出。輸入N個學(xué)生的總分，求每個學(xué)生的名次。Optionbase1PrivateSubCommand1_Click()Dima()AsIntegerDimn%n=Val(InputBox("請輸入數(shù)組的個數(shù)"))ReDima(n)a(1)=Val(InputBox("請輸入第一個數(shù)"))Text2.Text=Text2.Text+Str(a(1))Max=a(1)Fori=2Tona(i)=Val(InputBox("請輸入第"&i&"個數(shù)"))Text2.Text=Text2.Text+Space(2)+Str(a(i))Ifa(i)>MaxThenMax=a(i)EndIfNexti任務(wù)5給定5個學(xué)生4門課程的成績,求其每個學(xué)生的總分及每門課程的平均分.新知識：二維數(shù)組及多維數(shù)組1、二維數(shù)組的聲明聲明格式如下：Dim數(shù)組名([<下界>]to<上界>，[<下界>to]<上界>)[As<數(shù)據(jù)類型>]其中的參數(shù)與一維數(shù)組完全相同。例如：Dima(3,3)AsSingle

邏輯結(jié)構(gòu)：表格/矩陣物理結(jié)構(gòu)：線性表二維數(shù)組在內(nèi)存的存放順序是“先行后列”。2、二維數(shù)組的存儲形式A(1,1)A(1,2)A(1,3)A(2,1)A(2,2)A(2,3)A(3,1)A(3,2)A(3,3)3、二維數(shù)組元素的引用引用形式：數(shù)組名(下標1，下標2)例如：

a(1,2)=10a(i+2,j)＝a(2,3)*2在程序中來說，通過二重循環(huán)來操作使用二維數(shù)組元素。4、二維數(shù)組的基本操作（1）二維數(shù)組數(shù)據(jù)值的確定(賦值語句或輸入函數(shù))（2）求最大元素及其所在的行和列1）二維數(shù)組數(shù)據(jù)的輸入Dima(1to4,1to5)AsInteger,i%,j%A、給二維數(shù)組a輸入數(shù)據(jù)的程序段如下：Fori=1to4Forj=1to5A(i,j)=Val(InputBox("a（"&I&","&j&"）=？"))NextjNexti2）求最大元素及其所在的行和列

Max=a(1,1):row=1:Column=1Fori=1ToNForj=1ToMIfa(i,j)>a(row,Column)ThenMax=a(i,j)row=iColumn=jEndIfNextjNextiPrint"最大元素是";MaxPrint"在第"&row&"行,";"第"&Column&"列"應(yīng)用1給定5個學(xué)生4門課程的成績,求其每個學(xué)生的總分及每門課程的平均分.應(yīng)用2(P89)打印楊輝三角形。11112113311464115101051應(yīng)用3計算n行n列組成的二維數(shù)組的兩個對角線上各元素之和OptionBase1PrivateSubCommand1_Click()Dima()AsIntegerDimi%,j%,sum%,n%n=Val(InputBox("請輸入二維數(shù)組的大小"))ReDima(n,n)Fori=1TonForj=1Tona(i,j)=Int(11*Rnd+10)Printa(i,j);NextPrintNextsum=0Fori=1TonForj=1TonIf(i=j)Thensum=sum+a(i,j)If(i+j=n+1)Thensum=sum+a(i,j)

NextNextPrintsumEndSub任務(wù)5—知識點小結(jié)二維數(shù)組的定義二維數(shù)組元素的引用二維數(shù)組的輸入和輸出二維數(shù)組的基本操作求最大數(shù)等等給定M個學(xué)生N門課程的成績,求其每個學(xué)生的總分及每門課程的平均分.應(yīng)用OptionBase1PrivateSubCommand1_Click()Dimgrade()AsSingleDimzong()AsSingleDimpin()AsSingleDimi%,j%,m%,n%m=Val(InputBox("請輸入數(shù)組的行數(shù)"))n=Val(InputBox("請輸入數(shù)組的列數(shù)"))ReDimgrade(m,n)ReDimzong(m)ReDimpin(n)Fori=1TomForj=1Tongrade(i,j)=Val(InputBox("請輸入每個同學(xué)成績"))NextjNextiFori=1Tomzong(i)=0Forj=1Tonzong(i)=zong(i)+grade(i,j)NextjNextiForj=1Tonpin(j)=0Fori=1Tompin(j)=pin(j)+grade(i,j)Nextpin(j)=pin(j)/mNextFori=1TomForj=1TonPrintgrade(i,j);NextPrintzong(i)NextForj=1TonPrintpin(j);NextEndSub任務(wù)6：與數(shù)組操作有關(guān)的函數(shù)及語句1、Array函數(shù)Array函數(shù)可方便地對數(shù)組整體賦值，但它只能給聲明Variant的變量或僅由括號括起的動態(tài)數(shù)組賦值。賦值后的數(shù)組大小由賦值的個數(shù)決定。例如，要