浙江大學城市學院實驗報告
課程名稱vb程式設計基礎與實驗
實驗專案名稱實驗
四、分支結構程式設計
學生姓名專業班級學號
實驗成績指導老師（簽名日期
一. 實驗目的和要求
1.掌握單分支與雙分支條件語句if的使用。
2.掌握多分支條件語句的使用。
3.掌握情況語句select case的使用及其與多分支條件語句的區別。
二. 實驗內容和原理
【練習4-1】研究下面的**段，畫程式流程圖，當輸入93，81，74，65，42時，寫出窗體中顯示的結果。
private sub form_click()
score = val(inputbox("輸入成績"))
if score < 60 then print "不合格"
if score >= 60 and score<85 then print "合格"
if score >= 85 then print "優秀"
end sub
引伸1若把程式**寫成如下形式，畫出它的流程圖。問當輸入成績為90分時，顯示什麼結果？為什麼？用巢狀塊if語句應如何寫？
private sub form_click()
score = val(inputbox("輸入成績"))
if score >= 85 then st= "優秀"
if score < 60 then
st=」 不合格」
else
st="合格"
end if
print st
end sub
引伸2若把程式寫成如下形式，當輸入成績為90、80、50時，顯示什麼結果？畫出流程圖。
private sub form_click()
score = val(inputbox("輸入成績"))
if score >= 85 then
print "優秀"
elseif score >= 60 then
print "合格"
else
print "不合格"
end if
end sub
除錯執行以上程式，採用單步跟蹤的方法（按f8）檢視程式執行流程，進一步加深對分支結構的理解。
【練習4-2】 研究下面的**段。
dim flag as integer注①dim falg as integer
private sub form_click()
if flag = 0 then
"歡迎使用visual basic!"
flag = 1
elseif flag = 1 then
flag = 0
end if
end sub
問題(1)在窗體上單擊三下，窗體中顯示什麼結果？
第一次：歡迎使用visual basic!
第二次：
第三次：歡迎使用visual basic
(2)注意變數flag定義的位置，在這個位置定義的變數稱作整型變數 。若把變數flag變數定義放在form_click()事件過程裡，如：
private sub form_click()
dim flag as integer
if flag = 0 then
……在窗體上單擊三下，此時程式的執行結果怎樣？
第一次：歡迎使用visual basic!
第二次：歡迎使用visual basic!
第三次：歡迎使用visual basic
(3)若要求窗體顯示的字型是隸書18號字，該如何補充程式？
(4)若把程式**修改如下,
dim flag as integer
private sub form_click()
if flag = 0 then "歡迎使用visual basic!":flag=1
if flag = 1 then flag = 0
end sub
問出現什麼結果，為什麼？
(5)若在form_click()事件過程中第一行的變數名flag拼寫錯了，寫成了falg，如注①所示，則程式執行結果如何？為什麼？
【練習4-3】根據所輸入的百分制成績score，給出相應的五級計分等級，即「優秀」 (score>=90)，「良好」(80<=score<90)，「中」(70<=score<80)，「及格」(60<=score<70)，「不及格」(score<60)， 用elseif語句完成，請把下面的程式填寫完整。
dim score as integer
private sub form_click()
score = val(inputbox("輸入成績"))
if score>=90 then
print 「優秀」
elseif score>=80 then
補充elseif語句
end sub
引伸若把上面的elseif語句改寫成塊if語句，該如何補充完整。
if score>=90 then
print 「優秀」
else
if score>=80 then
補充塊if語句
end sub
【練習4-4】根據所輸入的百分制成績score，給出相應的五級計分等級，用select case語句完成錯誤1 *******」提示資訊的下一行是錯誤的，改正有錯的語句並除錯完成程式。
private sub command1_click()
dim score as single
score = val(
錯誤1 *******
select case x
』****** 錯誤2 *******
case x >= 90
= "優秀"
』****** 錯誤3 *******
case x<90 and x>=80
= "良好"
』****** 錯誤4 *******
case x >= 70 and x<80
= "中"
』****** 錯誤5 *******
case x >= 60
= "及格"
case else
= "不及格"
end select
end sub
除錯執行程式，執行介面參考圖3-23。
圖3-23 練習三程式執行介面
【練習4-5】程式設計，在窗體上迴圈輸出字串「歡迎使用visual basic」。第一次單擊窗體時以紅色顯示；第二次單擊時以綠色顯示；第三次單擊時以籃色顯示；第四次單擊時則清除窗體上的資訊；第五次又重新開始。
引伸若要求依次單擊窗體時，所顯示字型的字型大小在原來基礎上遞增5，該如何修改？
三. 討論、心得（必須做）
VB實驗報告
台州學院 vb程式設計 實驗報告 實驗二 visual basic 程式設計基礎 班級 14生科2 學號 1431210034 姓名 何敏 實驗日期 20150331 一 實驗目的和要求 1 掌握基本語句 print語句 賦值語句 dim語句等 的使用 2 掌握表示式的正確書寫方法及函式 運算子的正...
VB實驗報告
內蒙古工業大學能動學院 課程名稱 高階語言程式設計 vb 實驗名稱 選擇 迴圈 陣列和過程綜合程式設計 實驗型別 驗證性 綜合性 設計性 實驗室名稱 校計算中心 班級 學號 姓名 組別 同組人成績 實驗日期 實驗報告撰寫要求 一 實驗前用預習報告紙撰寫預習報告，預習報告包括以下內容 1 實驗目的 2...
VB實驗報告
台州學院 vb程式設計 實驗報告 實驗四 迴圈結構程式設計 班級 11物理 學號 1130010009 姓名 廖建旭 實驗日期 2012.03.30 一 實驗目的和要求 1 掌握for語句的使用 2 掌握do loop與do loop兩種形式的使用 3 掌握如何控制迴圈條件，防止死迴圈或不迴圈 4 ...