實驗報告
學院專業年級：
姓名學號實驗室號計算機號：
實驗日期： 年月日指導教師簽字成績：
報告退發 (訂正 、 重做
實驗三、選擇結構程式設計
一、實驗目的
1、掌握if語句的使用。
2、掌握select case語句的使用及其與if語句的區別。
二、實驗內容
1、請編一程式（程式介面如圖3-1），用於根據輸入的學生成績查詢對應的獎勵情況，條件如下：三門總分不低於270分（含270），特等獎；三門總分240分（含240分）~270分（不含270分），優秀獎；總分低於240分，但某一單科成績不低於95分，特別獎。
2、對任意輸入的三個數按從小到大的順序顯示出來，執行結果參考圖3-2。要求：程式中不得使用迴圈結構和轉向語句；掌握兩個數交換的方法。
3、簡單計算器的實現（介面參考圖3-3a）。要求：使用select case語句和if語句；能進行+、-、*、/、\和mod六種運算；有基本的資料合法性和運算子合法性檢驗報錯能力（如圖3-3b和圖3-3c）。
三、實驗環境
硬體：pc機
軟體：windows作業系統；visual basic 6.0
四、實驗步驟
1、（題目要求見內容部分，略）
a、介面設計：
1) 布局設計：按下圖布局在主窗體form1上放置三個標籤（label1、label2和label3），四個文字框（text1、text2和text3）和乙個命令按鈕（command1）。
2) 按下錶設定各物件屬性。
3) 雙擊command1，開啟**視窗編寫**。
b、**設計：
private sub command1_click()
' 變數宣告：四個整型變數，分別存放三科成績和總成績。
dim intscore1 as integer, intscore2 as integer, intscore3 as integer
dim intsum as integer
' 接受輸入，將三個文字框中的成績分別轉換成數值型資料，存入對應的變數中。
intscore1 = cint (
intscore2 = cint (
intscore3 = cint (
intsum = intscore1 + intscore2 + intscore3
' 輸出總分
= intsum
' 開始判斷：總分》= 270嗎？是，則用msgbox彈出「獲得特等獎」的通知。
if intsum >= 270 then
msgbox "您獲得了特等獎！", , "獲獎通知"
' 否則，繼續判斷：總分》=240嗎？是，則通知「獲得優秀獎」。
elseif intsum >= 240 then
msgbox "您獲得了優秀獎。", , "獲獎通知"
' 不是，繼續判斷：存在任意單科成績》=95嗎？是，則通知「獲得特別獎」。
elseif (intscore1 >= 95) or (intscore2 >= 95) or (intscore3 >= 95) then
msgbox "您獲得了特別獎。", , "獲獎通知"
else
msgbox "您未獲獎。", , "獲獎通知"
end if
' 鼓勵歸併的獲獎通知輸出*。
end sub
2、（題略）
a、介面設計：
1) 按下圖布局在主窗體frmsort上畫出各所需控制項。
2) 屬性設定（列表）：
b、**設計：
private sub cmdsort_click()
' 宣告3個整型變數，分別存放最小值、中間值和最大值。
dim intmin%, intmid%, intmax
' 宣告1個整形臨時變數，用於交換過程。
dim inttemp%
' 接受輸入，未比較前不妨假定x intmin = cint (
intmid = cint (
intmax = cint(
' 比較前兩個數，小的放入intmin，大的放入intmid。
if intmin > intmid then
intmin中的數比intmid中的還大，開始交換。
inttemp = intmin
intmin = intmid
intmid = inttemp
end if
' intmid中已是前兩數中較大者，與第三個數比較，確定大者（最大數）後放入intmax。
if intmid > intmax then
inttemp = intmid
intmid = intmax
intmax = inttemp
end if
現在intmin和intmid中的數都比intmax中的小，但哪個更小？還需再次比較。
if intmin > intmid then
inttemp = intmin
intmin = intmid
intmid = inttemp
end if
比較結束，輸出
= cstr (intmin)
= cstr (intmid)
= cstr (intmax)
引導學生考慮更通用的**：直接以字串形式排序，並考慮更多個數的排序。
為下章的迴圈排序做鋪墊性思考。
end sub
3、（題略）
a、介面設計：
1) 布局設計（作圖）：
2) 屬性設定（列表）：
b、 **設計：
private sub cmdcalc_click()
' 變數宣告
dim intop1%, intop2%, sngresult! ' 整數1，整數2和單精度結果
dim stropr運算子
' 接受輸入
intop1 = cint(
intop2 = cint(
stropr =
select case stropr針對不同運算子選擇不同的情況分支
case "+"
sngresult = intop1 + intop2
case "-"
sngresult = intop1 - intop2
case "*"
sngresult = intop1 * intop2
case "/"
if intop2 = 0 then
msgbox "分母為零，請重新輸入。", vbcritical + vbokonly, "出錯"
else
sngresult = intop1 / intop2
end if
case "\"
if intop2 = 0 then
msgbox "分母為零，請重新輸入。", vbcritical + vbokonly, "出錯"
else
sngresult = intop1 / intop2
end if
case "mod"
if intop2 = 0 then
msgbox "分母為零，請重新輸入。", vbcritical + vbokonly, "出錯"
else
sngresult = intop1 / intop2
end if
case else
msgbox "無法識別的運算子，請重新輸入。", vbcritical + vbokonly, "出錯"
end select
' 輸出結果
= cstr(sngresult)
end sub
private sub cmdend_click()
endend sub
五、實驗除錯與結果分析
（描述實驗的除錯過程，實驗中發生的現象、中間結果、最終得到的結果，並進行分析說明，分析可能的誤差或錯誤原因等）
六、總結
（說明實驗過程中遇到的問題及解決辦法；新發現或個人的收穫；未解決/需進一步研討的問題或建議新實驗方法等）
實驗VB選擇結構程式設計
實驗目的 1 了解選擇結構的結構特點 2 掌握if條件語句的使用方法 3 掌握case語句的使用方法 實驗內容 例1 稅務部門徵收所得稅，規定如下 用if語句實現 當收入為200 元以內 含200元 時，免徵 當收入為 200 400 元 含400元 時，將超過 200 元的部分納稅 3 當收入為 ...
VB選擇結構程式設計
阜陽市一職高 尚克震2008年10月15日第一節課 07計 1 教學目標分析 通過教師引導學生去 發現技術背後所蘊含的技術價值和技術思想，使其獲得知識與技能的同時，理解和掌握過程與方法，這樣才能夠學會認知，學會做事，乃至學會生活，提高終生學習的能力 分析解決問題的能力，滿足其終身發展的需要，成為適應...
VB程式設計選擇結構
寧國市三津中學陳輝 一 教材分析 選擇控制結構是程式的三個基本結構中的乙個重要結構，計算機的邏輯判斷能力就是通過選擇結構來完成的。條件語句中的 條件 是用關係表示式 邏輯表示式來描述的。程式中能否實現正確的 選擇 決定於關係表示式或邏輯表示式的正確描述。用選擇結構編寫簡單的程式解決具體問題是在學生已...