VB 教案之?dāng)?shù)組

授課對象:初一興趣班學(xué)生) 教學(xué)過程: 一、引入： 在學(xué)習(xí)if語句時，我們曾做過一個題，在文本框內(nèi)輸入正整數(shù)，判斷這3個數(shù)的大小然后將他們按從小到大的順序輸出。   if a>b then   temp =a:a=b : b =temp   end if   if a >c then   temp =a : a=c :c= temp   end if   if b>c then   temp = b : b=c : c=temp   end if   print 這三個數(shù)從小到大的順序是; a;b;c; 這是3個數(shù)的大小排序,假如多于三個數(shù)的排序呢? 當(dāng)然我們還可以用IF語句予以解決,但大家可以想象到它的麻煩程度,其實(shí),我們可以用數(shù)組來解決這個問題。那么何謂數(shù)組呢？ 二、1）新課講授：所謂數(shù)組是一群數(shù)據(jù)類型相同的變量，在內(nèi)存里能擁有連續(xù)存放空間的集合。數(shù)組在使用之前必須先聲明，聲明的目的是確定內(nèi)存中應(yīng)保留多少連續(xù)空間給此數(shù)組使用，并定出數(shù)組中每一個元素的數(shù)據(jù)類型。    語法：dim 數(shù)組名稱（下標(biāo)1，[下標(biāo)2[……]]）[as 數(shù)據(jù)類型]    功能：聲明所指定數(shù)據(jù)類型為一維（二維……）數(shù)據(jù) eg ：  dim a(6) as integer  聲明一個a(6)的數(shù)組，其包含了a(0)---a(6)7個整型變量。數(shù)組的默認(rèn)下標(biāo)值從0開始，假如你覺得不習(xí)慣的話，可以用用這個方式聲明：  dim 數(shù)組名稱（下界to上界[下界to上界][……]）[as 數(shù)據(jù)類型] 假若要定義a(1)----a(6)的整型數(shù)組，則可以這樣寫：   dim a(1to 6) as integer 請學(xué)生判斷以下下列數(shù)組說明語句是否正確，說明原因： (1) Dim a(10) as integer (2) Dim b(-10) as integer      /錯誤  沒有用關(guān)鍵之to顯示知名下標(biāo)范圍。 (3)Dim c(5,3)as byte (4)Dim y()          /錯誤，只有重定義語句才可以不帶下標(biāo) 2）回到我們剛上課講的內(nèi)容，如何利用數(shù)組解決數(shù)字的排序問題呢？這里我們先介紹兩個函數(shù)： 隨機(jī)函數(shù)Rnd  產(chǎn)生介于0到1之間的函數(shù)   隨機(jī)數(shù)種子函數(shù) Randomize 在Rnd函數(shù)之前使用，以當(dāng)做隨機(jī)數(shù)產(chǎn)生器的種子。 （注：如果不用語句來播放隨機(jī)數(shù)的種子，則每次使用Rnd函數(shù)時將會得到相同順序的隨機(jī)數(shù)） 下面我們用數(shù)組來解決數(shù)字的排序問題： 1）定義數(shù)組，產(chǎn)生1000內(nèi)的隨機(jī)數(shù) (這里我們以生成6個數(shù)為例) Dim a(1 to 6) as integer Dim i as integer,j as integer Dim t as integer cls                          /  清除屏幕 Randomize  for i =1 to 6              a(i)=int（Rnd*1000+1）                 /產(chǎn)生1--1000的隨機(jī)整數(shù) print a(i); next i print ----------------------------------------------- end sub （解釋程序，使學(xué)生讀懂本程序后，關(guān)閉代碼。讓學(xué)生自己編程：由button控制產(chǎn)生出10個隨機(jī)整數(shù)） 2) 6個隨機(jī)數(shù)按大小順序排列 for i = 1 to 6   if a(1)<a(i) then   t = a(1)   a(1)= a(i)   a(i) =t   end if next i                    print a(1)                             / 打印出最大的那個數(shù) end sub 我們當(dāng)然可以用5個if語句依次將6個數(shù)從小到大打印出來，但如果是20個、100、1000個數(shù)的排序，那我們就得相應(yīng)的寫出無數(shù)的if語句來做，但顯然這辦法是不理想的。其實(shí)這里我們可以套用兩個循環(huán)語句完成此題。 3）將2）改成 for i=1 to 6   for j = i+1 to 6     if a(i) < a(j) then     t = a (i)     a(i)= a(j)     a(j)=t     end if   next j   print a(i); next i                /  雙重循環(huán)將6個數(shù)從大到小打印出來。 end sub 解釋：1）當(dāng)i =1的時候， j=2時，比較出a(1) a(2)的大小，將大的數(shù)給a(1)                     j =2時，比較出a(1) a(3)的大小，將大的數(shù)給a(1)                     ……                     j =6時，比較出a(2) a(6)的大小，將大的數(shù)給a（1）       打印出a(1)   i變成2     2）當(dāng)i=2時， j =3時，比較出a(2)a(3)的大小，將大的數(shù)給a(2)                 …………      打印出a（2） i 變成3     ……     5） 當(dāng)i=5時 j=6時， 比較a(5) a(6)的大小，將大的數(shù)給a(5)     6) 當(dāng)i=6時，j 已經(jīng)超出了循環(huán)范圍。所以這里的循環(huán)我們也可以將i的語句改為     for i =1 to 5 （在學(xué)生讀懂程序的情況下請學(xué)生寫出程序：隨機(jī)產(chǎn)生100個數(shù)并將其排序）    const n =100    Dim a(1to n) as integer    Dim i as integer,j as integer,t as interger    cls    Randomize    for i=1 to n    a(i)=int(Rnd*1000+1)    print a(i);    if i mod 20 =0 then    print    end if    next i    print ————————————————————————————————    for i =1 to n     for j =i+1 to n     if a(i)<a(j) then     t = a(i)     a(i)=a(j)     a(j)= t     end if     next j    print a(i);    if i mod 20 = 0 then    print    end if    next i    end sub 三、課堂小結(jié) ：（數(shù)組聲明、如何利用數(shù)組和循環(huán)語句給數(shù)字排序等） 四、作業(yè)：對于給定的數(shù)組a(n)as integer(n>=20),設(shè)計(jì)一個程序，找出在a中出現(xiàn)頻率最高的元素值及出現(xiàn)的次數(shù)。例如（1，5，4，2，5，8，5，4）中，出現(xiàn)頻率最高的是5， 次數(shù)是3次。  

【VB 教案之?dāng)?shù)組】相關(guān)文章：

vb實(shí)訓(xùn)心得11-25

vb實(shí)訓(xùn)心得7篇11-25

《橋之美》的教案03-07

《黔之驢》教案03-05

《橋之美》教案03-05

旅鼠之迷教案02-17

《橋之美》教案04-30

小學(xué)教案之我們的太陽08-25

驚弓之鳥教案08-26

《生命之杯》音樂教案09-21