03 林家民

[ Visual Basic
檔]
學 習
作者-林家民
指導老師-劉玉敏

目錄
第一章:認識作業系統與程式語言
第二章:資料型別與基本輸入指令
第三章:Visual B asic控制物件
第四章:程式設計概念
第五章:條件結構
第六章:重複結構
第七章:陣列
第八章:排序與搜尋
第九章:結構化程式設計
第十二章:資料檔案

題目說明:圓面積計算,請輸入半徑之後點下計算求得圓的面積
檔案名稱:03 \ ch1 \ P.30
表單:
程式碼:
Private Sub Command1_Click()
Const pi = 3.14159
Dim r As Single
Dim area As Single
r = Val(Text1.Text)
area = pi * r ^ 2
Text2.Text = area
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
執行結果:

題目說明:BMI 計算,請輸入身高和體重之後按下計算求得 BMI 值,按取消
則可重新輸入
檔案名稱:03 \ ch1 \ P.34
表單:
程式碼:
Private Sub Command1_Click()
Dim H, W, bmi As Single
H = Val(TEXT1.Text) / 100
W = Val(Text2.Text)
bmi = W / (H ^ 2)
Label3.Caption = Label3.Caption & bmi
End Sub
Private Sub Command2_Click()
TEXT1.Text = ""
Text2.Text = ""
Label3.Caption = "你的 BMI 值:"
End Sub
Private Sub Command3_Click()
End
End Sub
執行結果:

題目說明:設計一個計算三角形面積的程式,利用 InputBox 函數讓使用者在輸
入交談窗中輸入三角形的底和高,並以 MsgBox 敘述顯示計算結果。
檔案名稱:03 \ ch2 \ P.75
表單:
程式碼:
Private Sub Form_Activate()
Dim x, y, a As Integer
x = InputBox("請輸入底邊長", "三角形面積")
y = InputBox("請輸入高", "三角形面積")
a = (x * y) / 2
MsgBox "三角形面積為" & a & "平方單位", , "三角形面積"
Close
End
End Sub
執行結果:

題目說明:設計一個歡迎使用者登入系統的程式,利用 InputBox 函數讓使用者
在輸入交談窗中輸入自己的姓名,再以 MsgBox 敘述顯示歡迎光臨
的訊息。
檔案名稱:03 \ ch2 \ P.76
表單:
程式碼:
Private Sub Form_Activate()
Dim name As String
Form1.Hide
name = InputBox("請輸入大名", "歡迎光臨")
MsgBox name & "同學您好" & ",歡迎光臨", 0, "Welcome"
End
End Sub
執行結果:

題目說明:請利用屬性視窗,設定表單的屬性
檔案名稱:03 \ ch3 \ P.91
表單:
程式碼:
Private Sub Form_Click()
Form1.BackColor = &HFF&
End Sub
Private Sub Form_DblClick()
Form1.BackColor = &HFF00FF
End Sub
執行結果:

題目說明:使用兩個按鈕控制物件,讓使用者按下放大鈕時,可放大輸出在表
單上字串(“Basic”)的字體大小;在按鈕縮小鈕時,則縮小輸出在表
單上字串的字體大小
檔案名稱:03 \ ch3 \ P.99
表單:
程式碼:
Private Sub Command1_Click()
Form1.FontSize = Form1.FontSize + 3
Print "Basic"
End Sub
Private Sub Command2_Click()
Form1.FontSize = Form1.FontSize - 3
Print "Basic"
End Sub
執行結果:

題目說明:使用一個標籤來顯示腦筋急轉彎的題目,並在使用者按下謎底揭曉
鈕後,在另一個標籤中顯示解答
檔案名稱:03 \ ch3 \ P.102
表單:
程式碼:
Private Sub Command1_Click()
Label2.Visible = True
End Sub
執行結果:

題目說明:在表單上佈建兩個文字方塊控制物件,並讓使用者輸入於其中,並
觀察其變化。
檔案名稱:03 \ ch3 \ P.105
表單:
程式碼:
Private Sub Command1_Click()
MsgBox "你的帳號為" & Text2.Text, , "登入成功"
End Sub
Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Text1_LostFocus()
If Len(Text1.Text) 6 Then
MsgBox "帳號應為 6 個數!", , "請重新輸入"
End If
End Sub
執行結果:

題目說明:設計一個類似聊天室的程式,可讓兩個使用者在表單上進行聊天
檔案名稱:03 \ ch3 \ P.111
表單:
程式碼:
Private Sub Command1_Click()
Text3.Text = Text3.Text & Label1.Caption & Text1.Text & vbCrLf
Text1.Text = " "
End Sub
Private Sub Command2_Click()
Text3.Text = ""
End Sub
Private Sub Command3_Click()
Text3.Text = Text3.Text & Label2.Caption & Text2.Text & vbCrLf
Text2.Text = " "
End Sub
執行結果:

