[理科實(shí)驗(yàn)報(bào)告精品]選擇、循環(huán)、數(shù)組和過程綜合程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告.doc

信息工程學(xué)院實(shí) 驗(yàn) 報(bào) 告課程名稱： 高級語言程序設(shè)計(jì)（vb） 實(shí)驗(yàn)名稱：選擇、循環(huán)、數(shù)組和過程綜合程序設(shè)計(jì)實(shí)驗(yàn)類型： 驗(yàn)證性 綜合性 設(shè)計(jì)性實(shí)驗(yàn)室名稱： 校計(jì)算中心 班級： 會(huì)計(jì)10-1 學(xué)號：姓名： 組別： 同組人： 成績： 實(shí)驗(yàn)日期： 2011-6-14 預(yù)習(xí)報(bào)告成績： 指導(dǎo)教師審核（簽名）： 年 月 日預(yù)習(xí)報(bào)告1. 實(shí)驗(yàn)?zāi)康膶W(xué)會(huì)綜合運(yùn)用選擇結(jié)構(gòu)，循環(huán)結(jié)構(gòu)，數(shù)組和過程進(jìn)行程序設(shè)計(jì)的方法2. 實(shí)驗(yàn)用儀器設(shè)備、器材或軟件環(huán)境 計(jì)算機(jī)機(jī)房學(xué)生電腦，圖書館電子閱歷室3. 實(shí)驗(yàn)原理 a產(chǎn)生隨機(jī)數(shù)函數(shù)使用b篩選其中奇數(shù)方法c. 篩選其中素?cái)?shù)方法 d.數(shù)列排序使用方法e條件語句的使用4. 方案設(shè)計(jì)a 產(chǎn)生隨機(jī)數(shù)，并利用循環(huán)語句將其存入數(shù)組 b運(yùn)用條件語句進(jìn)行奇數(shù)判斷，將其存入數(shù)組 c編寫一個(gè)function過程，作用是判斷是否是素?cái)?shù) d 利用print 方法輸入到form上5.實(shí)驗(yàn)環(huán)境windows 7 microsoft visual basic 6.0 中文版6.預(yù)編的程序dim a(80) as integer, b() as integer, c() as integer, d() as integer, ss() as integerprivate sub command1_click()dim k%, i&picture1.clsrandomizek = 0for i = 1 to 80 a(i) = int(90 * rnd + 10) picture1.print a(i); k = k + 1 if k = 10 then picture1.print k = 0 end ifnext iend subprivate sub command2_click()dim i%, n%, k%, j%, q%, h%, l%picture2.clsfor i = 1 to 80 if a(i) mod 2 0 then n = n + 1 end ifnext iredim b(n)for i = 1 to 80 if a(i) mod 2 0 then k = k + 1 b(k) = a(i) end ifnext ifor i = 1 to n - 1 for j = i + 1 to n if b(i) b(j) then t = b(i): b(i) = b(j): b(j) = t end if next jnext ifor i = 1 to n if b(i) 0 then picture2.print b(i); q = q + 1 if q mod 10 = 0 then picture2.print end ifnext iend subpublic function ssh(n%) as booleandim i%for i = 2 to sqr(n) if n mod i = 0 then ssh = false: exit for end ifnext iif i sqr(n) then ssh = trueend ifend functionprivate sub command3_click()dim i%, k%, n%, h%, l%picture3.clsfor i = 1 to ubound(b) if ssh(b(i) then picture3.print b(i); k = k + 1 if k mod 10 = 0 then picture3.print end ifnext iredim ss(k)for i = 1 to ubound(b) if ssh(b(i) then n = n + 1 ss(n) = b(i) end ifnext iend subprivate sub command4_click()endend sub7. 程序框圖開始判斷數(shù)組a（1 to 80）是否為奇數(shù)存入數(shù)組s(1 to 80)中排序并輸出數(shù)組s()判斷數(shù)組a（1 to 80）是否為素?cái)?shù)輸出符合條件的元素結(jié)束產(chǎn)生隨機(jī)數(shù)組a(1 to 80)實(shí)驗(yàn)報(bào)告成績： 指導(dǎo)教師審核（簽名）： 年 月 日實(shí)驗(yàn)報(bào)告1.實(shí)驗(yàn)?zāi)康膶W(xué)會(huì)綜合運(yùn)用選擇結(jié)構(gòu)，循環(huán)結(jié)構(gòu)，數(shù)組和過程進(jìn)行程序設(shè)計(jì)的方法2.實(shí)驗(yàn)內(nèi)容利用隨機(jī)函數(shù)產(chǎn)生80個(gè)1099之間的隨機(jī)整數(shù)，將其中的奇數(shù)按由小到大的順序排列并輸出；在產(chǎn)生的80個(gè)隨機(jī)整數(shù)中，找出其中的素?cái)?shù)。3.實(shí)驗(yàn)要求1將隨機(jī)產(chǎn)生的80個(gè)整數(shù)存入數(shù)組，按每行10個(gè)數(shù)輸出到窗體或文本框中。2奇數(shù)也存入另一個(gè)數(shù)組，將排好序的奇數(shù)輸出到窗體或文本框中。3用sub子過程或function函數(shù)過程判斷隨機(jī)整數(shù)是否為素?cái)?shù)。4將素?cái)?shù)按每行10個(gè)數(shù)在窗體或文本框中輸出。5界面由學(xué)生自行設(shè)計(jì)。4.算法設(shè)計(jì)1. 種下隨機(jī)種子，利用int（rnd*90+10）產(chǎn)生10-99)的隨機(jī)數(shù)，并利用循環(huán)語句將其存入數(shù)組a(1 to 80)2. 運(yùn)用條件語句進(jìn)行奇數(shù)判斷，從80個(gè)隨機(jī)數(shù)中選出奇數(shù)并將其存入數(shù)組s（1 to 80）3. 編寫一個(gè)function過程，作用是判斷是否是素?cái)?shù)，并調(diào)用function5.注意事項(xiàng)1. 數(shù)組 a(),s()為模塊級變量2. 注意格式的輸出，運(yùn)用；緊跟形式和 print換行6.界面設(shè)計(jì)只需一個(gè)窗體不需要其他控件用最簡單7.程序框圖開始判斷數(shù)組a（1 to 80）是否為奇數(shù)存入數(shù)組s(1 to 80)中排序并輸出數(shù)組s()判斷數(shù)組a（1 to 80）是否為素?cái)?shù)輸出符合條件的元素結(jié)束產(chǎn)生隨機(jī)數(shù)組a(1 to 80)8.屬性設(shè)置所有屬性均不改變9.程序清單dim a(1 to 80) as integer 模塊級變量dim s(1 to 80) as integer 模塊級變量function ss(m as integer) as boolean 定義函數(shù)dim p as integer, f as booleanf = truefor p = 2 to m - 1if m mod p = 0 then 判斷是否是素?cái)?shù)f = falseend ifnext pss = fend functionprivate sub form_load()randomize 種下隨機(jī)種子i = 1doa(i) = int(rnd * 90 + 10)i = i + 1loop until (i 80)end subprivate sub form_click()dim n as integern = 1i = 1doif a(i) mod 2 0 then 判斷是否為奇數(shù)s(n) = a(i) 存入數(shù)組s（）中n = n + 1end ifi = i + 1loop while (i = 80)print 隨機(jī)數(shù)組為i = 1doprint a(i);if i mod 10 = 0 thenprintend ifi = i + 1loop while (i s(k) then t = s(j)s(j) = s(k)s(k) = t end if next knext jprint 奇數(shù)排序?yàn)閗 = 1doprint s(k);if k mod 10 = 0 thenprintend ifk