下面通過(guò)兩個(gè)實(shí)例,進(jìn)一步理解數(shù)組的概念,學(xué)會(huì)在程序中恰當(dāng)?shù)厥褂脭?shù)組。實(shí)例3.4為數(shù)組賦值。
在該實(shí)例中,聲明了一個(gè)包含G個(gè)元素的整型數(shù)組,分別為它們賦位1、2. ……6.然后在窗體上打印出各元素的值、它們的總和以及平均值。
在【代碼】窗口中編寫(xiě)窗體的Click事件過(guò)程如下:
Private Sub Form_Click()
Dim Num(5) AS Integer
Dim S AS integer
Dim A AS Singel
S 0
For i=0 To 5
Num(i)=i+1
s=s+Num(i)
Print“第”& i+i &“個(gè)元素的值為:”& Num(i)
Next i
A = S /6
Print 空行
Print“總和為:”& S
Print“平均值為:”& A
運(yùn)行該程序,單擊窗體,則結(jié)果如圖3.21所示。
實(shí)例3.5求最大值與最小值。
假設(shè)已使用Dim Num(99) As Integer語(yǔ)句定義了一個(gè)數(shù)組,并且在該數(shù)組中存儲(chǔ)了100個(gè)學(xué)生的成績(jī),請(qǐng)編寫(xiě)代碼在窗體上打印出最高分與最低分。
相關(guān)推薦:2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |