vb 全套教材課件 第5章 數(shù)組1學(xué)習(xí)資料

VisualBasic.Net程序設(shè)計(jì)華中農(nóng)業(yè)大學(xué)信息學(xué)院

章程第5章數(shù)組教學(xué)目的：掌握數(shù)組的定義和使用熟練使用一維數(shù)組進(jìn)行編程掌握二維數(shù)組的使用掌握ListBox控件和ComboBox控件的使用掌握一些數(shù)組方法的用法華中農(nóng)業(yè)大學(xué)信息學(xué)院

第5章數(shù)組教學(xué)重難點(diǎn)：數(shù)組的定義和賦值使用數(shù)組編程ListBox控件和ComboBox控件華中農(nóng)業(yè)大學(xué)信息學(xué)院

第5章數(shù)組

5.1一維數(shù)組的定義和引用5.1.1一個(gè)引例5.1.2一維數(shù)組的聲明和初始化5.1.3一維數(shù)組的引用華中農(nóng)業(yè)大學(xué)信息學(xué)院

5.1.1一個(gè)引例編寫一個(gè)程序，輸入50名射擊運(yùn)動(dòng)員的一次比賽成績（以環(huán)計(jì)），低于平均環(huán)數(shù)的人遭淘汰，統(tǒng)計(jì)通過比賽的人數(shù)并按環(huán)數(shù)高低顯示他們的成績

Dimi%,aver!,score!aver=0Fori=1To50score=Val(InputBox("第"&i&"名運(yùn)動(dòng)員的環(huán)數(shù)"))aver=aver+scoreNextaver=aver/50如何統(tǒng)計(jì)高于平均環(huán)數(shù)的人數(shù)以及顯示他們的成績?華中農(nóng)業(yè)大學(xué)信息學(xué)院

引入數(shù)組，問題解決

Dimi%,aver!,score!(49),count%aver=0Fori=0To49

score(i)=Val(InputBox("第"&i+1&"名運(yùn)動(dòng)員的環(huán)數(shù)"))aver=aver+score(i)Nextaver=aver/50

Fori=0To49Ifscore(i)>=averThencount=count+1NextTextBox1.Text=averTextBox2.Text=count華中農(nóng)業(yè)大學(xué)信息學(xué)院

數(shù)組一組相同類型的變量的集合。數(shù)組名代表邏輯上相關(guān)的一批數(shù)據(jù)，用下標(biāo)區(qū)分該數(shù)組中的各個(gè)元素?cái)?shù)組必須先聲明后使用，數(shù)組聲明后在內(nèi)存可分配一塊連續(xù)的區(qū)域。5.1.2一維數(shù)組的聲明和初始化華中農(nóng)業(yè)大學(xué)信息學(xué)院

1數(shù)組聲明一維數(shù)組

Dim數(shù)組名(下標(biāo)上界)

[As類型]Dimmark(99)AsIntegermark(99)mark(98)…mark(2)mark(1)mark(0)華中農(nóng)業(yè)大學(xué)信息學(xué)院

格式：Dim數(shù)組名(下標(biāo)上界)[As類型]例如：Dima(10)AsIntegerDimst$(5)說明：下標(biāo)下界為0，上界為常數(shù)、已有值的表達(dá)式或變量。一維數(shù)組的大小為：下標(biāo)上界+1。

不要越界使用數(shù)組的元素華中農(nóng)業(yè)大學(xué)信息學(xué)院

2數(shù)組的初始化

定義數(shù)組的同時(shí)，為數(shù)組元素賦初值，數(shù)組的初值是以左右大括號括住的，數(shù)據(jù)間彼此以逗號隔開。此種方式定義數(shù)組時(shí)，不可以在數(shù)組名后面的小括號內(nèi)設(shè)置數(shù)組的大小。格式：Dim數(shù)組名()As類型={常數(shù)1，……，常數(shù)n}例如：DimmyArray()AsInteger={56,45,68，32}定義一個(gè)數(shù)組名為myArray的整數(shù)數(shù)組，并將初始值設(shè)置如下：myArray(0)=56，myArray(l)=45，myArray(2)=68，myArray(3)=32。華中農(nóng)業(yè)大學(xué)信息學(xué)院