題目說明:設計一個簡易的遊戲程式,讓使用者可在兩個影像相異部份的上單
按滑鼠左鍵
檔案名稱:03 \ ch3 \ P.112
表單:
程式碼:
Private Sub Picture1_Click()
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Image1_Click()
End Sub
Private Sub Image2_Click()
MsgBox "不對哦", , "沒找到"
End Sub
Private Sub Label2_Click()
MsgBox "好棒哦", , "找到了"
Label2.Enabled = False
End Sub
Private Sub Label3_Click()
MsgBox "好棒哦", , "找到了"
Label3.Enabled = False
End Sub
Private Sub Label4_Click()
MsgBox "好棒哦", , "找到了"
Label4.Enabled = False
End Sub
Private Sub Label5_Click()
MsgBox "好棒哦", , "找到了"

Label5.Enabled = False
End Sub
Private Sub Label6_Click()
MsgBox "好棒哦", , "找到了"
Label6.Enabled = False
End Sub
Private Sub Label7_Click()
MsgBox "好棒哦", , "找到了"
Label7.Enabled = False
End Sub
Private Sub Label8_Click()
MsgBox "好棒哦", , "找到了"
End Sub
執行結果:

題目說明:輸入使用者的西元年月份以計算其年齡
檔案名稱:03 \ ch4 \ P.128
表單:
程式碼:
Private Sub Form_Activate()
Dim age As Integer
age = InputBox("請輸入西元的出生年份", "計算年齡")
age = 2009 - age
MsgBox "您的年齡為" & age & "歲", , "年齡"
End Sub
執行結果:ex.輸入 1992

題目說明:輸入購物金額,弱金額為 3000 以上則給予折扣八五折,若沒則為原
價錢
檔案名稱:03 \ ch4 \ P.129
表單:
程式碼:
Private Sub Form_Activate()
Dim amount As Integer
amount = InputBox("請輸入購物金額", "金額輸入")
If amount = 3000 Then
amount = 3000 * 0.85
MsgBox "您的購物金額為" & amount, , "金額顯示"
Else
MsgBox "您的購物金額為" & amount, , "金額顯示"
End If
End Sub
執行結果:ex.輸入 3000

題目說明:判斷成績是否大於等於 60?若是,便顯示”成績及格”的訊息
檔案名稱:03 \ ch5 \ P.135-1
表單:
程式碼:
Private Sub Form_Activate()
Dim score As Integer
score = InputBox("請輸入成績", "成績輸入")
If score >= 60 Then MsgBox "成績及格了", 48, "恭喜"
If score < 60 Then MsgBox "成績不及格", 16, "再加油"
End Sub
執行結果:ex.輸入 60

題目說明:判斷購票者是否為學生身分?若是,則以七折來計算電影票價
檔案名稱:03 \ ch5 \ P.135-2
表單:
程式碼:
Private Sub Form_Activate()
Dim price As Integer
Dim ans As String
price = 250
ans = InputBox("如果為學生請輸入 Y,不是請輸入 N", "身份確認")
If ans = "Y" Or ans = "y" Then
price = price * 0.7
MsgBox "學生票價為:" & price, , "顯示票價"
End If
If ans = "N" Or ans = "n" Then
price = price
MsgBox "您的票價為:" & price, , "顯示票價"
End If
End Sub
執行結果:ex.輸入 Y

題目說明:判斷成績是否大於等於 60?若是,則顯示”成績及格”的訊息,否則,
就顯示”成績不及格”的訊息
檔案名稱:03 \ ch5 \ P.138
表單:
程式碼:
Private Sub Form_Activate()
Dim score As Integer
score = InputBox("請輸入成績", "成績輸入")
If score >= 60 Then
MsgBox "成績及格了", 48, "恭喜"
Else: MsgBox "成績不及格", 16, "再加油"
End If
End Sub
執行結果:ex.輸入 60

題目說明:判斷視力檢測值是否介於 0.8(不含) ~ 1.2 之間?若是,則顯示”視力
正常”的訊息,否則,就顯示” 視力可能需要矯正”的訊息
檔案名稱:03 \ ch5 \ P.139-1
表單:
程式碼:
Private Sub Form_Activate()
Dim x As Single
x = InputBox("請輸入視力檢測值", "視力檢測")
If x > 0.8 And x

題目說明:判斷月份為大月或小月
檔案名稱:03 \ ch5 \ P.139-2
表單:
程式碼:
Private Sub Form_Activate()
Dim m As Integer
m = InputBox("請輸入月份:", "月份輸入")
If m = 1 Or m = 3 Or m = 5 Or m = 7 Or m = 8 Or m = 10 Or m = 12 Then
MsgBox m & "月是大月", , "月份判斷"
Else
MsgBox m & "月是小月", , "月份判斷"
End If
End Sub
執行結果:ex.輸入 1

