【實驗目的】
1．掌握順序結構程式設計的方法
2．掌握邏輯表示式的正確書寫形式。
3．掌握單分支與雙分支條件語句的使用。
【實驗內容】
1、 建立vb工程，介面如右所示，程式設計實現執行時可將文字框中的文字字型大小隨機放大（1~5整數倍）和（任意比例）縮小以及還原（原來字型大小）。介面如右圖所示。
private sub command1_click()
= 12
= * int(5 * rnd() + 1)
end sub
private sub command2_click()
= * rnd()
end sub
private sub command3_click()
= 12
end sub
2、程式設計實現隨機產生乙個「f」~「s」範圍內的大寫字母，並輸出該字母及其對應的ascii碼值，同時輸出其小寫字母及其對應的ascii碼的值。
【提示】可利用隨機函式、取整函式和轉換函式來實現。
private sub command1_click()
dim s as string
s = chr(int(rnd * 14) + 70)
print "隨機生成字母" & s & "； 他的小寫字母為 " & lcase(s) & "；他的ascii碼為 " & asc(s)
end sub
3、輸入一串字串c，判斷字串c中的第三個字元是「c」時，利用msgbox顯示「yes」，否則顯示「no」
【注意】字串c與字元「c」的區別。
private sub form_click()
dim c as string
c = inputbox("請輸入字串符", "判斷字元")
if lcase(mid(c, 3, 1)) = "c" then
msgbox "yes"
else
msgbox "no"
end if
end sub
4、輸入乙個年份，判斷它是否為閏年，並輸出是否為閏年的相關資訊。
【提示】判斷閏年的條件是：年份能被4整除但不能被100整除；或者是能被400整除private sub form_click()
dim m!
m = inputbox("請輸入乙個年份", , "年份輸入")
if (m mod 4) = 0 and ((m mod 100) <> 0) then
msgbox "該年份是閏年", , "閏年判斷"
else
msgbox "該年份不是閏年", , "閏年判斷"
end if
end sub
。如：1900、2100、2023年不是閏年；2008、2023年是閏年。
5、課堂示例「字串替換」，使用多個函式完成時，如果源字串中沒有要查詢的子串，程式就會出錯。修改程式當沒有要查詢的子串時，彈出「沒有找到的」提示框，並將源串放到結果文字框中。
private sub command1_click()
i = instr(text1, text2)
if i = 0 then
msgbox "沒有找到", , "顯示"
else
k = i + len(text2)
ls = left(text1, i - 1)
text4 = ls + text3 + mid(text1, k)
end if
end sub
private sub command2_click()
text4 = replace(text1, text2, text3)
end sub
【提示】instr(c1,c2) 在c1中查詢c2是否存在，若找不到，結果為0。
6、猜數字遊戲：事先設定的乙個數字（如6），程式提示使用者輸入乙個1～10之間的整數，如果輸入的數字與事先設定的數字相同，則提示「輸入正確」，否則顯示「錯了」。
private sub command1_click()
dim c!
= 6c = inputbox("程式提示使用者輸入乙個1-10之間的整數", , int(10 * rnd) + 1)
if c = then
msgbox "輸入正確", , "提示"
else
msgbox "錯了", , "顯示"
end if
end sub
【提高題】修改上面程式，當輸入的值比設定的數字小，顯示「錯了，你猜得小了。」；輸入的值比設定的大，則顯示「錯了，你輸入的太大了。」
【提示】本實驗屬於多分支結構。
private sub command1_click()
dim c!
= 6c = inputbox("程式提示使用者輸入乙個1-10之間的整數", , int(10 * rnd) + 1)
if c < then
msgbox "錯了，你猜得太小了", , "顯示"
elseif c > then
msgbox "錯了，你猜得太大了", , "顯示"
elseif c = then
msgbox "輸入正確", , "顯示"
else
msgbox "錯了", , "顯示"
end if
end sub
【提高題】通過inputbox函式任意輸入三條邊長，經過簡單的計算後，判斷三條邊長能否構成三角形，並在文字框中顯示結果。
【提示】構成三角形，必須保證任意兩邊的和大於第三邊
private sub command1_click()
dim a!, b!, c!
a = val(inputbox("a="))
b = val(inputbox("b="))
c = val(inputbox("c="))
if a + b > c and b + c > a and a + c > b then
= "能構成三角形"
else
= "不能構成三角形"
end if
end sub
【選作題】程式設計實現**號碼自動公升位。要求將原來任意乙個帶區號的7位**號碼公升到8位，在**號碼最前面加8。程式執行結果如圖所示。（要求必須適用於3位或4位區號的**號碼）
private sub command1_click()
dim a as string
a =b = instr(a, "-")
= left(a, b) & "8" & right(a, 7)
end sub
實驗四選擇結構程式設計
實驗目的 1 了解c語言表示邏輯量的方法 以0代表 假 以非0代表 真 2 學會正確使用邏輯表示式表示條件的方法 3 掌握switch break語句的用法 4 熟悉選擇結構程式段中語句的執行過程 5 學會設計有實際價值的分支結構程式。實驗時數 2學時 實驗內容 一 新建資料夾 首先在各自對應的計算...
實驗四選擇結構程式設計
1 正確使用關係表示式和邏輯表示式表達條件。2 學習分支語句if和switch的使用方法。3 進一步熟悉tc整合環境的使用方法，學習tc環境提供的除錯工具。1 除錯下列程式，使之具有如下功能 輸入a b c三個整數，求最小值。寫出除錯過程。main 程式中包含有一些錯誤，按下述步驟進行除錯。設定觀測...
上機實驗四選擇結構程式設計
一 目的要求 1 掌握6個關係運算子 3個邏輯運算子的基本概念 基本屬性 運算規則。2 掌握if語句的3種形式及對應的語法規則 執行流程，switch語句的語法規則 執行流程。3 按題目要求，完成上機實驗報告。二 實驗內容 思考問題 相等比較運算子與賦值運算子的區別？如何表示複雜條件？邏輯表示式的求...