29 劉宜婷

Visual Basic
學習檔
學生:劉宜婷
老師:劉玉敏
第 1 頁

◎第一章
◎第二章
◎第三章
◎第四章
◎第五章
◎第六章
p.5 計算BMI值
p.6 圓面積的計算
目錄
p.7 計算三角形面積
p.8 Back Color 屬性(Click 和 DbClick)
p.9 密碼輸入
p.10 腦筋急轉彎
p.11 聊天室
p.12 眼力大考驗
p.14 購物促銷方案
p.15 判斷成績是否合格(If-then)
p.16 判斷是否為學生票 (If-then)
p.17 判斷成績是否合格(If-then-else)
p.18 視力判斷 (If-then-else)
p.19 判斷大月或小月 (If-then-else)
p.20 判斷所屬的世代族群 (If-then-else)
p.21 判斷可觀賞的影片等級 (If-then-else)
p.22 判斷選手級別 (If-then-else)
p.23 判斷男女 BMI 指數 (If-then-else)
p.25 判斷年齡層 (If-then-else)
p.26 職棒球隊吉祥物查詢
p.28 判斷智力測驗成績 (select-case)
p.29 星座查詢(select-case)
p.32 運勢占卜(select-case)
第 2 頁

p.34 三角圖案(For-next)
p.35 1+2..+10的總和
p.36 1-300 能被 3 整除的數之總和
p.37 1+2-3…+97+98-99 的總和
p.38 偶數加到 100
p.39 5 個成績判斷總和、最高、及格科數
p.41 隨機產生 5 個數,並在 3 秒後消失
p.43 猜數字遊戲
p.44 模擬四星彩開獎
◎第一次期中考
◎第七章
◎第八章
p.45 兩數間隔為 5 的總和
p.46 1+2+3+4+5+6-7…-91的總和
p.47 N!的計算
p.48 學號程式
p.49 由亂數組成的密碼
p.50 字串重組
p.51 1-12 月手機費用
p.52 相對應中英文術語
p.54 成績查詢
p.55 找最大最小值
p.57 北中南降雨量
p.58 氣泡排列由小到大
p.59 搜尋法找數值
p.60 二分搜尋找數值
p.61 1-10 不重覆亂數,並排列
◎程式語言比賽
p.64 X Y軸
p.65 求絕對值
p.66 三位一撇
p.67 輸入 3 個數值,判斷最大最小
p.69 占卜當日運勢
p.70 利用減、If、MOD 判斷 0 或 1
第 3 頁

◎第二次期中考
◎第九章
◎第十二章
p.77 產生不重覆亂數,並判斷最大最小、排列、搜尋數值
p.78 呼叫副程式 1+到 N 的值
p.80 呼叫副程式計算標準體重
p.81 呼叫副程式設計簡易售票系統
p.82 自定函數計算圓面積
p.83 自定函數設計手機計算費率
p.84 序檔將資料寫入記事本
p.85 序檔將資料讀取出來
p.86 序檔將資料一行的讀取出來
p.87 利用input#函數將資料讀取出來
p.88 機檔將資料儲存
p.89 利用循序檔將資料印出來
p.90 利用循序檔將資料印在各欄位上
p.91 隨機檔下拉式選單
第 4 頁

01.題目說明:BMI 值計算
檔案路徑名稱 11\ch1\p30
表單畫面
程式碼
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()
End
End Sub
執行結果畫面
第 5 頁

02.題目說明:計算圓面積
檔案路徑名稱 11\ch1\p34
表單畫面
程式碼
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
執行結果畫面
第 6 頁

03.題目說明:設計一個計算三角形面積的程式。
檔案路徑名稱 11\ch2\p75
程式碼
Private Sub Form_Activate()
Me.Hide
numble1 = InputBox("請輸入三角形的底邊長", "計算三角形面積
")
numble2 = InputBox("請輸入三角形的高度", "計算三角形面積")
total = numble1 * numble2 / 2
MsgBox "三角形面積為" & total, , "計算三角形面積"
End Sub
執行結果畫面
第 7 頁

04.題目說明:設計一個使用者按一下滑鼠及按兩下滑鼠,表單所出現的顏色。
檔案路徑名稱 11\ch3\p91
程式碼
Private Sub Form_Click()
Form1.BackColor = &HC000C0
End Sub
Private Sub Form_DblClick()
Form1.BackColor = &HFF80FF
End Sub
執行結果畫面
按一下
按兩下
第 8 頁

05.題目說明:設計一個使用者在文字方塊裡打密碼,按下 Print 按鈕即可知
道
密碼為多少。
檔案路徑名稱 11\ch3\p106
表單畫面
程式碼
Private Sub Command1_Click()
MsgBox Text2.Text
End Sub
執行結果畫面
第 9 頁

06.題目說明:
檔案路徑名稱 11\ch3\p109
表單畫面
程式碼
Private Sub Command1_Click()
Label2.Visible = True
End Sub
執行結果畫面
第 10 頁

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

08.題目說明:設計一個簡易的遊戲程式,讓使用者再兩個影像相異部分的上單
按滑鼠左鍵。
檔案路徑名稱 11\ch3\p112
表單畫面
程式碼
Private Sub Command1_Click()
End
End Sub
Private Sub Label1_Click()
MsgBox "恭喜你找到了優"
End Sub
Private Sub Label2_Click()
MsgBox "恭喜你找到了優"
End Sub
Private Sub Label3_Click()
MsgBox "恭喜你找到了優"
End Sub
第 12 頁

Private Sub Label4_Click()
MsgBox "恭喜你找到了優"
End Sub
Private Sub Label5_Click()
MsgBox "恭喜你找到了優"
End Sub
Private Sub Label6_Click()
MsgBox "恭喜你找到了優"
End Sub
Private Sub Label7_Click()
MsgBox "恭喜你找到了優"
End Sub
Private Sub Picture2_Click()
MsgBox "不對優 再努力"
End Sub
執行結果畫面
第 13 頁

09.題目說明:設計一個購物促銷方案的程式。
檔案路徑名稱 11\ch4\p129
程式碼
Private Sub Form_Activate()
Dim amount As Integer
amount = InputBox("請輸入購物總金額", "購物金額")
If amount > 3000 Then
price = amount * 0.85
MsgBox "恭喜你消費滿 3000 元,總金額打八五折 為" & price & "元", ,
"促
銷活動"
Else
MsgBox "你所消費的金額為" & amount, , "促銷活動"
End If
End Sub
執行結果畫面
第 14 頁

10.題目說明:判斷成績是否大於等於 60,利用 If-then。
檔案路徑名稱 11\ch5\p135-1
程式碼
Private Sub Form_Activate()
Dim score As Integer
score = InputBox("請輸入成績", "成績輸入")
If score >= 60 Then MsgBox "成績及格", 48 + 0, "成績揭曉"
If score < 60 Then MsgBox "成績不及格", 16 + 0, "成績揭曉
"
End Sub
執行結果畫面
第 15 頁

11.題目說明:判斷購票者是否為學生。
檔案路徑名稱 11\ch5\p135-2
程式碼
Private Sub Form_Activate()
Dim price As Integer, 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
MsgBox "全票票價:" & price, , "顯示票價"
End If
End Sub
執行結果畫面
第 16 頁

12.題目說明:判斷成績是否為 60 分,利用 If-then-else。
檔案路徑名稱 11\ch5\p138-1
程式碼
Private Sub Form_Activate()
Dim score As Integer
score = InputBox("請輸入成績", "成績輸入")
If score >= 60 Then
MsgBox "成績及格", 48 + 0, "成績揭曉"
Else
MsgBox "成績不及格", 16 + 0, "成績揭曉"
End If
End Sub
執行結果畫面
第 17 頁

13.題目說明:判斷視力是否正常,利用 If-then-else。
檔案路徑名稱 11\ch5\p139-2
程式碼
Private Sub Form_Activate()
Dim x As String
x = InputBox("請輸入視力檢測值", "視力輸入")
If x > 0.8 And x

14.題目說明:判斷月份為大月或小月。
檔案路徑名稱 11\ch5\p139-3
程式碼
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 & "月是大月", 64 + 0, "月份判斷"
Else
MsgBox m & "月是小月", 64 + 0, "月份判斷"
End If
End Sub
執行結果畫面
第 19 頁

15.題目說明:依出生年次判斷屬於哪個世代族群,利用巢狀 If 判斷敘述。
檔案路徑名稱 11\ch5\p143-1
程式碼
Private Sub Form_Activate()
Dim year As Integer
year = InputBox("請輸入出生年次", "輸入年次")
If year >= 60 Then
If year

16.題目說明:依年齡層判斷可觀賞的影片等級,利用巢狀 If 判斷敘述。
檔案路徑名稱 11\ch5\p144-2
程式碼
Private Sub Form_Activate()
Dim age As Integer
age = InputBox("請輸入年齡:", "年齡判斷")
If age < 6 Then
MsgBox "可以看普遍級", , "可觀看的等級"
Else
If age < 12 Then
MsgBox "可以看普遍級和保護級", , "可觀看的等級"
Else
If age < 18 Then
MsgBox "可看非限制級", , "可觀看的等級"
Else
MsgBox "可看各級影片", , "可觀看的等級"
End If
End If
End If
End Sub
執行結果畫面
第 21 頁

17.題目說明:依體重判斷男子跆拳道選的參賽級別,利用巢狀 If 判斷敘述。
檔案路徑名稱 11\ch5\p145-3
程式碼
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 "重量級", , "參加組別"
Else
End If
End If
End If
End Sub
執行結果畫面
第 22 頁

18.題目說明:計算男女 BMI 值,並判斷屬於何種身材。
檔案路徑名稱 11\ch5\p148
表單畫面
程式碼
Private Sub Command1_Click()
Dim w, h, bmi As Single
h = Val(Text1.Text) / 100
w = Val(Text2.Text)
If h >= 1 And h = 10 And w 27.8 Then
MsgBox "您的 bmi 值為" & bmi & ",屬於肥胖身材", , "Msg"
Else
MsgBox "您的 bmi 值為" & bmi & ",屬於一般身材", , "Msg"
End If
Else
If bmi > 27.3 Then
MsgBox "您的 bmi 值為" & bmi & ",屬於肥胖身材", , "Msg"
第 23 頁

Else
MsgBox "您的 bmi 值為" & bmi & ",屬於一般身材", , "Msg"
End If
End If
Else
MsgBox "輸入錯誤", , "Msg"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
Else
MsgBox "輸入錯誤", , "Msg"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub
執行結果畫面
第 24 頁

19.題目說明:判斷年齡及顯示年齡層代稱的程式。
檔案路徑名稱 11\ch5\p153
程式碼
Private Sub Form_Activate()
Dim age As Integer
age = InputBox("請輸入年齡", "年齡輸入")
If age = 14 And age = 20 And age = 31 And age

20.題目說明:職棒球隊吉祥物查詢
檔案路徑名稱 11\ch5\p159
表單畫面
程式碼
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"
第 26 頁

Option3.Value = True
Case Is = "兄弟"
Option4.Value = True
Case Is = "統一"
Option5.Value = True
Case Is = "誠泰"
Option6.Value = True
Case Else
MsgBox "無此球隊,請重新輸入", , "輸入有誤"
End Select
Text1.Text = " "
Text1.SetFocus
End Sub
執行結果畫面
第 27 頁

21.題目說明:利用 select-case,撰寫智力測驗的成績判斷。
檔案路徑名稱 11\ch5\p165
程式碼
Private Sub Form_Activate()
Dim a As Integer
a = InputBox("請輸入智力", "智力輸入")
Select Case a
Case 80 To 110: Print "正常智力"
Case 111 To 120: Print "高智力"
Case 121 To 140: Print "極高智力"
Case Is >= 141: Print "天才"
End Select
End Sub
執行結果畫面
第 28 頁

22.題目說明:利用 select-case 設計一個星座查詢的程式。
檔案路徑名稱11\ch5\p167
表單畫面
程式碼
Private Sub Command1_Click()
Dim m, d As Integer
m = Text1.Text
d = Text2.Text
Select Case m
Case 1
If d < 20 Then
Option10.Value = True
Else
Option11.Value = True
End If
Case 2
第 29 頁

If d < 20 Then
Option11.Value = True
Else
Option12.Value = True
End If
Case 3
If d < 21 Then
Option12.Value = True
Else
Option1.Value = True
End If
Case 4
If d < 21 Then
Option1.Value = True
Else
Option2.Value = True
End If
Case 5
If d < 21 Then
Option2.Value = True
Else
Option3.Value = True
End If
Case 6
If d < 22 Then
Option3.Value = True
Else
Option4.Value = True
End If
Case 7
If d < 23 Then
Option4.Value = True
Else
Option5.Value = True
End If
Case 8
If d < 23 Then
Option5.Value = True
第 30 頁

Else
Option6.Value = True
End If
Case 9
If d < 23 Then
Option6.Value = True
Else
Option7.Value = True
End If
Case 10
If d < 23 Then
Option7.Value = True
Else
Option8.Value = True
End If
Case 11
If d < 22 Then
Option8.Value = True
Else
Option9.Value = True
End If
Case 12
If d < 22 Then
Option9.Value = True
Else
Option10.Value = True
End If
Case Else
MsgBox "無此日期,請重新輸入", , "輸入有誤"
End Select
Text1.Text = " "
Text2.Text = " "
Text1.SetFocus
Text2.SetFocus
End Sub
執行結果畫面
第 31 頁

23.題目說明:利用 select-case 設計一個運勢占卜的程式。
檔案路徑名稱11\ch5\p168
表單畫面
程式碼
Private Sub Command1_Click()
Dim a As Integer
a = (Rnd() * 6) + 1
Select Case a
Case 1
Text1 = "下下籤:諸事不宜"
Case 2
Text1 = "中上籤:會有貴人相助"
Case 3
Text1 = "中下籤:口舌之爭"
Case 4
Text1 = "平籤:保持平常心"
第 32 頁

Case 5
Text1 = "平籤:沒事就是好事"
Case 6
Text1 = "上上籤:意外之財降臨"
End Select
End Sub
Private Sub Command2_Click()
End
End Sub
執行結果畫面
第 33 頁

24.題目說明:輸入一個由 A 組成的三角圖案。
檔案路徑名稱11\ch6\171
程式碼
Private Sub Form_Activate()
Dim a As Integer
For i = 1 To 10
Print String(i, "A")
Next i
End Sub
執行結果畫面
第 34 頁

25.題目說明:利用 For-next 撰寫一個 1 +到 10 的總和程式。
檔案路徑名稱11\ch6\172
程式碼
Private Sub Form_Activate()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 To 10
sum = sum + i
Next
MsgBox "1+2+3...+10 = " & sum, , ""
End Sub
執行結果畫面
第 35 頁

26.題目說明: 1 到 300 能被 3 整除的數並顯示在 Listbox 裡
檔案路徑名稱11\ch6\172-300 內 3 整除的數
表單畫面
程式碼
Private Sub Form_Activate()
Dim i, sum, num As Integer
For i = 1 To 300
If i Mod 3 = 0 Then
List1.AddItem i
num = num + 1
sum = sum + i
End If
Next
MsgBox "300以內的數能被3整除有" & num & "個,合為" & sum
End Sub
執行結果畫面
第 36 頁

27.題目說明:撰寫一個程式 1+2-3+4+5-6…+97+98-99
檔案路徑名稱11\ch6\172 (1+2-3...)
程式碼
Private Sub Form_Activate()
Dim i, sum As Integer
For i = 1 To 99
If i Mod 3 = 0 Then
sum = sum - i
Else
sum = sum + i
End If
Next
MsgBox "1+2-3+4+5-6....+97+98-99 = " & sum
End Sub
執行結果畫面
第 37 頁

28.題目說明:撰寫一個程式 偶數加到 100
檔案路徑名稱11\ch6\172-偶數加到 100
程式碼
Private Sub Form_Activate()
Dim i As Integer, sum As Integer
sum = 0
For i = 2 To 100 Step 2
sum = sum + i
Next
MsgBox "2+4+6...+100 = " & sum, , ""
End Sub
執行結果畫面
第 38 頁

29.題目說明:使用者輸入 5 個成績,來計算總分、最高分、以及格的科目數。
檔案路徑名稱11\ch6\175
表單畫面
程式碼
Private Sub Command1_Click()
Dim i As Integer, score As Integer, sum As Integer
Dim max As Integer, n As Integer
sum = 0
max = 0
n = 0
Text1.Text = "成績資料:"
For i = 1 To 5
score = InputBox("請輸入段考成績", "簡易成績統計")
第 39 頁

sum = sum + score
Text1.Text = Text1.Text & score & Space(2)
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
執行結果畫面
第 40 頁

30.題目說明:撰寫一個隨機產生 5 個數字,並在 3 秒後自動隱藏。
檔案路徑名稱11\ch6\186
表單畫面
程式碼
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Randomize
i = 1
While i

Wend
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Text2.Text = Text1.Text
End Sub
Private Sub Timer1_Timer()
Text1.Visible = False
Command1.Enabled = False
Command2.Enabled = True
Timer1.Enabled = False
End Sub
執行結果畫面
第 42 頁

31.題目說明: 設計一個猜數字遊戲的程式。(預設為176)
檔案路徑名稱11\ch6\192
程式碼
Private Sub Form_Activate()
Dim ans As Integer, anss As Integer
ans = 176
anss = InputBox("請輸入一個 3 位的數字", "猜數字遊戲")
While ans anss
If anss > ans Then
anss = InputBox("輸入的數字太大,請再輸入一次", "猜數字遊戲
")
Else
anss = InputBox("輸入的數字太小,請再輸入一次", "猜數字遊戲
第 43 頁

")
End If
Wend
MsgBox "恭喜你,猜對了", , "猜數字遊戲"
End Sub
執行結果畫面
32.題目說明:撰寫一個模擬四星彩開獎的程式。
檔案路徑名稱11\ch6\p201 nunber_img
表單畫面
第 44 頁

程式碼
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Randomize
i = 1
Do While i

a = InputBox("請任意輸入一個字", "計算和")
b = InputBox("請任意輸入一個字", "計算和")
For i = a To b Step 5
sum = sum + i
Next
MsgBox a & "到" & b & "間隔為 5 的合為" & sum, , "計算和"
End Sub
執行結果畫面
34.題目說明: (期中考) 02 題--撰寫一個 1+2+3+4+5+6-7…-91 的程
式
檔案路徑名稱11\0402_exam 第一次期中考\11\02
程式碼
Private Sub Form_Activate()
Dim i As Integer, sum As Integer
第 46 頁

sum = 0
For i = 1 To 91 Step 2
If i Mod 7 = 0 Then
sum = sum - i
Else
sum = sum + i
End If
Next
MsgBox "1+2+3+4+5+6-7...的和為" & sum, , "計算和"
End Sub
執行結果畫面
第 47 頁

35.題目說明: (期中考) 03 題--撰寫一個 N!的程式
檔案路徑名稱11\0402_exam 第一次期中考\11\03
程式碼
Private Sub Form_Activate()
Dim i As Integer, sum As Integer
n = InputBox("輸入任一個數字", "計算 N!")
sum = 1
i = 1
Do While i

36.題目說明: (期中考) 04 題—撰寫 學號程式 第一個數為 A-Z 第二.三個
為
89 後三碼為 120-129
檔案路徑名稱11\0402_exam 第一次期中考\11\04
表單畫面
程式碼
Private Sub Form_Activate()
For i = 1 To 26
For j = 0 To 9
List1.AddItem Chr(i + 64) & "8912" & j
Next
Next
End Sub
執行結果畫面
第 49 頁

37.題目說明: (期中考) 05 題--撰寫一個由 A-Z、a-z、0-9 亂碼組成的密
碼。
檔案路徑名稱11\0402_exam 第一次期中考\11\05
程式碼
Private Sub Form_Activate()
Randomize
For i = 1 To 6
t = Int(Rnd() * 3) + 1
Select Case t
Case 1
n = Int(Rnd() * 10) + 48
Case 2
n = Int(Rnd() * 26) + 65
Case 3
n = Int(Rnd() * 26) + 97
End Select
word = word & Chr(n)
Next
MsgBox "亂數取得的密碼為:" & word
End Sub
執行結果畫面
第 50 頁

38.題目說明: (期中考) 06 題--撰寫一個字串重組得程式。
檔案路徑名稱11\0402_exam 第一次期中考\11\06
程式碼
Private Sub Form_Activate()
oldword = InputBox("請輸入字串", "字串重組")
a = 2
s = Len(oldword)
While a

39.題目說明:撰寫一個某年度 1-12 月的手機費用。
檔案路徑名稱11\ch7\p222
程式碼
Private Sub Form_Activate()
Dim bill(1 To 12) As Integer, i As Integer, sum As Integer
For i = 1 To 12
bill(i) = InputBox("請輸入" & i & "月份的收機費", "手機費輸入")
sum = sum + bill(i)
Next i
MsgBox "今年度的手機費共繳了" & sum & "元", , "手機費統計"
End Sub
執行結果畫面
第 52 頁

40.題目說明:撰寫一個隨機產生一個術語在表單上,讓使用者在清單中點選相
對應的英文電腦術語。
檔案路徑名稱11\ch7\p223
表單畫面
程式碼
Dim n As Integer
Private Sub Command1_Click()
If List1.ListIndex + 1 = n Then
Label3.Caption = "答對了"
Else
Label3.Caption = "答錯了"
End If
End Sub
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) + "=>"
第 53 頁

For i = 1 To 5
List1.AddItem eng(i)
Next i
End Sub
執行結果畫面
第 54 頁

41.題目說明:撰寫一個讓使用者可以輸入及查詢成績的程式。
檔案路徑名稱11\ch7\p228
表單畫面
程式碼
Dim score(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
i = Int(Text1.Text)
If i >= 1 And i 50 Then
MsgBox "座號需為1~50", , "輸入錯誤"
Else
Text2.Text = score(j)
End If
End Sub
第 55 頁

執行結果畫面
42.題目說明:(homework)利用一維陣列讓使用者輸入 5 個數,必找出最大
最小
值。
檔案路徑名稱11\ch7\p229
表單畫面
程式碼
Private Sub Command1_Click()
For i = 1 To 5
n(i) = InputBox("請輸入一個數值", "判斷")
List1.AddItem "第" & i & "個數值是" & n(i)
Next i
End Sub
Private Sub Command2_Click()
Dim max As Integer
max = 0
For i = 1 To 5
If n(i) > max Then
max = n(i)
End If
Next i
List1.AddItem "最大值為" & max
End Sub
Private Sub Command3_Click()
Dim min As Integer
min = n(1)
第 56 頁

For i = 1 To 5
If n(i) < min Then
min = n(i)
End If
Next i
List1.AddItem "最小值為" & min
End Sub
執行結果畫面
第 57 頁

43.題目說明:利用二維陣列北、中、南三區 1-12 月的降雨量。
檔案路徑名稱11\ch7\p232
程式碼
Private Sub Form_Activate()
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
執行結果畫面
第 58 頁

45.題目說明: 利用氣泡排序將 5 個是有小排到大。
檔案路徑名稱11\ch8\p255
表單畫面
程式碼
Private Sub Command1_Click()
Dim a(4) As Integer, i As Integer, j As Integer, n 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
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: Print: Print "排序後的順序"
For i = 0 To 4
Print a(i) & Space(3);
第 59 頁

Next
End Sub
執行結果畫面
46.題目說明:利用搜尋法找到資料"25"
檔案路徑名稱11\ch8\p264
程式碼
Private Sub Form_Activate()
Dim a(1 To 5) As Integer
a(1) = 5: a(2) = 10: a(3) = 30: a(4) = 62: a(5) = 25
i = 1
Target = 25
Do
If Target = a(i) Then
Print "找到25數值"
Exit Do
End If
i = i + 1
If i > 5 Then
Print "找不到數值25"
Exit Do
End If
Loop
End Sub
執行結果畫面
第 60 頁

57.題目說明:利用二分搜尋找到資料 "50"
檔案路徑名稱11\ch8\p267
程式碼
Private Sub Form_Load()
Dim a(1 To 6) As Integer
a(1) = 5: a(2) = 10: a(3) = 25: a(4) = 40: a(5) = 50: a(6) = 65
Target = 50
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
執行結果畫面
第 61 頁

48.題目說明:撰寫一個隨機產生 5 個數介於 1-10 不重覆的數字陣列,並將
排序
前排序後印出來。
檔案路徑名稱11\ch8\p269 亂數不重覆
程式碼
Private Sub Form_Activate()
Dim a(0 To 4) As Integer
Randomize
For i = 0 To 4
a(i) = Int(Rnd() * 10) + 1
If i = 0 Then
check(a(i)) = 1
Else
While check(a(i)) = 1
a(i) = Int(Rnd() * 10) + 1
Wend
check(a(i)) = 1
End If
Next i
Print "排序前:"
For i = 0 To 4
Print a(i) & Space(3);
Next
For i = 1 To 4
For j = 0 To (4 - i)
If a(j) > a(j + 1) Then
temp = a(j)
a(j) = a(j + 1)
第 62 頁

a(j + 1) = temp
End If
Next j
Next i
Print: Print: Print "排序後的順序"
For i = 0 To 4
Print a(i) & Space(3);
Next
End Sub
執行結果畫面
第 63 頁

49.題目說明:讓使用者輸入 XY 軸,在點選上下左右走幾步,印出最後座標。
檔案路徑名稱11\0507 程式比賽上傳\11\01
表單畫面
程式碼
Private Sub Command1_Click()
Dim n As Integer, x As Integer, y As Integer, z As Integer
x = Text1.Text
y = Text2.Text
z = Text3.Text
If Option1 = True Then
y = y + z
MsgBox x & Space(2) & y, , "瞬間移動"
End If
If Option2 = True Then
y = y - z
MsgBox x & Space(2) & y, , "瞬間移動"
End If
If Option3 = True Then
x = x - z
MsgBox x & Space(2) & y, , "瞬間移動"
第 64 頁

End If
If Option4 = True Then
x = x + z
MsgBox x & Space(2) & y, , "瞬間移動"
End If
End Sub
執行結果畫面
第 65 頁

50.題目說明:輸入一個數值,求絕對值。
檔案路徑名稱11\0507 程式比賽上傳\11\02
表單畫面
程式碼
Private Sub Command1_Click()
x = InputBox("請輸入一值", "絕對值")
If Mid(x, 1, 1) = "-" Then x = Right(x, Len(x) - 1)
MsgBox x, , "Result"
End Sub
執行結果畫面
第 66 頁

51.題目說明:讓使用者輸入一個數值,必印出三位一撇。
檔案路徑名稱11\0507 程式比賽上傳\11\03
表單畫面
程式碼
Private Sub Command1_Click()
x = InputBox("輸入一數字", "三位一撇輸出")
str1 = "": y = 0
For i = Len(x) To 1 Step -1
str1 = Mid(x, i, 1) + str1
y = y + 1
If i > 1 And y Mod 3 = 0 Then str1 = "," + str1
Next i
MsgBox str1, , "The Result"
End Sub
執行結果畫面
第 67 頁

52.題目說明:讓使用者輸入 3 個數值,並判斷最大值與最小值,並印出。
檔案路徑名稱11\0507 程式比賽上傳\11\04
表單畫面
程式碼
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim max As Integer, min As Integer
i = Text1.Text
j = Text2.Text
k = Text3.Text
If i > j Then
max = i
If i > k Then
max = i
Else
max = k
End If
Else
max = j
第 68 頁

If j > k Then
max = j
Else
max = k
End If
End If
If i < j Then
min = i
If i < k Then
min = i
Else
min = k
End If
Else
min = j
If j < k Then
min = j
Else
min = k
End If
End If
MsgBox max & Space(2) & min
End Sub
執行結果畫面
第 69 頁

53.題目說明:讓使用者輸入月.日,占卜當日的運勢。
檔案路徑名稱11\0507 程式比賽上傳\11\05
表單畫面
程式碼
Private Sub Command1_Click()
Dim m As String, d As String, s As String
m = InputBox("請輸入月", "占卜")
d = InputBox("請輸入日 ", "占卜")
s = (m * 2 + d) Mod
3
Select Case s
Case 0
MsgBox
"普通", , "占卜結果"
Case 1
MsgBox
"吉", , "占卜結果"
Case 2
MsgBox
"大吉", , "占卜結果"
End Select
End Sub
執行結果畫面
第 70 頁

54.題目說明:利用減、If、MOD 的用法顯示出 0 或 1。
檔案路徑名稱11\0507 程式比賽上傳\11\06
表單畫面
程式碼
Private Sub Command1_Click()
n = Val(InputBox("請輸入 0 或 1", "輸入"))
n = n - 1
MsgBox Abs(n), , "The Result"
End Sub
Private Sub Command2_Click()
n = Val(InputBox("請輸入 0 或 1", "輸入"))
x = 3 Mod (n + 2)
MsgBox x, , "The Result"
End Sub
Private Sub Command3_Click()
n = Val(InputBox("請輸入 0 或 1", "輸入"))
If n = 1 Then
n = 0
第 71 頁

ElseIf n = 0 Then
n = 1
End If
MsgBox n, , "The Result"
End Sub
執行結果畫面
55.題目說明:撰寫一個產生不重覆的 7 個數,並將這 7 個數找出最大值、最
小值,遞增排序、遞減排序,並利用二分搜尋,找出所要的資料數值。
檔案路徑名稱 11\0514 期中考\11\01
表單畫面
程式碼
Dim a(1 To 7) As Integer
Private Sub Command1_Click()
max = a(1)
For i = 2 To 7
If a(i) > max Then max = a(i)
Next i
MsgBox "最大值" & max, , "The Result"
End Sub
Private Sub Command2_Click()
第 72 頁

min = a(1)
For i = 2 To 7
If a(i) < min Then min = a(i)
Next i
MsgBox "最小值" & min, , "The Result"
End Sub
Private Sub Command3_Click()
List2.Clear
For i = 1 To 6
For j = 1 To 7 - i
If a(j) > a(j + 1) Then temp = a(j): a(j) = a(j + 1): a(j + 1)
= temp
Next j
Next i
For i = 1 To 7
List2.AddItem a(i)
Next i
End Sub
Private Sub Command4_Click()
List2.Clear
For i = 1 To 6
For j = 1 To 7 - i
If a(j) < a(j + 1) Then temp = a(j): a(j) = a(j + 1): a(j + 1)
= temp
Next j
Next i
For i = 1 To 7
List2.AddItem a(i)
Next i
End Sub
Private Sub Command5_Click()
Dim m As Integer
cho = MsgBox("是否已遞增排序?", 48 + vbOKCancel, "提醒")
If cho = 1 Then
tre = Val(InputBox("請輸入欲尋找的數值", "搜尋")): L = 1: R =
第 73 頁

7: n = 0
Do
Do
Do
Loop
End If
End Sub
m = (L + R) / 2: n = n + 1
If A(m) = tre Then
MsgBox "在第" & n & "次,找到目標" & tre: Exit
Else
If tre > A(m) Then
L = m + 1
Else
R = m - 1
End If
If L > R Then MsgBox "找不到" & tre: Exit
End If
Private Sub Form_Load()
Randomize
str1 = "": n = 0
Do
x = Int(Rnd() * 15) + 1
If InStr(str1, "*-" & x) = 0 Then n = n + 1: str1 = str1
+ "*-" & x: List1.AddItem x: a(n) = x
If n = 7 Then Exit Do
Loop
End Sub
執行結果畫面
第 74 頁

第 75 頁

第 76 頁

56.題目說明:利用呼叫副程式計算 1 加到 N 的總和
檔案路徑名稱
程式碼
Sub N_sum(a As Integer)
Dim sum As Integer, i As Integer
sum = 0
For i = 1 To a
sum = sum + i
Next
MsgBox "1+2+.....+" & a & "=" & sum, , "計算值"
End Sub
Private Sub Form_Activate()
Dim N As Integer
N = InputBox("請輸入 N 值", "計算數值")
Call N_sum(N)
End Sub
執行結果畫面
第 77 頁

57.題目說明:利用呼叫副程式計算標準體重
檔案路徑名稱
程式碼
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
Else
sw = (s_ht - 70) * 0.6
End If
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
執行結果畫面
第 78 頁

58.題目說明:利用呼叫副程式撰寫簡易售票系統
檔案路徑名稱
表單畫面
程式碼
Private Sub Command1_Click(Index As Integer)
Dim count As Integer
count = InputBox("請輸入所要購買的票數", "購買票數")
Call cal_price(Index, count)
End Sub
Sub cal_price(i As Integer, j As Integer)
Dim area As String, price As Integer, sum As Integer
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
If j >= 10 Then
sum = j * price * 0.9
第 79 頁

Else
sum = j * price
End If
Label3.Caption = j & "張" & area & "票,總計" & sum & "元"
End Sub
執行結果畫面
第 80 頁

59.題目說明:利用自定函數計算圓面積
程式碼
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 are As Single
X = InputBox("請輸入圓的半徑", "計算面積")
area = cal_Circle(X)
MsgBox "半徑為" & X & "的圓面積= " & area, , "計算圓面積"
End Sub
執行結果畫面
第 81 頁

60.題目說明:利用自定函數試算手機通話費
表單畫面
程式碼
Private Sub Command1_Click()
Dim bcase As Integer, sec As Integer
Dim bill As Integer
bcase = Combo1.ListIndex
sec = Int(Text1.Text) * 60
bill = Mbill(bcase, sec)
Label3.Caption = "通話費為:" & bill & "元"
End Sub
Private Sub Form_Load()
Combo1.AddItem "88 元"
Combo1.AddItem "188 元"
Combo1.AddItem "288 元"
Combo1.AddItem "388 元"
End Sub
Function Mbill(F_case As Integer, F_sec As Integer) As Integer
Dim rate As Single, fee As Integer
Dim 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
第 82 頁

ate = 0.09
fee = 588
End Select
total = rate * F_sec
If total < fee Then
Mbill = fee
Else
Mbill = total
End If
End Function
執行結果畫面
第 83 頁

61.題目說明:將資料從記事本中一字一字的讀取出來並印在表單上。
檔案路徑名稱 02\ch12\152
程式碼
Private Sub Form_Activate()
Dim X As String
Open App.Path & "\11.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, X
Print X
Loop
Close
End Sub
執行結果畫面
第 84 頁

62.題目說明:將資料從記事本中一行一行的讀取並印在表單上。
檔案路徑名稱 02\ch12\153
程式碼
Private Sub Form_Activate()
Dim X As String
Open App.Path & "\11.txt" For Input As #1
Do While Not EOF(1)
Input #1, X
Print X
Loop
Close
End Sub
執行結果畫面
第 85 頁

63.目說明:用隨機檔將資料從儲存按檢視鈕會將資料顯示出來。
檔案路徑名稱 02\ch12\166
表單內容
程式碼
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 = LOF(file_no) / Len(student)
i = i + 1
student.no = Text1.Text
student.name = Text2.Text
student.score = Val(Text3.Text)
Put #file_no, i, student
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Dim j As Integer
Do While j LOF(file_no) / Len(student)
第 86 頁

j = j + 1
Get #file_no, j, student
Text1.Text = student.no
Text2.Text = student.name
Text3.Text = student.score
MsgBox "第" & j & "筆資料"
Loop
End Sub
Private Sub Form_Activate()
file_no = FreeFile
Open App.Path & "\ran" For Random As #file_no Len =
Len(student)
Print Len(student)
End Sub
執行結果畫面
第 87 頁

64 題目說明:利用循序檔將資料顯示在文字方塊內。
檔案路徑名稱 02\0604 作業\1
表單內容
程式碼
Private Sub Command1_Click()
Dim x As String
Open App.Path & "\data1.txt" For Input As #1
Do While Not EOF(1)
x = Input(1, #1)
Text1.Text = Text1.Text & x
Loop
Close
End Sub
Private Sub Command2_Click()
End
End Sub
執行結果畫面
第 88 頁

65 題目說明:利用循序檔將資料顯示在各個欄位上。
檔案路徑名稱 02\0604 作業\2
表單內容
程式碼
Private Sub Command1_Click()
Dim sum, x, y As Integer
Open App.Path & "\data2.txt" For Input As #1
If Not EOF(1) Then
Input #1, x, y, z
Text1 = x
Text2 = y
Text3 = z
total = y * z
Text4 = total
End If
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
If Not EOF(1) Then
Input #1, x, y, z
Text1 = x
Text2 = y
Text3 = z
total = y * z
Text4 = total
Else
Close #1
Command2.Enabled = False
Command1.Enabled = True
End If
End Sub
Private Sub Command3_Click()
第 89 頁

End
End Sub
Private Sub Form_Load()
Dim sum, x, y As Integer
Open App.Path & "\data2.txt" For Input As #1
If Not EOF(1) Then
Input #1, x, y, z
Text1 = x
Text2 = y
Text3 = z
total = y * z
Text4 = total
End If
End Sub
執行結果畫面
第 90 頁

66 題目說明:將資料存在各欄位並利用下拉式選單選取資料。
檔案路徑名稱 02\0618 作業\11
表單內容
程式碼
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 Combo1_click()
If Combo1.ListIndex > 0 Then
Get #file_no, Combo1.ListIndex, student
Text1.Text = student.no
Text2.Text = student.name
Text3.Text = student.score
End If
End Sub
Private Sub Command1_Click()
Static i As Integer
i = LOF(file_no) / Len(student)
i = i + 1
student.no = Text1.Text
student.name = Text2.Text
student.score = Val(Text3.Text)
Put #file_no, i, student
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
第 91 頁

Private Sub Command2_Click()
Dim j As Integer
Do While j LOF(file_no) / Len(student)
j = j + 1
Get #file_no, j, student
Text1.Text = student.no
Text2.Text = student.name
Text3.Text = student.score
MsgBox "第" & j & "筆資料"
Loop
Combo1.AddItem "請選擇"
Combo1.Visible = True
Combo1.Enabled = True
For no = 1 To LOF(file_no) / Len(student)
Combo1.AddItem "第" & no & "筆"
Next
End Sub
Private Sub Form_Activate()
file_no = FreeFile
Open App.Path & "\ran" For Random As #file_no Len =
Len(student)
Print Len(student)
End Sub
執行結果畫面
第 92 頁