題目說明:依據年齡層來判斷可觀賞的影片等級;未滿 6 歲可觀賞普遍級,未
滿 12 歲可觀賞普遍級及保護級,未滿 18 歲可觀賞非限制級的影片,
18 歲(含)以上則可觀賞各級影片
檔案名稱:03 \ ch5 \ P.144
表單:
程式碼:
Private Sub Form_Activate()
Dim age As Integer
age = InputBox("請輸入年齡:", "年齡")
If age < 6 Then
MsgBox "可以觀看普遍級", , "可觀賞的 level"
Else
If age < 12 Then
MsgBox "可以觀看普遍級或保護及", , "可觀賞的 level"
Else
If age < 18 Then
MsgBox "可以觀看限制級以外的影訊", , "可觀賞的 level"
Else
MsgBox "可以看各級影片", , "可觀看的 level"
End If
End If
End If
End Sub
執行結果:ex.輸入 17

題目說明:依據體重來判斷男子跆拳道選手的參賽級別;體重介於 59~63(不含)
公斤為輕量級,68~73(不含)公斤為中量級,73~78(含)為重量級
檔案名稱:03 \ ch5 \ P.145
表單:
程式碼:
Private Sub Form_Activate()
Dim kg As Integer
kg = InputBox("請輸入體重", "體重輸入")
If kg >= 59 And kg < 63 Then
MsgBox "輕量級", , "參賽級別"
Else
If kg >= 63 And kg < 73 Then
MsgBox "中量級", , "參賽級別"
Else
If kg >= 73 Then
MsgBox "重量級", , "參賽級別"
End If
End If
End If
End Sub
執行結果:

