內蒙古工業大學資訊工程學院
實驗報告
課程名稱： 高階語言程式設計（vb
實驗名稱：選擇、迴圈、陣列和過程綜合程式設計
實驗型別： 驗證性□ 綜合性√ 設計性□
實驗室名稱： 校計算中心
班級： 生物10-2班學號： 201020513062
姓名：李樑鈺組別
同組人成績
實驗日期： 2011.6.11
實驗報告撰寫要求
一、 實驗前用預習報告紙撰寫預習報告，預習報告包括以下內容
1． 實驗目的
2． 實驗用儀器裝置、器材或軟體環境
3． 實驗原理、方案設計、程式框圖、預編程式等
4． 實驗過程中需要記錄的實驗資料**
二、 實驗過程中，要認真觀察，仔細記錄
三、 完成實驗後用實驗報告紙撰寫實驗報告，包括以下內容
1． 儀器裝置型號及編號
2． 實驗器材或軟體環境
3． 實驗步驟、程式除錯方法
4． 實驗資料處理及結果分析
5． 實驗中存在的問題
6． 體會及思考題
四、 報告撰寫時，要求格式規範、書寫整齊
預習報告成績指導教師審核（簽名年月日
預習報告
（一）實驗目的
學會綜合運用選擇結構、迴圈結構、陣列和過程進行程式設計的方法。
（二）實驗內容
利用隨機函式產生80個10～99之間的隨機整數，將其中的偶數按由小到大的順序排列並輸出，將奇數按由大到小的順序排列並輸出；在產生的80個隨機整數中，找出其中的素數，並將這些素數求和。
（三）實驗要求
1．將隨機產生的80個整數存入陣列，按每行10個數輸出到窗體或文字框中。
2．偶數和奇數也分別存入陣列，將排好序的偶數和奇數分別輸出到窗體或兩個文字框中。
3．用sub子過程或function函式過程判斷隨機整數是否為素數。
4．將素數按每行10個數在窗體或文字框中輸出。
5．將素數的個數及求和結果輸出到窗體或文字框中。
6．介面由學生自行設計。
（四）流程圖
（五）屬性設定**
（六）程式**
dim a(1 to 80) as integer
private sub command1_click()
randomize
for i = 1 to 80
a(i) = int(90 * rnd + 10)
text1 = text1 & a(i) & " "
if i mod 10 = 0 then text1 = text1 & chr(13) & chr(10)
next
end sub
private sub command2_click()
dim s1, s2 as string
randomize
dim a(80) as integer
for i = 1 to 80
a(i) = 10 + int(rnd * 90)
next i
for i = 1 to 79
for j = i + 1 to 80
if a(i) > a(j) then t = a(i): a(i) = a(j): a(j) = t
next j
next i
n = 0
for i = 1 to 80
if a(i) mod 2 = 0 then
s1 = s1 + str(a(i))
n = n + 1
if n mod 10 = 0 then s1 = s1 + chr$(13) + chr$(10)
end if
next i
= s1
n = 0
for i = 80 to 1 step -1
if a(i) mod 2 <> 0 then
s2 = s2 + str(a(i))
n = n + 1
if n mod 10 = 0 then s2 = s2 + chr$(13) + chr$(10)
end if
next i
= s2
end sub
private function check(m as integer) as boolean
dim k as integer, f as integer
f = true
for k = 2 to m - 1
if m mod k = 0 then
f = false
end if
next k
check = f
end function
private sub command3_click()
dim m as integer
for i = 1 to 80
if check(a(i)) then n = n + 1: a(n) = a(i)
next
for i = 1 to n
m = m + a(i)
text4 = text4 & a(i) & " "
if i mod 10 = 0 then text4 = text4 & chr(13) & chr(10)
next
= "素數的個數:" & n & chr(10) & "素數之和：" & m
end sub
private sub form_load()
end sub
實驗報告成績指導教師審核（簽名年月日
實驗報告
1.實驗報告名稱：選擇、迴圈、陣列和過程綜合程式設計
2.實驗原理:
1．將隨機產生的80個整數存入陣列，按每行10個數輸出到窗體或文字框中。
2．偶數和奇數也分別存入陣列，將排好序的偶數和奇數分別輸出到窗體或兩個文字框中。
3．用sub子過程或function函式過程判斷隨機整數是否為素數。
4．將素數按每行10個數在窗體或文字框中輸出。
5．將素數的個數及求和結果輸出到窗體或文字框中。
6．介面由學生自行設計。
3.流程圖
見下頁。
4.屬性設定**
5.程式**
dim a(1 to 80) as integer
private sub command1_click()
for i = 1 to 80
a(i) = int(90 * rnd + 10)
text1 = text1 & a(i) & " "
if i mod 10 = 0 then text1 = text1 & chr(13) & chr(10)
next
end sub
private sub command2_click()
for i = 1 to 80
if a(i) mod 2 = 0 then n = n + 1: a(n) = a(i)
next
show
for i = 1 to n - 1
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
next
for i = 1 to n
text2 = text2 & a(i) & " "
if i mod 10 = 0 then text2 = text2 & chr(13) & chr(10)
next
end sub
private sub command3_click()
for i = 1 to 80
if a(i) mod 2 <> 0 then n = n + 1: a(n) = a(i)
next
show
for i = 1 to n - 1
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
next
for i = 1 to n
text3 = text3 & a(i) & " "
if i mod 10 = 0 then text3 = text3 & chr(13) & chr(10)
next
end sub
private function check(m as integer) as boolean
dim k as integer, f as integer
f = true
for k = 2 to m - 1
if m mod k = 0 then
f = false
end if
next k
check = f
end function
private sub command4_click()
dim m as integer
for i = 1 to 80
if check(a(i)) then n = n + 1: a(n) = a(i)
next
for i = 1 to n
m = m + a(i)
text4 = text4 & a(i) & " "
if i mod 10 = 0 then text4 = text4 & chr(13) & chr(10)
next
= "素數的個數:" & n & chr(10) & "素數之和：" & m
end sub
PS完整版實驗報告
實驗一工具箱及圖層面板的使用 實驗學時 4學時 一 實驗目的 1 熟練掌握photoshop工具箱中各種工具的使用方法。2 重點掌握選框工具 磁性套索工具 修復工具 漸變工具的使用。3 對圖層面板有乙個初步的認識。二 實驗原理 1 選框工具 矩形選框工具 橢圓選框工具 單行 列 選框工具及引數設定 ...
C程式設計實驗報告完整版
工程學院 實驗報告 課程名稱 c程式設計 課程 8234510 學院 直屬系 年級 專業 班 2010級汽電1班 學生姓名 學號 31201008030 實驗總成績 任課教師 開課學院 工程學院 實驗中心名稱 交通實驗中心 西華大學實驗報告 理工類 開課學院及實驗室 汽車學院機房 5d 215實驗時...
編譯原理實驗報告完整版河北工業
編譯原理實驗報告 班級姓名學號 自我評定 75 實驗一詞法分析程式實現 一 實驗目的與要求 通過編寫和除錯乙個詞法分析程式，掌握在對程式語言的源程式進行掃瞄的過程中，將字元形式的源程式流轉化為乙個由各類單詞符號組成的流的詞法分析方法。二 實驗內容 根據教學要求並結合學生自己的興趣和具體情況，從具有代...