南京工程學院
電力工程學院
2010/ 2011 學年第 2 學期
實驗報告
課程名稱 vb語言程式設計
實驗專案名稱選擇和迴圈結構程式設計
實驗學生班級
實驗學生姓名
同組學生姓名
實驗時間 2023年3月21 日
實驗地點電力工程基礎實驗室
實驗報告成績評閱教師簽字
年月日電力工程學院二oo七年制
說明1. 實驗報告為實驗的重要考核依據之一， 每個實驗必須定乙份實驗報告. 本實驗報告原則上要求手寫。
2.本實驗報告各項內容的具體格式、字數可由指導教師根據實驗具體情況提出具體要求。各項內容可另附頁，為便於歸檔，附頁尺寸不得大於本實驗報告尺寸，並注意粘牢於附頁貼上處。
3. 實驗報告封面中的 「實驗名稱」 應為實驗教學大綱上所列的規範名稱， 「實驗地點」應寫出實驗室的具體名稱。請確認無誤後再填寫。
4. 實驗報告的建議格式為：
一、實驗目的和要求；
二、主要實驗儀器和裝置；
三、本次實驗內容
（一）實驗專案名稱（按本次實驗各專案填寫）
1、原理或接線圖
2、實驗步驟及注意事項
3、實驗預習過程中所遇到問題
……四、實驗記錄及資料處理（主要內容包括實驗具體實施步驟實驗原始資料、 計算過程與結果、 資料曲線、 圖表等。 具體格式按指導教師要求）
五、實驗結論（主要內容包括本實驗小結、 實驗體會或疑問等。具體格式按指導教師要求）
5. 實驗成績由實驗預習、實驗表現、 實驗報告三部分組成。其中前兩項各佔總成績的30%。
實驗報告成績依據報告的科學性、全面性、規範性及書寫態度綜合考核。 實驗報告採用百分制， 佔實驗總成績的40%， 教師請閱本報告後需簽字並給出實驗報告百分制成績。
6. 實驗報告需按要求時間以班級為單位交給指導教師，最長時間不得超過兩周，實驗報告如有明顯抄襲者或不交者，實驗總評成績按 0 分記。
一、實驗目的
通過實驗掌握vb的選擇和迴圈結構程式設計方法。
二、實驗裝置
1．pc機一台；2．vb 6.0整合開發環境。
三、實驗內容及要求
1. 勾股定理中3個數的關係為，編寫程式輸出30以內所有滿足勾股定理的整數組合。顯式結果如下，注意顯示格式整齊。
2.使用vb設計乙個關於抑鬱心理的測試。使用者對以下10個問題進行回答，並根據回答結果給出結論。
①總是覺得悶悶不樂，情緒低沉；
②很想或者一陣陣的哭出來；
③晚上睡眠不好；
④發覺體重在下降；
⑤覺得以前經常做的事情，現在總是有困難；
⑥對將來感覺沒有什麼希望；
⑦做出決定很不容易；
⑧比平常容易激動；
⑨坐立不安難以保持平靜；
⑩無緣無故感到疲乏。
每個問題都有a. 很少有 b.有時有 c.
經常有 d.絕大部分時間有四個選項，其中a為5分，b為3分，c為1分，d為0分。總計5分及以下為抑鬱情緒嚴重；總計5~19分為有一定抑鬱傾向；總計20分及以上為無抑鬱問題。
程式執行介面如下：
四、說明
事件過程驅動順序：
單擊「開始測試」命令按鈕，顯示下一題題目；
單擊abcd選項按鈕，得分增加，題目編號增加，呼叫單擊「開始測試按鈕」的事件過程
如果題目編號到11，顯示最後結果
在某個事件過程中呼叫另外乙個事件過程的方法:直接書寫其sub過程名稱
五、程式**草稿
六、實驗結果
1.符合勾股定理的30以內的整數
**：private sub form_click()
dim a as integer, b as integer, c as integer, n as integer
show
form1.height = 5700
print spc(17); "a^2+b^2=c^2"
n = 0
for a = 1 to 30
for b = 1 to 30
for c = 1 to 30
if a ^ 2 + b ^ 2 = c ^ 2 then
n = n + 1
print n; ":"; tab(7); "a="; a; tab(22); "b="; b; tab(36); "c="; c
end if
next c
next b
next a
end sub
執行截圖：
2.心理測試
**：public sum as integer, n as integer
private sub form_load()
show
n = 0
sum = 0
la1 n
la2 n, sum
end sub
private sub ***mand1_click()
if n > 0 and n < 12 then
n = n + 1
sum = sum + 5
la1 n
la2 n, sum
end if
end sub
private sub ***mand2_click()
if n > 0 and n < 12 then
n = n + 1
sum = sum + 3
la1 n
la2 n, sum
end if
end sub
private sub ***mand3_click()
if n > 0 and n < 12 then
n = n + 1
sum = sum + 1
la1 n
la2 n, sum
end if
end sub
private sub ***mand4_click()
if n > 0 and n < 12 then
n = n + 1
sum = sum + 0
la1 n
la2 n, sum
end if
end sub
private sub ***mand5_click()
n = 1
sum = 0
la1 n
la2 n, sum
end sub
private sub la1(n as integer)
select case n
case 0
label1.caption = "心理測試"
case 1
label1.caption = "①總是覺得悶悶不樂，情緒低沉"
case 2
label1.caption = "②很想或者一陣陣的哭出來"
case 3
label1.caption = "③晚上睡眠不好"
case 4
label1.caption = "④發覺體重在下降"
case 5
label1.caption = "⑤覺得以前經常做的事情，現在總是有困難"
case 6
label1.caption = "⑥對將來感覺沒有什麼希望"
case 7
label1.caption = "⑦做出決定很不容易"
case 8
label1.caption = "⑧比平常容易激動"
case 9
label1.caption = "⑨坐立不安難以保持平靜"
case 10
label1.caption = "⑩無緣無故感到疲乏?"
case 11
label1.caption = ""
end select
end sub
private sub la2(n as integer, sum as integer)
if n = 0 then
label2.caption = ""
elseif n < 11 then
label2.caption = "a. 很少有 b.有時有 c.經常有 d.絕大部分時間有"
else
select case sum
case is < 5
label2.caption = "抑鬱情緒嚴重"
case is < 19
label2.caption = "有一定抑鬱傾向"
case else
label2.caption = "無抑鬱問題"
end select
end if
end sub
截圖：①②③
④七、實驗中遇到的問題與解決方法或實驗收穫
注：附頁可貼上於此頁，注意貼上整齊，不要超過頁面邊界。
實驗VB選擇結構程式設計
實驗目的 1 了解選擇結構的結構特點 2 掌握if條件語句的使用方法 3 掌握case語句的使用方法 實驗內容 例1 稅務部門徵收所得稅，規定如下 用if語句實現 當收入為200 元以內 含200元 時，免徵 當收入為 200 400 元 含400元 時，將超過 200 元的部分納稅 3 當收入為 ...
VB選擇結構程式設計
阜陽市一職高 尚克震2008年10月15日第一節課 07計 1 教學目標分析 通過教師引導學生去 發現技術背後所蘊含的技術價值和技術思想，使其獲得知識與技能的同時，理解和掌握過程與方法，這樣才能夠學會認知，學會做事，乃至學會生活，提高終生學習的能力 分析解決問題的能力，滿足其終身發展的需要，成為適應...
VB程式設計選擇結構
寧國市三津中學陳輝 一 教材分析 選擇控制結構是程式的三個基本結構中的乙個重要結構，計算機的邏輯判斷能力就是通過選擇結構來完成的。條件語句中的 條件 是用關係表示式 邏輯表示式來描述的。程式中能否實現正確的 選擇 決定於關係表示式或邏輯表示式的正確描述。用選擇結構編寫簡單的程式解決具體問題是在學生已...