本文格式為Word版，下載可任意編輯——vb試驗(yàn)報(bào)告模板

內(nèi)蒙古工業(yè)大學(xué)信息工程學(xué)院

實(shí)驗(yàn)報(bào)告

課程名稱：高級(jí)語言程序設(shè)計(jì)（VB）Ⅰ試驗(yàn)名稱：選擇、循環(huán)、數(shù)組和過程綜合程序設(shè)計(jì)試驗(yàn)類型：驗(yàn)證性□綜合性√設(shè)計(jì)性□試驗(yàn)室名稱：校計(jì)算中心班級(jí)：過控11-2學(xué)號(hào)：202320506047姓名：蔣安神組別：同組人：成績(jī)：試驗(yàn)日期：2023-06-8

內(nèi)蒙古工業(yè)大學(xué)信息工程學(xué)院

預(yù)習(xí)報(bào)告成績(jī)：指導(dǎo)教師審核（簽名）：年月日

預(yù)習(xí)報(bào)告

一、試驗(yàn)題目

《選擇、循環(huán)、數(shù)組和過程綜合程序設(shè)計(jì)》

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

學(xué)會(huì)綜合運(yùn)用選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、數(shù)組和過程進(jìn)行程序設(shè)計(jì)的方法。三、試驗(yàn)內(nèi)容

利用隨機(jī)函數(shù)產(chǎn)生80個(gè)10～99之間的隨機(jī)整數(shù)，將其中的偶數(shù)按由小到大的順序排列并輸出，將奇數(shù)按由大到小的順序排列并輸出；在產(chǎn)生的80個(gè)隨機(jī)整數(shù)中，找出其中的素?cái)?shù)，并將這些素?cái)?shù)求和

四、試驗(yàn)用儀器設(shè)備、器材或軟件環(huán)境

電腦、MicrosoftVisualBasic6.0中文版軟件、VB

程序設(shè)計(jì)（其次版）、VisualBasic程序設(shè)計(jì)教程。

語言

五、試驗(yàn)設(shè)計(jì)要求、方案設(shè)計(jì)

。1．將隨機(jī)產(chǎn)生的80個(gè)整數(shù)存入數(shù)組，按每行10個(gè)數(shù)輸出到窗體或文本框中。

2．偶數(shù)和奇數(shù)也分別存入數(shù)組，將排好序的偶數(shù)和奇數(shù)分別輸出到窗體或兩個(gè)文本框中。3．用Sub子過程或Function函數(shù)過程判斷隨機(jī)整數(shù)是否為素?cái)?shù)。4．將素?cái)?shù)按每行10個(gè)數(shù)在窗體或文本框中輸出。5．將素?cái)?shù)的個(gè)數(shù)及求和結(jié)果輸出到窗體或文本框中。

6．界面和屬性由學(xué)生自行設(shè)計(jì)和設(shè)置（界面設(shè)計(jì)要合理、美觀，屬性設(shè)置用表格完成，包括對(duì)象名、屬性名和屬性值）。

2、方案設(shè)計(jì)

1屬性設(shè)置

控件Label1captionfont隨機(jī)產(chǎn)生80個(gè)10～99之間的隨機(jī)整數(shù)，其中的字體（宋體）字形（常偶數(shù)按由小到大的順序排列并輸出，將奇數(shù)按由規(guī)）大小（五號(hào)）大到小的順序排列并輸出,其中的素?cái)?shù)，并將這些素?cái)?shù)求和字體（宋體）字形（常規(guī)）大小（小二）字體（宋體）字形（常規(guī)）大小（小二）第頁

Command1啟動(dòng)Command2終止內(nèi)蒙古工業(yè)大學(xué)信息工程學(xué)院

2界面設(shè)計(jì)

4預(yù)編程序流程

先隨機(jī)產(chǎn)生80個(gè)10到99的整數(shù)，運(yùn)用2維數(shù)組顯示出來，在運(yùn)用if函數(shù)分開出偶數(shù)和奇數(shù)并運(yùn)用function過程按要求分大小排序顯示，最終運(yùn)用function過程找出素?cái)?shù)并對(duì)素?cái)?shù)計(jì)數(shù)和求和，然后輸出素?cái)?shù)，素?cái)?shù)的個(gè)數(shù)，素?cái)?shù)的和

3預(yù)編程序

第頁

內(nèi)蒙古工業(yè)大學(xué)信息工程學(xué)院

第頁

內(nèi)蒙古工業(yè)大學(xué)信息工程學(xué)院

第頁

內(nèi)蒙古工業(yè)大學(xué)信息工程學(xué)院

試驗(yàn)報(bào)告成績(jī)：指導(dǎo)教師審核（簽名）：年月日

試驗(yàn)報(bào)告

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

學(xué)會(huì)綜合運(yùn)用選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、數(shù)組和過程進(jìn)行程序設(shè)計(jì)的方法。

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