注意：①下面語句因在定義數(shù)組并賦予初值時(shí)，設(shè)置了數(shù)組的大小為3，是錯(cuò)誤的寫法：DimmyArray(3)AsInteger={56，45，88，32}②當(dāng)在定義一個(gè)數(shù)組未用As來指定數(shù)組的數(shù)據(jù)類型時(shí)，此數(shù)組的數(shù)據(jù)類型為對象，因此數(shù)組內(nèi)的數(shù)組元素，允許夾雜不同數(shù)據(jù)類型的數(shù)據(jù)。例如:下面語句列的定義是合法的：DimmyArray（）={l，"abc"，0，True，-2}③數(shù)組元素間的數(shù)據(jù)必須是相同的數(shù)據(jù)類型才允許做運(yùn)算。例如：根據(jù)上面②中數(shù)組賦值，myArray(0)和myArray(1)的數(shù)據(jù)類型分別為整數(shù)和字符串，由于數(shù)組與字符串不能直接加減，會(huì)造成錯(cuò)誤，所以下面是不合法的語句：myArray(0)+myArray(1)華中農(nóng)業(yè)大學(xué)信息學(xué)院

一、數(shù)組的輸入例

Dimsb(3,4)ASIntegerFori=0To3Forj=0To4

sb(I,j)=InputBox("輸入"&i&“,"&j&"元素")NextjNexti5.1.3一維數(shù)組的輸入輸出華中農(nóng)業(yè)大學(xué)信息學(xué)院

二、數(shù)組的輸出

【例5.2_1】使用文本框控件來連續(xù)輸入10個(gè)數(shù)據(jù)到數(shù)組中，每輸入一個(gè)數(shù)據(jù),以回車鍵確認(rèn)后，將其輸入到數(shù)組中，同時(shí)顯示在窗體的標(biāo)簽控件上。點(diǎn)“結(jié)束”按鈕，程序結(jié)束運(yùn)行。華中農(nóng)業(yè)大學(xué)信息學(xué)院

5.1.4重定義數(shù)組大小

ReDim

數(shù)組名

(下標(biāo)[,下標(biāo)2…])例

DimsArray(2,3)AsSingleSubForm_Load()…

ReDimsArray(4，8)…

EndSub

華中農(nóng)業(yè)大學(xué)信息學(xué)院

1、求數(shù)組最值本章目錄5.1.5數(shù)組的基本操作【例5.4】界面設(shè)計(jì)如圖所示，點(diǎn)擊按鈕“確定”，隨機(jī)產(chǎn)生20個(gè)100以內(nèi)的整型元素，顯示在文本框中，并求其最大值和最小值，顯示在隨機(jī)元素的下一行。華中農(nóng)業(yè)大學(xué)信息學(xué)院

2、元素交換下標(biāo)0123456789初值26436187331937597669下標(biāo)0123456789初值43618733375976695.1.5數(shù)組的基本操作1926華中農(nóng)業(yè)大學(xué)信息學(xué)院

3、數(shù)據(jù)插入5.1.5數(shù)組的基本操作【例5.6】數(shù)組元素插入在一組有序數(shù)據(jù)中，插入一個(gè)數(shù)，使這組數(shù)據(jù)仍舊有序。假定有數(shù)組a(n)，已按遞增次序排列，數(shù)據(jù)元素如圖所示，將一個(gè)數(shù)據(jù)x插入到數(shù)組a中，使數(shù)組仍然有序。華中農(nóng)業(yè)大學(xué)信息學(xué)院

4、刪除數(shù)據(jù)

5.1.5數(shù)組的基本操作【例5.7】在一組有序數(shù)據(jù)中，刪除一個(gè)指定的數(shù)x，使這組數(shù)據(jù)仍舊有序。假定有數(shù)組a(n)，已按遞增次序排列，將一個(gè)元素x從數(shù)組a中刪除，a仍然