青島科技大學(xué)VB試驗(yàn)五

本文格式為Word版，下載可任意編輯——青島科技大學(xué)VB試驗(yàn)五試驗(yàn)五數(shù)組應(yīng)用程序設(shè)計(jì)（3個(gè)學(xué)時(shí)）

一、試驗(yàn)?zāi)康?/p>

1.把握數(shù)組的聲明、數(shù)組元素的引用。2.把握靜態(tài)數(shù)組和動(dòng)態(tài)數(shù)組的使用區(qū)別。3.應(yīng)用數(shù)組解決與數(shù)組有關(guān)的常用算法問題。4.學(xué)會(huì)使用控件數(shù)組設(shè)計(jì)程序。

二、試驗(yàn)內(nèi)容

1.輸入10個(gè)學(xué)生的成績(jī)，并將成績(jī)輸出到窗體上，每行5個(gè)。計(jì)算并顯示平均分?jǐn)?shù)，然后將高于平均分的分?jǐn)?shù)輸出到窗體上。

1）代碼設(shè)計(jì)如下OptionExplicitOptionBase1

PrivateSubForm_Click()

Dimscore(10)AsSingle,sumAsSingleDimiAsIntegerFori=1To10

score(i)=Val(InputBox(\請(qǐng)輸入第\個(gè)學(xué)生的數(shù)學(xué)成績(jī)\sum=sum+score(i)Nexti

Print\學(xué)生的數(shù)學(xué)成績(jī)是：\Fori=1To10Printscore(i),

IfiMod5=0ThenPrintNextiPrint

Print\數(shù)學(xué)平均分是：\Print\高于平均分的分?jǐn)?shù)：\Fori=1To10

Ifscore(i)>sum/10ThenPrintscore(i)NextiEndSub

2）將運(yùn)行結(jié)果的界面截下來(lái)粘貼在下面：

3）調(diào)試過程記錄（錯(cuò)誤狀況及改正方法）

2.設(shè)有一個(gè)6×6的方陣，其中的元素是隨機(jī)產(chǎn)生的10-99之間的兩位整數(shù)。分別求出主對(duì)角線和次對(duì)角線上元素之和，以及方陣中最小的元素的值和位置。要求：

程序運(yùn)行后，單擊“產(chǎn)生〞按鈕時(shí)，輸出方陣。單擊“計(jì)算〞按鈕時(shí)，輸出對(duì)角線元素之和，以及最小元素的值與位置。

1）代碼設(shè)計(jì)如下OptionExplicitOptionBase1

Dima(6,6),i%,j%,s%,sum%PrivateSubCommand1_Click()Cls

RandomizeFori=1To6Forj=1To6

s=Int(Rnd*(99-10+1)+10)a(i,j)=sPrinta(i,j);NextjPrintNextiEndSub

PrivateSubCommand2_Click()Dimmin,p%,q%Fori=1To6

Forj=1To6Ifi=jThen

sum=sum+a(i,j)EndIfNextjNexti

Print\主對(duì)角線的元素之和：\Fori=1To6Forj=1To6

Ifi+j=7Thensum=sum+a(i,j)EndIfNextjNexti

Print\次對(duì)角線的元素之和：\min=a(1,1):p=1:q=1

Fori=1To6Forj=1To6

Ifa(i,j)arr(p)Thenp=jNextj

IfpiThen

t=arr(i):arr(i)=arr(p):arr(p)=tEndIfNextiPrint

Label3.Caption=\數(shù)組排序后順序?yàn)椋篭Fori=1Ton

Label4.Caption=Label4.Caption&\NextiEndSub

PrivateSubForm_Load()Command1.Caption=\輸出\Command2.Caption=\排序\Label1.Caption=\Label2.Caption=\Label3.Caption=\Label4.Caption=\EndSub

2）將運(yùn)行結(jié)果的界面截下來(lái)粘貼在下面

3）調(diào)試過程記錄（錯(cuò)誤情況及改正方法）

4．使用控件數(shù)組設(shè)計(jì)如圖所示簡(jiǎn)易計(jì)算