利用隨機(jī)函數(shù)產(chǎn)生80個(gè)10～99之間的隨機(jī)整數(shù)，將其中的偶數(shù)按由小到大的順序排列并輸出，將奇數(shù)按由大到小的順序排列并輸出；在產(chǎn)生的80個(gè)隨機(jī)整數(shù)中，找出其中的素?cái)?shù)，并將這些素?cái)?shù)求和。

三、試驗(yàn)要求

1．將隨機(jī)產(chǎn)生的80個(gè)整數(shù)存入數(shù)組，按每行10個(gè)數(shù)輸出到窗體或文本框中。

2．偶數(shù)和奇數(shù)也分別存入數(shù)組，將排好序的偶數(shù)和奇數(shù)分別輸出到窗體或兩個(gè)文本框中。3．用Sub子過程或Function函數(shù)過程判斷隨機(jī)整數(shù)是否為素?cái)?shù)。4．將素?cái)?shù)按每行10個(gè)數(shù)在窗體或文本框中輸出。5．將素?cái)?shù)的個(gè)數(shù)及求和結(jié)果輸出到窗體或文本框中。

6．界面和屬性由學(xué)生自行設(shè)計(jì)和設(shè)置（界面設(shè)計(jì)要合理、美觀，屬性設(shè)置用表格完成，包括對(duì)象名、屬性名和屬性值）。

四、試驗(yàn)步驟

1、在窗體中建立相應(yīng)的文本框和命令按鈕，并調(diào)整其對(duì)齊。

2、對(duì)相應(yīng)的屬性進(jìn)行設(shè)置。

控件Label1captionfont隨機(jī)產(chǎn)生80個(gè)10～99之間的隨機(jī)整數(shù)，其中的字體（宋體）字形（常偶數(shù)按由小到大的順序排列并輸出，將奇數(shù)按由規(guī)）大?。ㄎ逄?hào)）大到小的順序排列并輸出,其中的素?cái)?shù)，并將這些素?cái)?shù)求和字體（宋體）字形（常規(guī)）大?。ㄐ《┳煮w（宋體）字形（常規(guī)）大小（小二）Command1啟動(dòng)Command2終止

初始界面截圖

第頁

內(nèi)蒙古工業(yè)大學(xué)信息工程學(xué)院

3、編寫程序代碼

PrivateSubCommand1_Click()

Dima(1To80)AsInteger,a1()AsInteger,a2()AsInteger,a3()AsInteger,b(1To8,1To10)AsInteger,iAsInteger,mAsInteger,nAsInteger,cAsIntegerCls

Randomize

ReDima1(80):ReDima2(80):ReDima3(80)Fori=1To80

a(i)=Int(90*Rnd+10)Ifa(i)Mod2=0Thenm=m+1

a1(m)=a(i)Else

n=n+1

a2(n)=a(i)EndIf

IfFnprime(a(i))Thenc=c+1a3(c)=a(i)s=s+a3(c)v=v+1EndIf

Next

ReDimPreservea1(m)ReDimPreservea2(n)ReDimPreservea3(c)

第頁

內(nèi)蒙古工業(yè)大學(xué)信息工程學(xué)院

Print\隨機(jī)產(chǎn)生的80個(gè)整數(shù)，按每行10個(gè)數(shù)輸出：\Forc=1To8Ford=1To10

b(c,d)=a((c-1)*10+d)Printb(c,d);NextdPrintNextc

Print\其中的偶數(shù)由大到小的排序結(jié)果：\mysorta1

Fori=UBound(a1)To1Step-1Printa1(i);k=k+1

IfkMod10=0ThenPrintNextPrint

Print\其中的奇數(shù)由小到大的排序結(jié)果：\mysorta2m=0

Fori=1ToUBound(a2)Printa2(i);m=m+1

IfmMod10=0ThenPrintNextPrintm=0

Print\其中的素?cái)?shù)輸出：\Fori=1ToUBound(a3)Printa3(i);m=m+1

IfmMod10=0ThenPrintNextiPrint

Print\素?cái)?shù)個(gè)數(shù)：\;v:Print\素?cái)?shù)之和：\;sEndSub

Functionmysort(a)

DimiAsInteger,jAsInteger,tAsIntegerFori=LBound(a)ToUBound(a)-1Forj=i+1ToUBound(a)Ifa(i)>a(j)Then

t=a(i):a(i)=a(j):a(j)=tEndIfNextjNexti

EndFunction

FunctionFnprime(mAsInteger)AsBoolean

第頁

內(nèi)蒙古工業(yè)大學(xué)信息工程學(xué)院

DimkAsInteger,lAsBooleanl=True

Fork=2Tom-1IfmModk=0Thenl=FalseEndIfNextk

Fnprime=lEndFunction

PrivateSubCommand2_Click()End

EndSub

運(yùn)行結(jié)果截圖

試驗(yàn)中存在的問題

1.比較簡(jiǎn)單輸錯(cuò)字母，導(dǎo)致程序運(yùn)行出錯(cuò)。

2．