題目說明:依據使用者輸入個人的身高、體重、及性別,來計算肥胖指數(Body
Mass Index,BMI),以判斷使用者是否肥胖
檔案名稱:03 \ ch5 \ P.148
表單:
程式碼:
Private Sub Command1_Click()
Dim h As Single, w As Single, bmi As Single
h = Val(Text1.Text) / 100
w = Val(Text2.Text)
bmi = Format(w / (h ^ 2), "##.#")
If (h >= 1 And h = 10 And w

題目說明:請利用巢狀 IF 判斷敘述,撰寫一個可依據輸入之年齡來判斷及顯示
所屬年齡層代稱的程式。13 歲(含)以下為童年;14~19 歲為少年;
20~30 為青年;31~55 為壯年;56(含)以上為老年
檔案名稱:03 \ ch5 \ P.153
表單:
程式碼:
Private Sub Form_Activate()
Dim age As Integer
age = InputBox("年齡輸入", "年齡")
If age = 14 And age = 20 And age = 31 And age = 56 Then
MsgBox "老年", , "判斷年齡層"
End Sub
執行結果:
End If
End If
End If
End If
End If

題目說明:依據使用者輸入的職棒球隊名稱,判斷球隊的吉祥物。興農隊的吉
祥物為牛;中信隊的吉祥物為鯨;LaNew 隊的吉祥物為熊;兄弟隊
的吉祥物為象;統一隊的吉祥物為獅;誠泰隊的吉祥物為蛇
檔案名稱:03 \ ch5 \ P.159
表單:
程式碼:
Private Sub Command1_Click()
Dim name As String
name = Text1.Text
Select Case name
Case Is = "興農"
Option1.Value = True
Case Is = "中信"
Option2.Value = True
Case Is = "LaNew"
Option3.Value = True
Case Is = "兄弟"
Option4.Value = True
Case Is = "統一"
Option5.Value = True
Case Is = "誠泰"
Option6.Value = True
Case Else
MsgBox "無此球隊,請重新輸入", , "輸入有誤"
Text1.Text = ""
Text1.SetFocus
End Select
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text1.SetFocus
End Sub
執行結果:ex.輸入興農

題目說明:請利用 Select Case 判斷敘述,撰寫可依據輸入之智力測驗成績來判
斷及顯示智力等級的程式。80~110 分為正常智力;111~120 分為高
智力;121~140 分為極高智力;141 則為天才。
檔案名稱:03 \ ch5 \ P.165
表單:
程式碼:
Private Sub Form_Activate()
Dim s As Integer
s = InputBox("請輸入智力測驗成績:", "測驗成績判斷")
Select Case s
Case 80 To 110
MsgBox "正常智力", , "測驗成果"
Case 111 To 120
MsgBox "高智力", , "測驗結果"
Case 121 To 140
MsgBox "極高智力", , "測驗結果"
Case Is >= 141
MsgBox "天才", , "測驗結果"
End Select
End Sub
執行結果:ex.輸入 120

題目說明:利用 Select Case 敘述及 If-Then-Else 敘述設計一個星座查詢的程式。
摩羯座 12/22~01/19、水瓶座 01/20~02/19、雙魚座 02/20~03/20、牡
羊座 03/21~04/20、金牛座 04/21~05/20、雙子座 05/21~06/21、巨蟹
座 06/22~07/22、獅子座 07/23~08/22、處女座 08/23~09/22、天秤座
09/23~10/22、天蠍座 10/23~11/21、射手座 11/22~12/21
檔案名稱:03 \ ch5 \ P.167
表單:
程式碼:
Private Sub Command1_Click()
Dim m, d As String
m = Text1.Text
d = Text2.Text
Select Case m
Case 1
If d >= 19 Then Option9.Value = True
If d = 19 Then Option9.Value = True
If d 20 Then Option1.Value = True
Case 4
If d < 21 Then Option1.Value = True
If d > 20 Then Option4.Value = True
Case 5
If d < 21 Then Option4.Value = True
If d > 20 Then Option7.Value = True
Case 6
If d < 22 Then Option7.Value = True
If d > 21 Then Option10.Value = True
Case 7
If d < 23 Then Option2.Value = True
If d > 22 Then Option10.Value = True
Case 8
If d < 23 Then Option2.Value = True

If d > 22 Then Option5.Value = True
Case 9
If d < 23 Then Option5.Value = True
If d > 22 Then Option8.Value = True
Case 10
If d < 23 Then Option8.Value = True
If d > 22 Then Option11.Value = True
Case 11
If d < 22 Then Option11.Value = True
If d > 21 Then Option3.Value = True
Case 12
If d < 22 Then Option3.Value = True
If d > 21 Then Option6.Value = True
End Select
End Sub
執行結果:ex.輸入 9 月 1 日查詢

題目說明:利用 Select Case 敘述設計一個運勢占卜的程式。
檔案名稱:03 \ ch5 \ P.168
表單:
程式碼:
Private Sub Command1_Click()
n = Int(Rnd() * 6) + 1
Select Case n
Case 1
Text1.Text = "下下籤:諸事不宜"
Case 2
Text1.Text = "中上籤:會有貴人相助"
Case 3
Text1.Text = "中下籤:口舌之爭"
Case 4
Text1.Text = "平籤:保持平常心"
Case 5
Text1.Text = "平籤:沒事就是好事"
Case 6
Text1.Text = "上上籤:意外之財降臨"
End Select
End Sub
Private Sub Command2_Click()
End
End Sub
執行結果:

題目說明:輸出由”*” 號所組成的 10 層三角形圖案,第 1 列輸出 1 個”*” 號,
第 2 列輸出 2 個”*” 號,…以此類推,第 10 列輸出 10 個”*”號
檔案名稱:03 \ ch6 \ P.171
表單:
程式碼:
Private Sub Form_Activate()
Dim i As Integer
For i = 1 To 10
Print String(i, "*")
Next i
End Sub
執行結果:

題目說明:計算 1 加到 10 的總合
檔案名稱:03 \ ch6 \ P.172-1
表單:
程式碼:
Private Sub Form_Activate()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 To 10
sum = sum + i
Next i
MsgBox "1+2+3+ ... + 10 = " & sum, , "計算 1 加到 10 的總合"
End Sub
執行結果:

題目說明:計算 1~100 的偶數總合
檔案名稱:03 \ ch6 \ P.172-1 延伸
表單:
程式碼:
Private Sub Form_Activate()
Dim i As Integer, sum As Integer
sum = 0
For i = 0 To 100 Step 2
sum = sum + i
Next i
MsgBox "1~100 的偶數總合為" & sum, , "計算"
End Sub
執行結果:

題目說明:1~300,3 的倍數有幾個、總合為?
檔案名稱:03 \ ch6 \ P.172-1 延伸 2
表單:
程式碼:
Private Sub Form_Activate()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 To 300
If i Mod 3 = 0 Then
n = n + 1
sum = sum + i
List1.AddItem i
End If
Next i
Print "1~300,3 的倍數有 " & n & " 個": Print "總合為" & sum
End Sub
執行結果:

題目說明:1+2-3+4+5-6.....97+98-99 的總合為?
檔案名稱:03 \ ch6 \ P.172-1 延伸 3
表單:
程式碼:
Private Sub Form_Activate()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 To 99
If i Mod 3 = 0 Then sum = sum - i
If i Mod 3 0 Then sum = sum + i
Next i
Print "1+2-3+4+5-6.....97+98-99 的總合為 " & sum
End Sub
執行結果:

題目說明:依據使用者連續輸入 5 科段考成績,來計算段考總分、最高成績、
與及格的科目數
檔案名稱:03 \ ch6 \ P.175
表單:
程式碼:
Private Sub Command1_Click()
Dim i As Integer, score As Integer, sum As Integer, max As Integer, n As Integer
sum = 0
max = 0
n = 0
Text1.Text = "成績資料:"
For i = 1 To 5
score = Val(InputBox("請輸入成績", "簡易成績統計"))
sum = sum + score
Text1.Text = Text1.Text & score & Space(3)
If score > max Then max = score
If score >= 60 Then n = n + 1
Next i
If Check1.Value = 1 Then Text1.Text = Text1.Text & vbCrLf + "總分為" & sum & "
分"
If Check2.Value = 1 Then Text1.Text = Text1.Text & vbCrLf + "最高分為" & max
& "分"
If Check3.Value = 1 Then Text1.Text = Text1.Text & vbCrLf + "及格科數為" & n
& "科"
End Sub
執行結果:

題目說明:設計一個可在表單上顯示 5 個隨機產生的數字,並在 3 秒後自動隱
藏數字,讓使用者考燕自己記憶能力的程式
檔案名稱:03 \ ch6 \ P.186
表單:
程式碼:
Private Sub Command1_Click()
Dim I As Integer, N As Integer
Randomize
I = 1
While I

題目說明:利用 While-Wend 迴圈敘述及 If-Then-Else 判斷敘述,設計一個猜數
字遊戲的程式(預設數字為 176)
檔案名稱:03 \ ch 6\ P.192
表單:
程式碼:
Private Sub Form_Activate()
Dim pwd As Integer
Dim cpwd As Integer
cpwd = 176
pwd = 0
While pwd < 1000
pwd = InputBox("請輸入一個 3 位數的整數資料", "猜數字遊戲")
If pwd = cpwd Then
MsgBox "恭喜猜對了", , "猜數字遊戲": End
Else
If pwd > cpwd Then
MsgBox "輸入的整數太大,請再輸入一次", , "猜數字遊戲"
Else
MsgBox "輸入的整數太小,請再輸入一次", , "猜數字遊戲"
End If
End If
Wend
End Sub
執行結果:ex.輸入 176

題目說明:反向輸出字串中的字元
檔案名稱:03 \ ch6 \ P.194
表單:
程式碼:
Private Sub Form_Activate()
Dim i As Integer, word As String, reword As String
word = InputBox("請輸入任意字串", "字串反轉")
i = Len(word)
Do While i >= 1
reword = reword + Mid(word, i, 1)
i = i - 1
Loop
MsgBox word & "反轉後為" & reword, , "字串反轉"
End Sub
執行結果:

題目說明:設計一個可隨機產生 4 個介於 0~9 之間的整數,以模擬四星彩公益
彩卷開獎的程式
檔案名稱:03 \ ch6 \ P.201
表單:
程式碼:
Private Sub Command1_Click()
Dim I As Integer, N As Integer
Randomize
I = 1
Do While I

題目說明:使用一為陣列來儲存某年度 1~12 月的手機費用
檔案名稱:03 \ ch7 \ P.222
表單:
程式碼:
Private Sub Form_Activate()
Dim bill(1 To 12) As Integer
Dim i As Integer
Dim sum As Integer
For i = 1 To 12
bill(i) = InputBox("請輸入" & i & "月的手機費:", "手機費輸入")
sum = sum + bill(i)
Next i
MsgBox "今年度的手機費共繳了" & sum & "元", , "統計手機費"
End Sub
執行結果:ex.輸入 1~12 月每次 100

題目說明:從 5 個常見的中文電腦術語中,隨機顯示一個術語上在表單上,讓
使用者在清單中點選相對應的英文電腦術語
檔案名稱:03 \ ch 7\ P.223
表單:
程式碼:
Dim n As Integer
Private Sub Form_Load()
Dim i As Integer
Dim chi(1 To 5) As String
Dim eng(1 To 5) As String
chi(1) = "電腦輔助教學軟體": eng(1) = "CAI"
chi(2) = "中央處理單元": eng(2) = "CPU"
chi(3) = "隨機存取記憶體": eng(3) = "RAM"
chi(4) = "全球資訊網": eng(4) = "WWW"
chi(5) = "區域網路": eng(5) = "LAN"
Randomize
n = Int(Rnd() * 5) + 1
Label2.Caption = Label2.Caption + chi(n) + "
=>>>>>>>>>>>>>>>>>>>>>>"
For i = 1 To 5
List1.AddItem eng(i)
Next i
End Sub
Private Sub Command1_Click()
If List1.ListIndex + 1 = n Then
Label3.Caption = "答對了"
Else
Label3.Caption = "答錯了"
End If
End Sub
執行結果:

題目說明:用一維陣列設計一個可用來輸入及查詢程式語言成績的程式
檔案名稱:03 \ ch7 \ P.229
表單:
程式碼:
Dim A(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
i = Text1.Text
A(i) = Text2.Text
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
Private Sub Command2_Click()
j = Text1.Text
i = j
Text2.Text = A(i)
End Sub
執行結果:ex.輸入座號 3 成績 80 , 輸入 3 按查詢

題目說明:利用一維陣列來儲存使用者輸入的 5 個資料,並找出陣列資料中最
大值和最小值
檔案名稱:03 \ ch7 \ P.229-1
表單:
程式碼:
Dim max, min, n, A(1 To 5) As Integer
Private Sub Command1_Click()
n = n + 1
A(n) = InputBox("請輸第" & n & "個數值", "數值輸入")
If Val(A(n)) > max Then max = A(n)
If Val(A(n)) < min Then min = A(n)
Text1 = Text1 & " 第 " & n & " 個是 " & A(n) & vbCrLf
End Sub
Private Sub Command2_Click()
Text1 = Text1 & " 最大的是 " & max & vbCrLf
End Sub
Private Sub Command3_Click()
Text1 = Text1 & " 最小的是 " & min & vbCrLf
End Sub
Private Sub Form_Load()
min = 10000: n = 0
End Sub
執行結果:

題目說明:輸入並儲存北、中、南三區某年 1~12 月的雨量資料
檔案名稱:03 \ ch7 \ P.232
表單:
程式碼:
Private Sub Command1_Click()
Dim rain(1 To 3, 1 To 12) As Single
For i = 1 To 3
For j = 1 To 12
Select Case i
Case 1: rain(i, j) = Val(InputBox("請輸入北區" & j & "月的雨量", "雨量
輸入"))
Case 2: rain(i, j) = Val(InputBox("請輸入中區" & j & "月的雨量", "雨量
輸入"))
Case 3: rain(i, j) = Val(InputBox("請輸入南區" & j & "月的雨量", "雨量
輸入"))
End Select
Next j
Next i
End Sub
執行結果:連續輸入 12*3 次 50 的雨量

題目說明:利用氣泡排序法將 5 個大小不同的資料,由小到大排序的程式碼
檔案名稱:03 \ ch8 \ P.255
表單:
程式碼:
Private Sub Form_Activate()
Dim A(0 To 4) As Integer
A(0) = 20
A(1) = 5
A(2) = 30
A(3) = 40
A(4) = 15
Print "排列之前"
For i = 0 To 4
Print A(i) & Space(3);
Next i
Print
For i = 1 To (5 - 1)
For j = 0 To (4 - i)
If A(j) > A(j + 1) Then
temp = A(j)
A(j) = A(j + 1)
A(j + 1) = temp
End If
Next j
Next i
Print "排列之後"
For i = 0 To 4
Print A(i) & Space(3);
Next i
End Sub
執行結果:

題目說明:利用循序搜尋法搜尋資料 15 的程式碼
檔案名稱:03 \ ch7 \ P.264
表單:
程式碼:
Private Sub Form_Activate()
Dim A(1 To 5) As Integer
A(1) = 5
A(2) = 30
A(3) = 40
A(4) = 15
A(5) = 10
i = 1
Target = 15
Do
If Target = A(i) Then
Print "找到數值 15"
Exit Do
End If
i = i + 1
If i > 5 Then
Print "找不到數值 15"
Exit Do
End If
Loop
End Sub
執行結果:

題目說明:利用二元搜尋法尋找資料 30 的程式碼
檔案名稱:03 \ ch7 \ P.266
表單:
程式碼:
Private Sub Form_Activate()
Dim A(1 To 6) As Integer
A(1) = 5
A(2) = 10
A(3) = 15
A(4) = 20
A(5) = 30
A(6) = 40
Target = 30
L = 1: R = 6: Result = "找不到"
While L Target Then
R = M - 1
Else
L = M + 1
End If
End If
Wend
MsgBox Result & Target
End Sub
執行結果:

題目說明:計算 1 加到 N 的總和
檔案名稱:03 \ ch9 \ P.10
表單:
程式碼:
Sub N_Sum(a As Integer)
Dim sum As Integer, i As Integer
sum = 0
For i = 1 To a
sum = sum + i
Next i
MsgBox "1+2+3..+" & a & " = " & sum, , "1+2+3+... n 總合"
End Sub
Private Sub Form_Activate()
Dim N As Integer
N = InputBox("請輸入 N 值", "數值累加")
Call N_Sum(N)
End Sub
執行結果:

題目說明:計算標準體重
檔案名稱:03 \ ch9 \ P.12
表單:
程式碼:
Sub Cal_sw(S_sex As String, S_ht As Single)
Dim sw As Single
If S_sex = "M" Then sw = (S_ht - 80) * 0.7
If S_sex = "F" Then sw = (S_ht - 70) * 0.6
MsgBox "您的標準體重為" & sw, , "計算標準體重"
SWT = InputBox("請輸入體重(KG)", "判斷是否過重")
If SWT > sw Then
MsgBox "您的體重超出標準體重", , "判斷是否過重"
Else
MsgBox "您的體重未超出標準體重", , "判斷是否過重"
End If
End Sub
Private Sub Form_Activate()
Dim ht As Single, sex As String * 1
sex = InputBox("請輸入性別,男性輸入 M,女性輸入 F", "計算標準體重")
ht = InputBox("請輸入身高(cm):", "計算標準體重")
Call Cal_sw(sex, ht)
End Sub
執行結果:

題目說明:簡易售票系統
檔案名稱:03 \ ch9 \ P.15
表單:
程式碼:
Sub cal_price(i As Integer, j As Integer)
Dim price As Integer, sum As Integer
Dim area As String
price = 600
Select Case i
Case 0, 2
area = "搖滾 A/C 區"
price = price * 2.5
Case 1
area = "搖滾 B 區"
price = price * 3
Case 3, 5
area = "看台 A/C 區"
price = price * 1.5
Case 4
area = "看台 B 區"
price = price * 2
End Select
sum = j * price
If j >= 10 Then sum = sum * 0.9
Label3.Caption = j & "張" & area & "票,總計" & sum & " 元 "
End Sub

Private Sub Command1_Click(Index As Integer)
Dim count As Integer
count = InputBox("請輸入所要購買的票數", "購買票數")
Call cal_price(Index, count)
End Sub
執行結果:

題目說明:計算圓面積
檔案名稱:03 \ ch9 \ P.25
表單:
程式碼:
Function cal_circle(r As Single) As Single
Const pi = 3.14159
cal_circle = r ^ 2 * pi
End Function
Private Sub Form_Activate()
Dim x As Single
Dim area As Single
x = InputBox("請輸入圓的半徑", "計算園面積")
area = cal_circle(x)
MsgBox "半徑為" & x & "的面積為" & area, , "計算圓面積"
End Sub
執行結果:

題目說明:計算手機通話費
檔案名稱:03 \ ch9 \ P.33
表單:
程式碼:
Function mbill(F_case As Integer, F_sec As Integer) As Integer
Dim rate As Single, fee As Integer, total As Integer
Select Case F_case
Case 0
rate = 0.13
fee = 88
Case 1
rate = 0.12
fee = 188
Case 2
rate = 0.11
fee = 288
Case 3
rate = 0.09
fee = 588
End Select
total = rate * F_sec
If total < fee Then
mbill = fee
Else
mbill = total

End If
End Function
Private Sub Command1_Click()
Dim bcase As Integer, sec As Integer, bill As Integer
bcase = Combo1.ListIndex
sec = Int(Text1.Text) * 60
bill = mbill(bcase, sec)
Label4.Caption = "通話費為:" & bill & "元"
End Sub
Private Sub Form_Load()
Combo1.AddItem " 88 元"
Combo1.AddItem "188 元"
Combo1.AddItem "288 元"
Combo1.AddItem "588 元"
End Sub
執行結果:

題目說明:比較利用 Print#敘述與 Write#敘述的寫入格式差異
檔案名稱:03 \ ch12 \ P.150
表單:
程式碼:
Private Sub Form_Activate()
Open "d:\03\03.txt" For Output As #1
Print #1, "蔡壹零的生日是"; #2/24/1978#
Print #1,
Print #1, "電話", 123456
Close
'
Open "d:\03\03.txt" For Append As #1
Write #1, "蔡壹零的生日是"; #2/24/1978#
Write #1,
Write #1, "電話", 123456
Close
End Sub
執行結果:

題目說明:要逐句讀取已建立之循序檔”data152”的資料內容,並將所讀取到的
資料顯示於表單上
檔案名稱:03 \ ch12 \ P.152
表單:
程式碼:
Private Sub Form_Activate()
Dim x As String
Open App.Path & "\data152.txt" For Input As #1
Do While Not EOF(1)
x = Input(1, #1)
Print x;
Loop
Close
End Sub
執行結果:

題目說明:利用 Line Input#敘述來讀取循序檔”data153”
檔案名稱:03 \ ch12 \ P.153
表單:
程式碼:
Private Sub Form_Activate()
Dim x As String
Open "d:\03\03.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, x
Print x
Loop
Close
End Sub
執行結果:

題目說明:利用 Input#敘述來讀取循序檔”data154”
檔案名稱:03 \ ch12 \ P.154
表單:
程式碼:
Private Sub Form_Activate()
Dim x As String
Open App.Path & "\data154.txt" For Input As #1
Do While Not EOF(1)
Input #1, x
Print x
Loop
Close
End Sub
執行結果:

題目說明:將學生資料寫入至隨機檔”random”中
檔案名稱:03 \ ch12 \ P.164
表單:
程式碼:
Private Type record
no As String * 6
name As String * 8
score As Integer
End Type
Dim student As record
Dim file_no As Integer
Private Sub Command1_Click()
Static i As Integer
i = i + 1
student.no = Text1(0).Text
student.name = Text1(1).Text
student.score = Val(Text1(2).Text)
Put #file_no, i, student
End Sub
Private Sub Form_Activate()
file_no = FreeFile
Open App.Path & "\random" For Random As #file_no Len = Len(student)
End Sub
執行結果:

題目說明:設計一個可讓使用者開啟文字檔案(副檔名為”*.txt”),並在文字方塊
中瀏覽其內容的程式
檔案名稱:03 \ ch12 \ P.183
表單:
程式碼:
Private Sub Dir1_Change()
File1.path = Dir1.path
End Sub
Private Sub Drive1_Change()
Dir1.path = Drive1.Drive
End Sub
Private Sub File1_Click()
Dim path As String
Dim aline As String
Dim alldata As String
If Right(File1.path, 1) "\" Then
path = File1.path & "\" & File1.FileName
Else

path = File1.path & File1.FileName
End If
Open path For Input As #1
Do While Not EOF(1)
Line Input #1, aline
alldata = alldata & aline & vbCrLf
Loop
Text1.Text = alldata
Close #1
End Sub
執行結果:

題目說明:製作一個圖片瀏覽器,始程式可瀏覽圖片(副檔名為”*.jpg”)的
檔案名稱:03 \ ch12 \ P.186
表單:
程式碼:
Private Sub Dir1_Change()
File1.path = Dir1.path
End Sub
Private Sub Drive1_Change()
Dir1.path = Drive1.Drive
End Sub
Private Sub File1_Click()
Dim path As String
Dim aline As String
Dim alldata As String
If Right(File1.path, 1) "\" Then
path = File1.path & "\" & File1.FileName
Else
path = File1.path & File1.FileName

End If
Image1.Picture = LoadPicture(path)
End Sub
執行結果:

題目說明:一、請讓使用者輸入兩個整數 A.B 並計算 A 到 B 之間,間隔為 5
的各數之和
檔案名稱:03\exam\9821\1
表單:
程式碼:
Private Sub Command1_Click()
Dim a, b, i, s, t As Integer
a = Val(Text1): b = Val(Text2): s = 0
If a > b Then t = a: a = b: b = t
For i = a To b Step 5
s = s + i
Next i
Text3 = s
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
執行結果:

題目說明:試計算1 連續加至91,增量值為2,但若為7 的倍數則不加反減,最
後將和輸出
檔案名稱:03\exam\9821\2
表單:
程式碼:
Private Sub Command1_Click()
Dim s, i As Integer
s = 0
For i = 1 To 91 Step 2
If i Mod 7 = 0 Then
s = s - i
Else
s = s + i
End If
Next i
Text1 = s
End Sub
執行結果:

題目說明:請利用 Do-Loop 敘述,撰寫計算 Q!的程式。
檔案名稱:03\exam\9821\3
表單:
程式碼:
Private Sub Command1_Click()
Dim n, i As Long, s As Long
n = Val(Text1): s = 1: i = 2
Do
s = s * i '會溢位==
i = i + 1
If i = n + 1 Then Exit Do
Loop
Text2 = s
End Sub
執行結果:

題目說明:請撰寫一個能於ListBox 中產生連續學號之程式:共(260 個學號)(學
號組成結構為: A~Z | 8912 | 0~9 )
檔案名稱:03\exam\9821\4
表單:
程式碼:
Private Sub Form_Activate()
For i = 65 To 90
For j = 0 To 9
List1.AddItem Chr(i) & "8912" & j
Next j
Next i
End Sub
執行結果:

題目說明:請撰寫能隨機產生一組長度為6,並為數字、大寫英文字母、小寫英
文字母三者隨機混雜的密碼程式
檔案名稱:03\exam\9821\5
表單:
程式碼:
Private Sub Command1_Click()
Dim str1 As String, x, i, n As Integer
Randomize: str1 = ""
For i = 1 To 6
n = Int(Rnd() * 3) + 1
Select Case n
Case 1: x = Int(Rnd() * 10): str1 = str1 & x
Case 2: x = Int(Rnd() * 26) + 65: str1 = str1 & Chr(x)
Case 3: x = Int(Rnd() * 26) + 97: str1 = str1 & Chr(x)
End Select
Next i
Text1 = str1
End Sub
執行結果:

題目說明:請撰寫一個能將使用者輸入的字串,採先取出偶數字位元,再取出奇
數位字元之順序,將之重新組合的程式。
檔案名稱:03\exam\9821\6
表單:
程式碼:
Private Sub Command1_Click()
Dim x, str1, str2 As String
x = Text1
str1 = "": str2 = ""
For i = 1 To Len(x)
If i Mod 2 = 0 Then
str1 = str1 & Mid(x, i, 1)
Else
str2 = str2 & Mid(x, i, 1)
End If
Next i
Text2 = str1 + str2
End Sub
執行結果: