張庭甄

Visual Basic 2008
資-料-處-理-科
班級:二年一班
學生:張庭甄
座號:24 號
指導老師:張銘棋

目錄
CH4
4-1 溫度單位轉換 - 攝氏轉華氏......................................................4
4-2 框架設定....................................................................................5
4-3 label 方塊的變化.......................................................................6
4-4 背景變換....................................................................................7
4-5 溫度單位轉換 - 華、攝氏互換..................................................8
4-6 國旗轉換與背景變化 ................................................................9
CH5
5-1 按鈕顯示時間日期 .................................................................10
5-2 顯示編碼 - 十六進位...............................................................11
5-3 簡易計算機 .............................................................................12
CH6
6-1 購買金額折扣計算 .................................................................14
6-2 終極密碼.................................................................................15
6-3 字型設定.................................................................................16
6-4 三數求最大值 .........................................................................17
6-5 美餓美小吃店點餐程式..........................................................18
CH7
7-1 數字沙漏.................................................................................20
7-2 蟑螂進行曲 .............................................................................20
7-3 電子時鐘.................................................................................21
7-4 成績統計.................................................................................22
7-5 數字金字塔 .............................................................................23
CH8
8-1 成績計算.................................................................................25
8-2 計算輸入資料數 – 主控台 ......................................................26
8-3 數值資料比大小 – 主控台 ......................................................27
1

8-4 成績查詢.................................................................................28
8-5 計算應納稅額 .........................................................................29
8-6 字型設定.................................................................................30
8-7 兩個 ListBox 資料互換 ..........................................................31
8-8 字型設定.................................................................................32
8-9 歌唱成績排行 .........................................................................33
8-10 . 移動 ListBox 選項順序.......................................................34
8-11 餐廳排隊給號系統 ...............................................................35
CH9
9-1 模擬開獎程式 .........................................................................37
9-2 遞迴.........................................................................................38
9-3 計算階乘 – 主控台..................................................................39
9-4 計算等加速度運動的速度 – 主控台.......................................40
9-5 傳值呼叫 – 主控台..................................................................41
9-6 河內塔遞迴 – 主控台..............................................................42
9-7 擲骰模擬程式 .........................................................................43
9-8 自由落體掉落距離 .................................................................44
CH10
10-1 大寫轉小寫、加入千分位 ...................................................45
CH11
11-1 繪製基本幾何圖形 ...............................................................46
11-2 亂數畫圓...............................................................................47
11-3 調整圖片大小、旋轉圖片 ...................................................48
11-4 指定畫圓大小.......................................................................49
11-5 簡易播放程式.......................................................................51
CH11-1
11-1-1 多邊形繪畫 .......................................................................53
CH12
12-1 功能表設計...........................................................................55
12-2 功能表設計、單位換算 .......................................................58
2

CH13
13-1 讀寫文字檔...........................................................................60
13-2 讀寫文字檔...........................................................................62
13-3 菜單管理...............................................................................64
13-4 成績輸入程式.......................................................................67
CH14
14-1 資料庫總管...........................................................................70
14-2 資料庫總管...........................................................................71
14-3 資料庫總管...........................................................................72
14-4 資料庫總管...........................................................................73
Exam1
EX1-1 加減乘除計算....................................................................74
EX1-2 購買清單............................................................................75
Exam2
EX2-1 7 的倍數之和.....................................................................76
EX2-2 計算員工薪資....................................................................76
Exam3
EX3-1 計算最大公因數、最小公倍數 ........................................78
EX3-2 擲骰子................................................................................79
Exam4
EX4-1 畫十字圓............................................................................81
EX4-2 播放器................................................................................82
Exam5
EX5-1 展現變化多端的色彩 ........................................................83
EX5-2 簡易資料庫管理................................................................84
EX5-3 便利貼................................................................................87
Exam6
EX6-1 求互質數、數字直角三角形、數字相加、身分證驗證
...........................................................................................88
3

題目說明-溫度單位轉換 - 攝氏轉華氏
檔案路徑:24/CH4/form1
表單畫面:
執行結果:
程式碼:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim c, f, r As Integer
c = Val(InputBox("請輸入攝氏溫度", "輸入溫度"))
f = c * 9 / 5 + 32
r = MsgBox("攝氏 " & c & "度 = 華氏 " & f & "度。", 1 + 64, "轉換結果")
'MsgBox(r)
If r = 1 Then
MsgBox("感謝你使用本程式")
Else
End
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End Sub
End Class
4

題目說明-框架設定
檔案路徑:24/CH4/form2
表單畫面:
執行結果:
程式碼:
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.BorderStyle = BorderStyle.Fixed3D
Label1.Text = "立體邊框"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.BorderStyle = BorderStyle.FixedSingle
Label1.Text = "單線邊框"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.BorderStyle = BorderStyle.None
Label1.Text = "無邊框"
End Sub
End Class
5

題目說明-label 方塊的變化
檔案路徑:24/CH4/form3
表單畫面: 執行結果:
程式碼:
Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Location = New Point(Label1.Location.X - 20, Label1.Location.Y)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Location = New Point(Label1.Location.X + 20, Label1.Location.Y)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Size = New Size(Label1.Size.Width + 10, Label1.Size.Height + 10)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label1.Size = New Size(Label1.Size.Width - 10, Label1.Size.Height - 10)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Label1.BackColor = Color.Blue
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Label1.BackColor = Color.Red
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Label1.BackColor = Color.Green
End Sub
End Class
6

題目說明-背景變換
檔案路徑:24/CH4/form4
表單畫面:
執行結果:
程式碼:
Public Class Form4
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
PictureBox1.Click
PictureBox1.Image = New Bitmap("..\..\house.gif")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.BackgroundImage = New Bitmap("..\..\考試順利.gif")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.BackgroundImage = New Bitmap("..\..\財源廣進.gif")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.BackgroundImage = New Bitmap("..\..\闔家平安.gif")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.BackgroundImage = Nothing
End Sub
End Class
7

題目說明-溫度單位轉換 - 華、攝氏互換
檔案路徑:24/CH4/EX1
表單畫面:
執行結果:
程式碼:
Public Class EX1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f, c As Integer
c = TextBox1.Text
f = c * 9 / 5 + 32
Label2.Text = "攝氏 " & c & "度 = 華氏 " & f & "度"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim f As Integer
Dim c As Single
f = TextBox1.Text
c = Math.Round((f - 32) * 5 / 9, 2)
Label2.Text = "華氏 " & f & "度 = 攝氏 " & c & "度"
End Sub
End Class
8

題目說明-國旗轉換與背景變化
檔案路徑:24/CH4/EX2
表單畫面: 執行結果:
程式碼:
Public Class EX2
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
PictureBox1.Image = New Bitmap("..\..\fUSA2.gif")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.BackgroundImage = New Bitmap("..\..\fBg1.gif")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.BackgroundImage = New Bitmap("..\..\fBg2.gif")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.BackgroundImage = New Bitmap("..\..\fBg3.gif")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox1.Size = New Size(PictureBox1.Size.Width + 10, PictureBox1.Size.Height + 10)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PictureBox1.Size = New Size(PictureBox1.Size.Width - 10, PictureBox1.Size.Height - 10)
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
PictureBox1.Click
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
PictureBox1.Image = New Bitmap("..\..\fCanada2.gif")
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
PictureBox1.Image = New Bitmap("..\..\fFrance2.gif")
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
PictureBox1.Image = New Bitmap("..\..\fJapan2.gif")
End Sub
End Class
9

題目說明-按鈕顯示時間日期
檔案路徑:24/CH5/form1
表單畫面:
執行結果:
程式碼:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "按鈕時間為" & vbCrLf & Now
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
10

題目說明-顯示編碼 - 十六進位
檔案路徑:24/CH5/form2
表單畫面:
執行結果:
程式碼:
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a
a = AscW(TextBox1.Text & ChrW(0))
Label1.Text = "Unicode : " & a & " (十六進位 : " & Hex(a) & ")"
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
11

題目說明-按鈕顯示時間日期
檔案路徑:24/CH5/EX1
表單畫面: 執行結果:
程式碼:
Public Class EX1
Dim a As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text & "1"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text & "2"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text & "3"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text & "4"
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text & "5"
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text & "6"
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text & "7"
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text & "8"
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text & "9"
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button10.Click
TextBox1.Text = TextBox1.Text & "0"
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button11.Click
12

TextBox1.Text = TextBox1.Text & "."
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button12.Click
If a.Substring(0, 1) = "+" Then TextBox1.Text = Mid(a, 2, Len(a) - 1) + Val(TextBox1.Text)
If a.Substring(0, 1) = "-" Then TextBox1.Text = Mid(a, 2, Len(a) - 1) - Val(TextBox1.Text)
If a.Substring(0, 1) = "x" Then TextBox1.Text = Mid(a, 2, Len(a) - 1) * Val(TextBox1.Text)
If a.Substring(0, 1) = "/" Then TextBox1.Text = Mid(a, 2, Len(a) - 1) / Val(TextBox1.Text)
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button13.Click
a = "+" & Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button16.Click
a = "/" & Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button15.Click
a = "x" & Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button14.Click
a = "-" & Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub EX1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
13

題目說明-購買金額折扣計算
檔案路徑:24/CH6/form1
表單畫面: 執行結果:
程式碼:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim buy As Integer, pay As Integer
Dim msg As String
buy = Val(TextBox1.Text)
If buy > 1000 Then
pay = buy * 0.8
If buy > 2000 Then
msg = "超過 2000 元,先打 8 折再減 100 元。"
pay = pay - 100
Else
msg = "超過 1000 元,先打 8 折再減 50 元。"
pay = pay - 50
End If
Else
If buy > 500 Then
msg = "金額超過 500 元打 9 折。"
pay = buy * 0.9
Else
msg = "金額未超過 500 元打 95 折。"
pay = buy * 0.95
End If
End If
TextBox2.Text = pay
Label3.Text = msg
TextBox1.Focus()
TextBox1.SelectAll()
End Sub
End Class
14

題目說明-終極密碼
檔案路徑:24/CH6/form2
表單畫面:
執行結果:
程式碼:
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
vAns.Text = CInt(Int((100 * Rnd()) + 1))
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim v As Integer, ans As Integer
ans = Val(vAns.Text)
v = Val(TextBox1.Text)
vCnt.Text = Val(vCnt.Text) + 1
If v = ans Then
MsgBox("答對了,您共猜了" & vCnt.Text & " 次。")
End '結束程式
Else
If v < ans Then
vMin.Text = v
Else
vMax.Text = v
End If
TextBox1.Focus()
TextBox1.SelectAll()
End If
End Sub
End Class
15

題目說明-字型設定
檔案路徑:24/CH6/form3
表單畫面: 執行結果:
程式碼:
Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click, fn_kai.Click, fn_new.Click, _
fs_9.Click, fs_10.Click, fs_11.Click, fs_12.Click, _
fst_b.Click, fst_i.Click, fst_del.Click, fst_und.Click
Dim fName As String, fsize As Integer, fStyle As FontStyle
If fn_new.Checked Then
fName = "新細明體"
Else
fName = "標楷體"
End If
If fs_9.Checked Then
fsize = 9
ElseIf fs_10.Checked Then
fsize = 10
ElseIf fs_11.Checked Then
fsize = 11
Else
fsize = 12
End If
If sender.Equals(Button1) Then
fn_new.Checked = False
fn_kai.Checked = True
fs_9.Checked = False
fs_10.Checked = False
fs_11.Checked = False
fs_12.Checked = True
fst_b.Checked = False
fst_i.Checked = False
fst_del.Checked = False
fst_und.Checked = False
fName = "標楷體"
fsize = 12
fStyle = FontStyle.Bold
16

Else
fStyle = If(fst_b.Checked, FontStyle.Bold, 0) Or _
If(fst_i.Checked, FontStyle.Italic, 0) Or _
If(fst_del.Checked, FontStyle.Strikeout, 0) Or _
If(fst_und.Checked, FontStyle.Underline, 0)
End If
Label1.Font = New Font(fName, fsize, fStyle)
End Sub
End Class
題目說明-三數求最大值
檔案路徑:24/CH6/EX1
表單畫面:
執行結果:
程式碼:
Public Class EX1
Dim a, b, c As Integer
Dim msg As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
If a >= b And a >= c Then
msg = "最大值為" & a
ElseIf b >= a And b >= c Then
msg = "最大值為" & b
Else
msg = "最大值為" & c
End If
Label2.Text = msg
End Sub
End Class
17

題目說明-美餓美小吃店點餐程式
檔案路徑:24/CH6/EX2
表單畫面:
執行結果:
程式碼:
Public Class EX2
Dim a, b, c, d As Integer, n, k As Integer
Dim msg As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
d = Val(TextBox4.Text)
k = a * 30 + b * 70 + c * 65 + d * 99
n = a * 30 + b * 70 + c * 65 + d * 99
msg = "總價" & n & "元"
If rb2.Checked And n < 300 Then
n = n + 30
msg = "總價" & k & "元" & "+" & "運費30元"
End If
If cb1.Checked Then
n = n * 0.9
msg = "總價" & k & "元" & "+" & "打9折"
18

End If
If cb2.Checked Then
n = n * 0.8
msg = "總價" & k & "元" & "+" & "打8折"
End If
If cb1.Checked And rb2.Checked Then
msg = "總價" & k & "元" & "+" & "運費30元" & "+" & "打9折"
End If
If cb2.Checked And rb2.Checked Then
msg = "總價" & k & "元" & "+" & "運費30元" & "+" & "打8折"
End If
If cb1.Checked And cb2.Checked And rb2.Checked Then
msg = "總價" & k & "元" & "+" & "運費30元" & "+" & "打9折" & "+" & "打8折"
End If
If cb1.Checked And cb2.Checked And rb1.Checked Then
msg = "總價" & k & "元" & "+" & "打9折" & "+" & "打8折"
End If
If cb1.Checked And cb2.Checked And rb3.Checked Then
msg = "總價" & k & "元" & "+" & "打9折" & "+" & "打8折"
End If
TextBox5.Text = n
Label10.Text = msg
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
rb1.Checked = True
rb2.Checked = False
rb3.Checked = False
cb1.Checked = False
cb2.Checked = False
TextBox1.Text = " "
TextBox2.Text = " "
TextBox3.Text = " "
TextBox4.Text = " "
TextBox5.Text = " "
End Sub
End Class
19

題目說明-數字沙漏
檔案路徑:24/CH7/form1
執行結果:
程式碼:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 25 To 1 Step -4
Label1.Text = Label1.Text & vbCrLf & StrDup(i, CStr(i \ 4 + 1))
Next
For i = 5 To 25 Step 4
Label1.Text = Label1.Text & vbCrLf & StrDup(i, CStr(i \ 4 + 1))
Next
End Sub
End Class
題目說明-蟑螂進行曲
檔案路徑:24/CH7/form2
表單畫面:
20

執行結果:
程式碼:
Public Class Form2
Private Sub play_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles play.Click
play.Visible = False
roach.Left = 0 - roach.Size.Width
roach.Visible = True
Do
roach.Left = roach.Left + 1
If roach.Left Mod 10 = 0 Then
roach.Top = roach.Top + CInt(Int(7 * Rnd())) - 3
End If
System.Threading.Thread.Sleep(0.1)
Application.DoEvents()
Loop Until (roach.Left > Me.ClientSize.Width)
play.Visible = True
roach.Visible = False
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
End Sub
End Class
題目說明-電子時鐘
檔案路徑:24/CH7/form3
執行結果:
21

程式碼:
Public Class Form3
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Format(Now(), _
If(CheckBox1.Checked, "hh:mm:ss", "HH:mm:ss"))
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = Format(Now(), "HH:mm:ss")
Label2.Text = DateValue(Now)
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles CheckBox2.CheckedChanged
Timer1.Enabled = Not CheckBox2.Checked
End Sub
End Class
題目說明-成績統計
檔案路徑:24/CH7/EX1
表單畫面: 執行結果:
程式碼:
Public Class EX1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c As Integer
Label4.Text = Val(Label4.Text) + 1
Label6.Text = Val(Label6.Text) + 1
Label7.Text = Val(Label7.Text) + 1
If TextBox1.Text < 60 Then
Label6.Text = Label6.Text - 1
End If
If TextBox1.Text >= 60 Then
Label7.Text = Label7.Text - 1
22

End If
Label3.Text = Label3.Text + 1
Label8.Text = Val(Label8.Text) + Val(TextBox1.Text)
If TextBox1.Text > 100 Then
Label5.Text = "請輸入介於1~100的數字"
Label6.Text = Label6.Text - 1
Label4.Text = Label4.Text - 1
Label3.Text = Label3.Text - 1
Label8.Text = Val(Label8.Text) - Val(TextBox1.Text)
Else
Label5.Text = ""
End If
If TextBox1.Text = -1 Then
Label4.Text = Label4.Text - 1
Label3.Text = Label3.Text - 1
Label7.Text = Label7.Text - 1
Label8.Text = Val(Label8.Text) - Val(TextBox1.Text)
c = Label8.Text / Label4.Text
Label5.Text = " 全班人數 " & Label4.Text & "人" & " , " & "及格人數" & Label6.Text & "人" & vbCrLf
& "不及格人數" & Label7.Text & "人" & " , " & "全班平均值" & c
Else
TextBox1.Text = ""
End If
End Sub
End Class
題目說明-數字金字塔
檔案路徑:24/CH7/EX2
執行結果:
23

程式碼:
Public Class EX2
Private Sub EX2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i, k, j As Integer
For i = 1 To 15
For k = 1 To i
Label1.Text = Label1.Text & CStr(k Mod 10)
Next
For j = i - 1 To 1 Step -1
Label1.Text = Label1.Text & CStr(j Mod 10)
Next
Label1.Text = Label1.Text & vbCrLf
Next
End Sub
End Class
24

題目說明-成績計算
檔案路徑:24/CH8/form1
表單畫面:
執行結果:
程式碼:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim 總分 As Double
Dim 成績陣列() As String = Split(TextBox1.Text, ",")
Dim 筆數 = UBound(成績陣列) + 1
For Each s In 成績陣列
總分 = 總分 + Val(s)
Next
MsgBox("成績筆數:" & 筆數 & vbCrLf & "總成績為:" & 總分 & vbCrLf _
& "平均成績:" & Math.Round(總分 / 筆數, 2))
End Sub
End Class
25

題目說明-計算輸入資料數 – 主控台
檔案路徑:24/CH8/form2
執行結果:
程式碼:
Module Form2
Sub Main()
Dim 資料, 陣列() As String
Dim 筆數 As Integer = 0
Do
Console.Write("請輸入資料:")
資料 = Console.ReadLine()
If 資料 = "" Then Exit Do
ReDim Preserve 陣列(筆數)
陣列(筆數) = 資料
筆數 = 筆數 + 1
Loop
Console.WriteLine("您一共輸入了" & 筆數 & "筆資料。")
Console.ReadLine()
End Sub
End Module
26

題目說明-數值資料筆大小– 主控台
檔案路徑:24/CH8/form3
執行結果:
程式碼:
Module Form3
Sub Main()
Dim X(4), i As Integer
For i = 0 To 4
Console.Write("請輸入數值資料:")
X(i) = Val(Console.ReadLine)
Next
Array.Sort(X)
For i = 0 To 4
Console.WriteLine("x(" & i & ")=" & X(i))
Next
Console.ReadLine()
End Sub
End Module
27

題目說明-成績查詢
檔案路徑:24/CH8/form4
表單畫面: 執行結果:
程式碼:
Public Class Form4
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim 姓名() = {"陳桶一", "黃光權", "胡生妙", "王為全", "李日正", "劉德菖", "方正一", _
"劉康寶", "謝掬花", "王美蘭", "徐小噹", "葉小毛"}
Dim 數學() = {90, 58, 41, 100, 59, 28, 100, 0, 100, 41, 91, 0}
Dim 國文() = {76, 77, 14, 97, 66, 11, 98, 0, 74, 46, 99, 10}
Dim 英文() = {98, 75, 33, 87, 57, 33, 100, 10, 89, 49, 84, 0}
Dim 索引 = Array.IndexOf(姓名, TextBox1.Text)
If 索引 < 0 Then
Label5.Text = "查無此人!"
Label6.Text = ""
Label7.Text = ""
Else
Label5.Text = 數學(索引)
Label6.Text = 國文(索引)
Label7.Text = 英文(索引)
End If
Dim math100$, name$, i%
i = Array.IndexOf(數學, 100)
While i > 0
name = 姓名(i)
math100 = math100 + " " + name
i = Array.IndexOf(數學, 100, i + 1)
End While
MsgBox(math100, , "數學100分")
End Sub
End Class
28

題目說明-計算應納稅額
檔案路徑:24/CH8/form5
表單畫面:
執行結果:
程式碼:
Public Class Form5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim 稅率(,) As Integer = _
{{410000, 6, 0}, {1090000, 13, 28700}, {2180000, 21, 115900}, _
{4090000, 30, 312100}, {4090001, 40, 721100}}
Dim 所得淨額 As Integer = Val(TextBox1.Text)
Dim i As Integer
For i = 0 To UBound(稅率, 1) - 1
If 所得淨額

題目說明-字型設定
檔案路徑:24/CH8/form6
表單畫面: 執行結果:
程式碼:
Imports System.Drawing
Public Class Form6
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ListBox1.SelectedIndex = -1 Then ListBox1.SelectedItem = Label1.Font.Name
If ListBox2.SelectedIndex = -1 Then ListBox2.SelectedIndex = 0
If ListBox3.SelectedIndex = -1 Then ListBox3.SelectedItem = "12"
Dim 字型名稱 As String = ListBox1.SelectedItem
Dim 字型樣式 As FontStyle
Dim 字型大小 As Integer = Val(ListBox3.SelectedItem)
Select Case ListBox2.SelectedItem
Case "標準"
字型樣式 = FontStyle.Regular
Case "粗體"
字型樣式 = FontStyle.Bold
Case "斜體"
字型樣式 = FontStyle.Italic
Case "粗斜體"
字型樣式 = FontStyle.Bold Or FontStyle.Italic
End Select
Label1.Font = New Font(字型名稱, 字型大小, 字型樣式)
End Sub
End Class
30

題目說明-兩個 ListBox 資料互換
檔案路徑:24/CH8/form7
表單畫面:
執行結果:
程式碼:
Public Class Form7
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To ListBox1.SelectedItems.Count - 1
ListBox2.Items.Add(ListBox1.SelectedItems(i))
Next
For i = ListBox1.SelectedIndices.Count - 1 To 0 Step -1
ListBox1.Items.RemoveAt(ListBox1.SelectedIndices(i))
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
For i = 0 To ListBox2.SelectedItems.Count - 1
ListBox1.Items.Add(ListBox2.SelectedItems(i))
Next
For i = ListBox2.SelectedIndices.Count - 1 To 0 Step -1
ListBox2.Items.RemoveAt(ListBox2.SelectedIndices(i))
Next
End Sub
End Class
31

題目說明-字型設定
檔案路徑:24/CH8/form8
表單畫面: 執行結果:
程式碼:
Imports System.Drawing
Public Class Form8
Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox2.Text = "標準"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ComboBox1.Text = "" Then ComboBox1.Text = Label1.Font.Name()
If ComboBox2.Text = "" Then ComboBox2.SelectedIndex = 0
If ComboBox3.Text = "" Then ComboBox1.Text = "12"
Dim 字型名稱 As String = ComboBox1.Text
Dim 字型樣式 As FontStyle
Dim 字型大小 As Integer = Val(ComboBox3.Text)
Select Case ComboBox2.Text
Case "標準"
字型樣式 = FontStyle.Regular
Case "粗體"
字型樣式 = FontStyle.Bold
Case "斜體"
字型樣式 = FontStyle.Italic
Case "粗斜體"
字型樣式 = FontStyle.Bold Or FontStyle.Italic
End Select
Label1.Font = New Font(字型名稱, 字型大小, 字型樣式)
End Sub
End Class
32

題目說明-歌唱成績排行
檔案路徑:24/CH8/EX1
執行結果:
程式碼:
Public Class EX1
Private Sub EX1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim 姓名() = {"吳國民", "李得勝", "蔡可申", "陳夢嬌", "方十全"}
Dim 評分(,) = {{77, 78, 78, 84, 84, 79, 77, 76, 76, 81}, _
{89, 89, 92, 88, 91, 87, 86, 90, 85, 89}, _
{89, 82, 87, 83, 82, 89, 86, 86, 84, 80}, _
{86, 86, 90, 89, 81, 86, 90, 85, 87, 86}, _
{89, 88, 87, 88, 86, 84, 86, 93, 84, 87}}
Dim d As Integer = UBound(姓名)
Dim c As Integer
Dim 平均(d), a, b As Double
For i = 0 To d
a = 評分(i, 0)
b = 評分(i, 0)
c = UBound(評分, 2)
For j = 0 To c
If a > 評分(i, j) Then a = 評分(i, j)
If b < 評分(i, j) Then b = 評分(i, j)
平均(i) = 平均(i) + 評分(i, j)
Next
平均(i) = Math.Round((平均(i) - a - b) / (c - 1), 2)
Next
Array.Sort(平均, 姓名)
Dim m, s As String
For i = d To 0 Step -1
m = 姓名(i) & " " & 平均(i) & vbCrLf
s = s + m
Next
Label1.Text = s
End Sub
End Class
33

題目說明-移動 ListBox 選項順序
檔案路徑:24/CH8/EX2
表單畫面:
執行結果:
程式碼:
Public Class EX2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To ListBox1.SelectedItems.Count - 1
ListBox1.Items.Insert(ListBox1.SelectedIndex - 1, ListBox1.SelectedItems(i))
Next
For i = ListBox1.SelectedIndices.Count - 1 To 0 Step -1
ListBox1.Items.RemoveAt(ListBox1.SelectedIndices(i))
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
For i = 0 To ListBox1.SelectedItems.Count - 1
ListBox1.Items.Insert(ListBox1.SelectedIndex + 2, ListBox1.SelectedItems(i))
Next
For i = ListBox1.SelectedIndices.Count - 1 To 0 Step -1
ListBox1.Items.RemoveAt(ListBox1.SelectedIndices(i))
Next
End Sub
End Class
34

題目說明-餐廳排隊給號系統
檔案路徑:24/CH8/EX3
表單畫面:
執行結果:
程式碼:
Public Class EX3
Dim i As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
i = i + 1
ListBox1.Items.Add(Format(i, "00#-") & TextBox1.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As Integer
For i = 0 To ListBox1.SelectedItems.Count - 1
ListBox2.Items.Add(ListBox1.SelectedItems(i))
Next
For i = ListBox1.SelectedIndices.Count - 1 To 0 Step -1
ListBox1.Items.RemoveAt(ListBox1.SelectedIndices(i))
35

Next
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim i As Integer
For i = 0 To ListBox2.SelectedItems.Count - 1
ListBox1.Items.Add(ListBox2.SelectedItems(i))
Next
For i = ListBox2.SelectedIndices.Count - 1 To 0 Step -1
ListBox2.Items.RemoveAt(ListBox2.SelectedIndices(i))
Next
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ListBox2.Items.Clear()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If ListBox1.SelectedIndex = -1 Then
MsgBox("你尚未選取資料。")
Else
ListBox1.Items(ListBox1.SelectedIndex) = Format(ListBox1.SelectedIndex + 1, "00#-") & TextBox1.Text
End If
End Sub
End Class
36

題目說明-模擬開獎程式
檔案路徑:24/CH9/form1
表單畫面:
執行結果:
程式碼:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Draw(4) As Integer
Dim Lucky As Integer
Randomize()
For i = 0 To 4
While Draw(i) = 0
Lucky = CInt(Int(Rnd() * 39) + 1)
If Array.IndexOf(Draw, Lucky) = -1 Then
Draw(i) = Lucky
End If
End While
Next
Label1.Text = Draw(0)
Label2.Text = Draw(1)
Label3.Text = Draw(2)
Label4.Text = Draw(3)
Label5.Text = Draw(4)
Button1.Text = "再試一次"
End Sub
End Class
37

題目說明-遞迴
檔案路徑:24/CH9/form2
表單畫面:
執行結果:
程式碼:
Public Class Form2
Function fac(ByVal i As Integer) As Long
If i

題目說明-計算階乘– 主控台
檔案路徑:24/CH9/Module1
執行結果:
程式碼:
Module Module1
Sub main()
Frac(5)
End Sub
Sub Frac(ByVal n As Integer)
Dim total As Double = 1
For i = 2 To n
total *= i
Next
Console.WriteLine(n & "!的值為" & total)
End Sub
End Module
39

題目說明-計算等加速度運動的速度 – 主控台
檔案路徑:24/CH9/Module2
執行結果:
程式碼:
Module Module2
Sub finalV(ByVal Seconds As Single, _
Optional ByVal V0 As Single = 0, _
Optional ByVal Accelaration As Single = 9.8)
Console.WriteLine("初速" & V0 & ",加速度" & Accelaration & _
",經" & Seconds & "秒後,")
Dim Velocity = V0 + Accelaration * Seconds
Console.WriteLine("速度為" & Velocity)
End Sub
Sub Main()
finalV(10, 15, 3)
Console.WriteLine("----------")
finalV(10, 20)
Console.WriteLine("----------")
finalV(10)
End Sub
End Module
40

題目說明-傳值呼叫– 主控台
檔案路徑:24/CH9/Module3
執行結果:
程式碼:
Module Module3
Sub DoubleArrayValue(ByVal b() As Integer)
For i = 0 To b.Length - 1
b(i) *= 2
Next
End Sub
Sub main()
Dim a() As Integer = {1, 2, 3, 4}
DoubleArrayValue(a)
For i = 0 To a.Length - 1
Console.WriteLine(a(i))
Next
End Sub
End Module
41

題目說明-河內塔遞迴 – 主控台
檔案路徑:24/CH9/Module4
執行結果:
程式碼:
Module Module4
Dim number As Integer '移動次數
Sub Main()
Dim n As Integer = 0
number = 0
Console.Write("圓盤的張數 = ")
n = Console.ReadLine()
aa(n, "A", "B", "C")
Console.ReadLine()
End Sub
Sub aa(ByVal n, ByVal a, ByVal b, ByVal c)
If n > 0 Then
' 把 n-1 張圓盤從 a 移到 b
aa(n - 1, a, c, b)
' 把最下面的圓盤從 a 移到 c
number += 1
Console.WriteLine("{0} : {1} --> {2}", number, a, c)
' 把 n-1 張圓盤從 b 移到 c
aa(n - 1, b, a, c)
End If
End Sub
End Module
42

題目說明-擲骰模擬程式
檔案路徑:24/CH9/EX1
表單畫面: 執行結果:
程式碼:
Imports System.Drawing
Public Class EX1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c(1) As Integer
Randomize()
For i = 0 To 1
c(i) = CInt(Int(Rnd() * 6) + 1)
Next
If c(0) = 1 Then
PictureBox1.Image = New Bitmap("..\..\1.gif")
ElseIf c(0) = 2 Then
PictureBox1.Image = New Bitmap("..\..\2.gif")
ElseIf c(0) = 3 Then
PictureBox1.Image = New Bitmap("..\..\3.gif")
ElseIf c(0) = 4 Then
PictureBox1.Image = New Bitmap("..\..\4.gif")
ElseIf c(0) = 5 Then
PictureBox1.Image = New Bitmap("..\..\5.gif")
ElseIf c(0) = 6 Then
PictureBox1.Image = New Bitmap("..\..\6.gif")
End If
If c(1) = 1 Then
PictureBox2.Image = New Bitmap("..\..\1.gif")
ElseIf c(1) = 2 Then
PictureBox2.Image = New Bitmap("..\..\2.gif")
ElseIf c(1) = 3 Then
PictureBox2.Image = New Bitmap("..\..\3.gif")
ElseIf c(1) = 4 Then
PictureBox2.Image = New Bitmap("..\..\4.gif")
ElseIf c(1) = 5 Then
PictureBox2.Image = New Bitmap("..\..\5.gif")
ElseIf c(1) = 6 Then
PictureBox2.Image = New Bitmap("..\..\6.gif")
End If
End Sub
End Class
43

題目說明-自由落體掉落距離
檔案路徑:24/CH9/EX2
表單畫面:
執行結果:
程式碼:
Public Class EX2
Function freefall(ByVal t) As Single
Return 1 / 2 * 9.8 * t ^ 2
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label3.Text = "自由落體掉落距離" & freefall(Val(TextBox1.Text)) & "米"
End Sub
End Class
44

題目說明-大寫轉小寫、加入千分位
檔案路徑:24/CH10/form1
表單畫面: 執行結果:
程式碼:
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles TextBox1.KeyPress
Select Case e.KeyChar
Case "a" To "z"
End Select
TextBox1.AppendText(Chr(Asc(e.KeyChar) - 32))
e.Handled = True
End Sub
Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.MouseEnter
Me.BackColor = Color.White
End Sub
Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.MouseLeave
Me.BackColor = SystemColors.Control
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b As String
Dim c As Integer
a = TextBox2.Text
If Len(a) Mod 3 0 Then
b = Mid(a, 1, Len(a) Mod 3)
For c = (Len(a) Mod 3) + 1 To Len(a) Step 3
b = b + "," + Mid(a, c, 3)
Next
Else
For c = 1 To Len(a) Step 3
b = b + "," + Mid(a, c, 3)
Next
b = Mid(b, 2)
End If
TextBox2.Text = b
End Sub
End Class
45

題目說明-繪製基本幾何圖形
檔案路徑:24/CH11/form1
執行結果:
程式碼:
Public Class Form1
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles
Me.Paint
Dim g = e.Graphics
g.DrawRectangle(Pens.DarkBlue, 10, 10, 40, 60)
Dim bigpen = New Pen(Color.Brown, 3)
g.DrawRectangle(bigpen, 60, 10, 40, 60)
Dim biggerpen = New Pen(Color.Gold, 9)
g.DrawRectangle(biggerpen, 110, 10, 40, 60)
g.DrawLine(bigpen, 160, 10, 210, 60)
g.DrawLine(biggerpen, 160, 60, 210, 10)
Dim p1 = New Point(40, 80)
Dim p2 = New Point(15, 101)
Dim p3 = New Point(26, 130)
Dim p4 = New Point(54, 130)
Dim p5 = New Point(65, 101)
g.DrawLine(bigpen, p1, p2)
g.DrawLine(bigpen, p2, p3)
g.DrawLine(bigpen, p3, p4)
g.DrawLine(bigpen, p4, p5)
g.DrawLine(bigpen, p5, p1)
g.DrawEllipse(Pens.Red, 80, 80, 100, 60)
g.FillEllipse(Brushes.Red, 80, 80, 100, 60)
End Sub
End Class
46

題目說明-亂數畫圓
檔案路徑:24/CH11/form2
執行結果:
程式碼:
Public Class Form2
Private Sub Form2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles
Me.Paint
Dim width = Me.ClientSize.Width / 10
Dim height = Me.ClientSize.Height / 10
Dim mybrushes() = {Brushes.Red, Brushes.Orange, _
Brushes.Yellow, Brushes.Green, _
Brushes.Blue, Brushes.Indigo, _
Brushes.Purple, Brushes.White}
Randomize()
For i = 0 To 9
For j = 0 To 9
Dim index = Fix(Rnd() * 8)
Dim size = Fix(Rnd() * width) + 1
Dim rect = New Rectangle(i * width + index, _
j * height + index, _
size, size)
e.Graphics.FillEllipse(mybrushes(index), rect)
Next
Next
End Sub
Private Sub Form2_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.SizeChanged
Me.Invalidate()
End Sub
End Class
47

題目說明-調整圖片大小、旋轉圖片
檔案路徑:24/CH11/form3
表單畫面: 執行結果:
程式碼:
Public Class Form3
Dim img As Image
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
img = Image.FromFile("..\..\simple.jpg")
Catch ex As Exception
MsgBox(ex.Message)
End
End Try
End Sub
Private Sub Form3_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Handles Me.MouseClick
If e.Button = Windows.Forms.MouseButtons.Left Then
img.RotateFlip(RotateFlipType.Rotate270FlipNone)
ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
img.RotateFlip(RotateFlipType.Rotate90FlipNone)
End If
Me.Invalidate()
End Sub
Private Sub Form3_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles
Me.Paint
e.Graphics.DrawImage(img, 0, 0, Me.ClientSize.Width, _
Me.ClientSize.Height)
End Sub
Private Sub Form3_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.SizeChanged
Me.Invalidate()
End Sub
End Class
48

題目說明-指定畫圓大小
檔案路徑:24/CH11/EX1
表單畫面:
執行結果:
程式碼:
Public Class EX1
Private Sub EX1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles
Me.Paint
Dim g = e.Graphics
g.DrawRectangle(Pens.Black, 10, 10, 60, 60)
g.FillRectangle(Brushes.White, 11, 11, 59, 59)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim g = Me.CreateGraphics()
g.Clear(Me.BackColor)
Dim a As Integer = TextBox1.Text
g.FillEllipse(Brushes.Red, 100, 10, a * 2, a * 2)
g.Dispose()
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
49

Handles RadioButton1.CheckedChanged
End Sub
Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
RadioButton1.Click
Dim g = Me.CreateGraphics()
g.Clear(Me.BackColor)
Dim a As Integer = TextBox1.Text
g.FillEllipse(Brushes.Red, 100, 10, a * 2, a * 2)
g.Dispose()
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles RadioButton2.CheckedChanged
Dim g = Me.CreateGraphics()
g.Clear(Me.BackColor)
Dim a As Integer = TextBox1.Text
g.FillEllipse(Brushes.Yellow, 100, 10, a * 2, a * 2)
g.Dispose()
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles RadioButton3.CheckedChanged
Dim g = Me.CreateGraphics()
g.Clear(Me.BackColor)
Dim a As Integer = TextBox1.Text
g.FillEllipse(Brushes.Green, 100, 10, a * 2, a * 2)
g.Dispose()
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles RadioButton4.CheckedChanged
Dim g = Me.CreateGraphics()
g.Clear(Me.BackColor)
Dim a As Integer = TextBox1.Text
g.FillEllipse(Brushes.Blue, 100, 10, a * 2, a * 2)
g.Dispose()
End Sub
End Class
50

題目說明-簡易播放程式
檔案路徑:24/CH11/EX2
表單畫面:
執行結果:
程式碼:
Public Class EX2
Private Sub EX2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'AxWindowsMediaPlayer1.settings.autoStart = False
'AxWindowsMediaPlayer1.URL = "\CH11\music.wma"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
AxWindowsMediaPlayer1.Ctlcontrols.pause()
51

End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
AxWindowsMediaPlayer1.fullScreen = True
End Sub
Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
Me.AxWindowsMediaPlayer1.settings.volume = Me.HScrollBar1.Value
End Sub
End Class
52

題目說明-溫度單位轉換 - 攝氏轉華氏
檔案路徑:24/CH11-1/form1
表單畫面:
執行結果:
53

程式碼:
Public Class Form1
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles _
ComboBox1.SelectedIndexChanged, ComboBox2.SelectedIndexChanged,
ComboBox3.SelectedIndexChanged, ComboBox4.SelectedIndexChanged
If ComboBox2.SelectedIndex = -1 Then
MsgBox("請記得選擇大小", , "")
Else
If ComboBox4.SelectedIndex = 0 Then Me.BackColor = Color.Red
If ComboBox4.SelectedIndex = 1 Then Me.BackColor = Color.Yellow
If ComboBox4.SelectedIndex = 2 Then Me.BackColor = Color.Green
If ComboBox4.SelectedIndex = 3 Then Me.BackColor = Color.Blue
If ComboBox4.SelectedIndex = 4 Then Me.BackColor = Color.Black
If ComboBox4.SelectedIndex = 5 Then Me.BackColor = Color.White
If ComboBox4.SelectedIndex = 6 Then Me.BackColor = Color.Purple
Refresh()
Dim g As Graphics = Me.CreateGraphics
Dim size% = ComboBox2.SelectedItem
Dim pointx(9), pointy(9) As Integer
Dim i, j, x, y As Integer
x = Me.ClientSize.Width / 2
y = Me.ClientSize.Height / 2
For i = 0 To ComboBox1.SelectedItem - 1
pointx(i) = x + size * Math.Sin((360 / ComboBox1.SelectedItem * i * Math.PI / 180))
pointy(i) = y + size * Math.Cos((360 / ComboBox1.SelectedItem * i * Math.PI / 180))
Next
For i = 0 To ComboBox1.SelectedItem - 1
For j = 0 To ComboBox1.SelectedItem - 1
g.DrawLine(Pens.Black, pointx(i), pointy(i), pointx(j), pointy(j))
Next
Next
For i = 0 To ComboBox1.SelectedItem - 1
For j = 0 To ComboBox1.SelectedItem - 1
If ComboBox3.SelectedIndex = 0 Then g.DrawLine(Pens.Red, pointx(i), pointy(i), pointx(j),
pointy(j))
If ComboBox3.SelectedIndex = 1 Then g.DrawLine(Pens.Yellow, pointx(i), pointy(i), pointx(j),
pointy(j))
If ComboBox3.SelectedIndex = 2 Then g.DrawLine(Pens.Green, pointx(i), pointy(i), pointx(j),
pointy(j))
If ComboBox3.SelectedIndex = 3 Then g.DrawLine(Pens.Blue, pointx(i), pointy(i), pointx(j),
pointy(j))
If ComboBox3.SelectedIndex = 4 Then g.DrawLine(Pens.Black, pointx(i), pointy(i), pointx(j),
pointy(j))
If ComboBox3.SelectedIndex = 5 Then g.DrawLine(Pens.White, pointx(i), pointy(i), pointx(j),
pointy(j))
If ComboBox3.SelectedIndex = 6 Then g.DrawLine(Pens.Purple, pointx(i), pointy(i), pointx(j),
pointy(j))
Next
Next
End If
End Sub
End Class
54

題目說明-功能表設計
檔案路徑:24/CH12/form1
表單畫面:
執行結果:
程式碼:
Public Class Form1
Dim x As Integer
Private Sub 放大ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 放大ToolStripMenuItem.Click
Me.Width *= 1.2
Me.Height *= 1.2
End Sub
Private Sub 縮小ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 縮小ToolStripMenuItem.Click
Me.Width *= 0.8
Me.Height *= 0.8
End Sub
Private Sub 還原ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 還原ToolStripMenuItem.Click
Me.Width = 300
Me.Height = 300
End Sub
55

Private Sub 畫圓ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 畫圓ToolStripMenuItem.Click
End Sub
Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripMenuItem3.Click
x = 200
Me.Invalidate()
ToolStripMenuItem4.Checked = False
ToolStripMenuItem5.Checked = False
End Sub
Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripMenuItem4.Click
x = 300
Me.Invalidate()
ToolStripMenuItem3.Checked = False
ToolStripMenuItem5.Checked = False
End Sub
Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripMenuItem5.Click
x = 400
Me.Invalidate()
ToolStripMenuItem3.Checked = False
ToolStripMenuItem4.Checked = False
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles
Me.Paint
Dim g = e.Graphics
g.Clear(BackColor)
g.FillEllipse(Brushes.Black, 10, 60, x, x)
End Sub
Private Sub RedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles RedToolStripMenuItem.Click
Me.BackColor = Color.Red
End Sub
Private Sub GreenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles GreenToolStripMenuItem.Click
Me.BackColor = Color.Green
End Sub
Private Sub BlueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles BlueToolStripMenuItem.Click
Me.BackColor = Color.Blue
End Sub
Private Sub 一般ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 一般ToolStripMenuItem.Click
Label1.Font = New Font(Label1.Font, FontStyle.Regular)
粗體ToolStripMenuItem.Checked = False
斜體ToolStripMenuItem.Checked = False
粗斜體ToolStripMenuItem.Checked = False
End Sub
Private Sub 粗體ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 粗體ToolStripMenuItem.Click
Label1.Font = New Font(Label1.Font, FontStyle.Bold)
End Sub
Private Sub 斜體ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 斜體ToolStripMenuItem.Click
Label1.Font = New Font(Label1.Font, FontStyle.Italic)
End Sub
Private Sub 粗斜體ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 粗斜體ToolStripMenuItem.Click
Label1.Font = New Font(Label1.Font, FontStyle.Bold Or FontStyle.Italic)
56

End Sub
Private Sub ToolStripMenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripMenuItem7.Click
Label1.Font = New Font(Label1.Font.Name, 14, Label1.Font.Style)
End Sub
Private Sub ToolStripMenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripMenuItem8.Click
Label1.Font = New Font(Label1.Font.Name, 18, Label1.Font.Style)
End Sub
Private Sub ToolStripMenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripMenuItem9.Click
Label1.Font = New Font(Label1.Font.Name, 22, Label1.Font.Style)
End Sub
Private Sub 標楷體ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 標楷體ToolStripMenuItem.Click
Label1.Font = New Font("標楷體", Label1.Font.Size, Label1.Font.Style)
End Sub
Private Sub 新細明體ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 新細明體ToolStripMenuItem.Click
Label1.Font = New Font("新細明體", Label1.Font.Size, Label1.Font.Style)
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripButton1.Click
Label1.ForeColor = Color.SpringGreen
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripButton2.Click
Label1.ForeColor = Color.Khaki
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripButton3.Click
Label1.ForeColor = Color.DarkSlateGray
End Sub
Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripLabel1.Click
Shell("c:\windows\notepad.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub ToolStripLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripLabel2.Click
Shell("c:\windows\system32\calc.exe", AppWinStyle.NormalFocus)
End Sub
End Class
57

題目說明-功能表設計、單位換算
檔案路徑:24/CH12/EX1
表單畫面: 執行結果:
程式碼:
Public Class EX1
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripButton1.Click
Label1.ForeColor = Color.SpringGreen
Label2.ForeColor = Color.SpringGreen
Label3.ForeColor = Color.SpringGreen
Label4.ForeColor = Color.SpringGreen
TextBox1.ForeColor = Color.SpringGreen
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripButton2.Click
Label1.ForeColor = Color.DarkViolet
Label2.ForeColor = Color.DarkViolet
Label3.ForeColor = Color.DarkViolet
Label4.ForeColor = Color.DarkViolet
TextBox1.ForeColor = Color.DarkViolet
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripButton3.Click
Label1.ForeColor = Color.DarkSlateGray
Label2.ForeColor = Color.DarkSlateGray
Label3.ForeColor = Color.DarkSlateGray
Label4.ForeColor = Color.DarkSlateGray
TextBox1.ForeColor = Color.DarkSlateGray
End Sub
Private Sub 公尺ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 公尺ToolStripMenuItem.Click
Label1.Text = "公尺"
Label2.Text = "英尺"
Label3.Text = TextBox1.Text * 3.2808
End Sub
Private Sub 英尺ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 英尺ToolStripMenuItem.Click
Label1.Text = "英尺"
Label2.Text = "公尺"
Label3.Text = TextBox1.Text * 0.3048
End Sub
Private Sub 公斤ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 公斤ToolStripMenuItem1.Click
Label1.Text = "公斤"
Label2.Text = "英磅"
Label3.Text = TextBox1.Text * 2.2046
End Sub
58

Private Sub 英磅ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 英磅ToolStripMenuItem.Click
Label1.Text = "英磅"
Label2.Text = "公斤"
Label3.Text = TextBox1.Text * 0.4536
End Sub
Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripButton4.Click
Label1.ForeColor = Color.Aqua
Label2.ForeColor = Color.Aqua
Label3.ForeColor = Color.Aqua
Label4.ForeColor = Color.Aqua
TextBox1.ForeColor = Color.Aqua
End Sub
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ToolStripButton5.Click
Label1.ForeColor = Color.Red
Label2.ForeColor = Color.Red
Label3.ForeColor = Color.Red
Label4.ForeColor = Color.Red
TextBox1.ForeColor = Color.Red
End Sub
Private Sub ToolStripMenuItem3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles ToolStripMenuItem3.Click
Label1.Font = New Font(Label1.Font.Name, 9, Label1.Font.Style)
Label2.Font = New Font(Label1.Font.Name, 9, Label1.Font.Style)
Label3.Font = New Font(Label1.Font.Name, 9, Label1.Font.Style)
Label4.Font = New Font(Label1.Font.Name, 9, Label1.Font.Style)
TextBox1.Font = New Font(Label1.Font.Name, 9, Label1.Font.Style)
ToolStripStatusLabel1.Text = "字型大小 = 9"
End Sub
Private Sub ToolStripMenuItem4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles ToolStripMenuItem4.Click
Label1.Font = New Font(Label1.Font.Name, 12, Label1.Font.Style)
Label2.Font = New Font(Label1.Font.Name, 12, Label1.Font.Style)
Label3.Font = New Font(Label1.Font.Name, 12, Label1.Font.Style)
Label4.Font = New Font(Label1.Font.Name, 12, Label1.Font.Style)
TextBox1.Font = New Font(Label1.Font.Name, 12, Label1.Font.Style)
ToolStripStatusLabel1.Text = "字型大小 = 12"
End Sub
Private Sub ToolStripMenuItem5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles ToolStripMenuItem5.Click
Label1.Font = New Font(Label1.Font.Name, 15, Label1.Font.Style)
Label2.Font = New Font(Label1.Font.Name, 15, Label1.Font.Style)
Label3.Font = New Font(Label1.Font.Name, 15, Label1.Font.Style)
Label4.Font = New Font(Label1.Font.Name, 15, Label1.Font.Style)
TextBox1.Font = New Font(Label1.Font.Name, 15, Label1.Font.Style)
ToolStripStatusLabel1.Text = "字型大小 = 15"
End Sub
End Class
59

題目說明-讀寫文字檔
檔案路徑:24/CH13/form1
表單畫面:
執行結果:
60

程式碼:
Public Class Form1
Dim filechanged As Boolean = False
Private Sub 開啟ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 開啟ToolStripMenuItem.Click
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
End If
Me.Text = OpenFileDialog1.FileName
Label2.Text = OpenFileDialog1.FileName
filechanged = False
End Sub
Private Sub 儲存ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 儲存ToolStripMenuItem.Click
If BIG5ToolStripMenuItem.Checked Then
My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, TextBox1.Text, False,
System.Text.Encoding.GetEncoding(950))
Else
My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, TextBox1.Text, False)
End If
Me.Text = OpenFileDialog1.FileName
filechanged = False
End Sub
Private Sub BIG5ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles BIG5ToolStripMenuItem.Click
UTF8ToolStripMenuItem.Checked = False
UTF16ToolStripMenuItem.Checked = False
End Sub
Private Sub UTF8ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles UTF8ToolStripMenuItem.Click
BIG5ToolStripMenuItem.Checked = False
UTF16ToolStripMenuItem.Checked = False
End Sub
Private Sub UTF16ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles UTF16ToolStripMenuItem.Click
BIG5ToolStripMenuItem.Checked = False
UTF8ToolStripMenuItem.Checked = False
End Sub
Private Sub 另存新檔ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 另存新檔ToolStripMenuItem.Click
SaveFileDialog1.Filter = "純文字檔(*.txt)|*.txt|" & "Big5文字檔(*.txt)|*.txt|" & "所有檔案(*.*)|*.*"
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, False,
System.Text.Encoding.GetEncoding(950))
Else
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, False)
End If
Me.Text = SaveFileDialog1.FileName
Label2.Text = SaveFileDialog1.FileName
filechanged = False
End Sub
Private Sub 離開ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 離開ToolStripMenuItem.Click
End
End Sub
Private Sub 關閉ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 關閉ToolStripMenuItem.Click
Dim flag As Integer
If filechanged = True Then
61

flag = MsgBox("檔案尚未儲存,是否要存檔?", "4+32", "尚未存檔")
If flag = 6 Then
My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, TextBox1.Text, False)
End If
End If
TextBox1.Text = ""
Label2.Text = ""
Me.Text = Me.Name
filechanged = False
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
TextBox1.TextChanged
If filechanged = False Then
Me.Text &= "*"
filechanged = True
End If
End Sub
End Class
題目說明-讀寫文字檔
檔案路徑:24/CH13/form2
表單畫面:
62

執行結果:
程式碼:
Public Class Form2
Dim writer As System.IO.StreamWriter
Sub logging(ByVal message As String)
writer.WriteLine(Now & ", " & message)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim linenum As Integer = 1
Try
Dim reader = My.Computer.FileSystem.OpenTextFileReader(OpenFileDialog1.FileName)
While reader.EndOfStream = False
Dim singleline = reader.ReadLine()
TextBox1.Text &= linenum.ToString("D3") & " " & singleline & vbCrLf
linenum += 1
End While
reader.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Try
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, False)
Logging("儲存檔案:" & SaveFileDialog1.FileName)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
63

題目說明-菜單管理
檔案路徑:24/CH13/form3
表單畫面:
執行結果:
64

程式碼:
Public Class Form3
Dim Menufilepath = "D:\CH13\Menu.csv"
Dim MenuItems As New ArrayList
Dim OrderDetail As New ArrayList()
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim Menureader = My.Computer.FileSystem.OpenTextFieldParser(Menufilepath, ",")
While Not Menureader.EndOfData
Dim OneRow() = Menureader.ReadFields()
MenuItems.Add(OneRow)
ListBox1.Items.Add(OneRow(0) & "-" & OneRow(1) & "元")
End While
Menureader.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles ListBox1.SelectedIndexChanged
Dim index = ListBox1.SelectedIndex
If index >= 0 Then
TextBox1.Text = MenuItems(index)(0)
TextBox2.Text = MenuItems(index)(1)
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim index = ListBox1.SelectedIndex
If index >= 0 Then
MenuItems(index)(0) = TextBox1.Text
MenuItems(index)(1) = TextBox2.Text
ListBox1.Items(index) = MenuItems(index)(0) & "-" & MenuItems(index)(1) & "元"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox2.Text "" And Val(TextBox2.Text) Then
Dim NewItem() = {TextBox1.Text, TextBox2.Text}
MenuItems.Add(NewItem)
ListBox1.Items.Add(TextBox1.Text & "-" & TextBox2.Text & "元")
Else
MsgBox("輸入錯誤!")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MenuItems.RemoveAt(ListBox1.SelectedIndex)
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try
Dim MenuWriter = My.Computer.FileSystem.OpenTextFileWriter(Menufilepath, False)
For Each item In MenuItems
MenuWriter.WriteLine(item(0) & "," & item(1))
Next
MenuWriter.Close()
MsgBox("儲存成功")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
65

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim index = ListBox1.SelectedIndex
If index >= 0 And Val(TextBox3.Text) > 0 Then
Dim Entry() = {MenuItems(index)(0), TextBox3.Text, TextBox3.Text * MenuItems(index)(1)}
OrderDetail.Add(Entry)
ListBox2.Items.Add(MenuItems(index)(0) & "," & TextBox3.Text & "份," & Val(TextBox3.Text) *
MenuItems(index)(1) & "元")
Else
MsgBox("需選取菜色且數量大於0")
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim index = ListBox2.SelectedIndex
If index >= 0 Then
ListBox2.Items.RemoveAt(index)
OrderDetail.RemoveAt(index)
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If ListBox2.Items.Count > 0 Then
Dim OrderWriter = My.Computer.FileSystem.OpenTextFileWriter("D:\CH13\Menu.csv", True)
Dim Msg As String = "你點了:" & vbCrLf
Dim SubTotal As Integer = 0
For i = 0 To OrderDetail.Count - 1
OrderWriter.WriteLine(Now & OrderDetail(i)(0) & "," & OrderDetail(i)(1) & "," & OrderDetail(i)(2))
Msg &= ListBox2.Items(i) & vbCrLf
SubTotal += OrderDetail(i)(2)
Next
OrderWriter.Close()
ListBox2.Items.Clear()
OrderDetail.Clear()
MsgBox(Msg & vbCrLf & "共" & SubTotal & "元")
Else
MsgBox("你還沒點菜")
End If
End Sub
End Class
66

題目說明-成績輸入程式
檔案路徑:24/CH13/EX1
表單畫面:
執行結果:
67

程式碼:
Public Class EX1
Dim Menufilepath = "D:\CH13\Score.csv"
Dim MenuItems As New ArrayList
Private Sub EX1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim Menureader = My.Computer.FileSystem.OpenTextFieldParser(Menufilepath, ",")
While Not Menureader.EndOfData
Dim OneRow() = Menureader.ReadFields()
MenuItems.Add(OneRow)
ListBox1.Items.Add(OneRow(0) & " , 英文 " & OneRow(1) & " 分, 數學 " & OneRow(2) & " 分")
End While
Menureader.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Dim a As Integer
Dim b As Integer
For Each item In MenuItems
a = a + item(1)
b = b + item(2)
Label6.Text = Math.Round(a / ListBox1.Items.Count, 2)
Label7.Text = Math.Round(b / ListBox1.Items.Count, 2)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MenuItems.RemoveAt(ListBox1.SelectedIndex)
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
Dim a As Integer
Dim b As Integer
For Each item In MenuItems
a = a + item(1)
b = b + item(2)
Label6.Text = Math.Round(a / ListBox1.Items.Count, 2)
Label7.Text = Math.Round(b / ListBox1.Items.Count, 2)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox2.Text "" And TextBox3.Text "" And Val(TextBox2.Text) And Val(TextBox3.Text) Then
Dim NewItem() = {TextBox1.Text, TextBox2.Text, TextBox3.Text}
MenuItems.Add(NewItem)
ListBox1.Items.Add(TextBox1.Text & " , 英文 " & TextBox2.Text & " 分, 數學 " & TextBox3.Text & "
分")
Else
MsgBox("輸入錯誤!")
End If
Dim a As Integer
Dim b As Integer
For Each item In MenuItems
a = a + item(1)
b = b + item(2)
Label6.Text = Math.Round(a / ListBox1.Items.Count, 2)
Label7.Text = Math.Round(b / ListBox1.Items.Count, 2)
Next
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles ListBox1.SelectedIndexChanged
Dim index = ListBox1.SelectedIndex
If index >= 0 Then
68

TextBox1.Text = MenuItems(index)(0)
TextBox2.Text = MenuItems(index)(1)
TextBox3.Text = MenuItems(index)(2)
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim index = ListBox1.SelectedIndex
If index >= 0 Then
MenuItems(index)(0) = TextBox1.Text
MenuItems(index)(1) = TextBox2.Text
MenuItems(index)(2) = TextBox3.Text
ListBox1.Items(index) = MenuItems(index)(0) & " , 英文 " & MenuItems(index)(1) & " 分, 數學 " &
MenuItems(index)(2) & " 分"
End If
Dim a As Integer
Dim b As Integer
For Each item In MenuItems
a = a + item(1)
b = b + item(2)
Label6.Text = Math.Round(a / ListBox1.Items.Count, 2)
Label7.Text = Math.Round(b / ListBox1.Items.Count, 2)
Next
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try
Dim MenuWriter = My.Computer.FileSystem.OpenTextFileWriter(Menufilepath, False)
For Each item In MenuItems
MenuWriter.WriteLine(item(0) & "," & item(1) & "," & item(2))
Next
MenuWriter.Close()
MsgBox("儲存成功")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
69

題目說明-資料庫總管
檔案路徑:24/CH14/form1
執行結果:
程式碼:
Public Class Form1
Private Sub 書籍BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles 書籍BindingNavigatorSaveItem.Click
Me.Validate()
Me.書籍BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.產品DataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 這行程式碼會將資料載入 '產品DataSet.書籍' 資料表。您可以視需要進行移動或移除。
Me.書籍TableAdapter.Fill(Me.產品DataSet.書籍)
End Sub
End Class
70

題目說明-資料庫總管
檔案路徑:24/CH14/form2
執行結果:
程式碼:
Public Class Form2
Private Sub TshirtBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TshirtBindingNavigatorSaveItem.Click
Me.Validate()
Me.TshirtBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.成衣DataSet1)
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 這行程式碼會將資料載入 '成衣DataSet1.Tshirt' 資料表。您可以視需要進行移動或移除。
Me.TshirtTableAdapter.Fill(Me.成衣DataSet1.Tshirt)
End Sub
End Class
71

題目說明-資料庫總管
檔案路徑:24/CH14/form3
執行結果:
程式碼:
Public Class Form3
Private Sub 書籍BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs)
Me.Validate()
Me.書籍BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.產品DataSet1)
End Sub
Private Sub 書籍BindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles 書籍BindingNavigatorSaveItem.Click
Me.Validate()
Me.書籍BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.產品DataSet1)
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 這行程式碼會將資料載入 '產品DataSet1.書籍' 資料表。您可以視需要進行移動或移除。
Me.書籍TableAdapter.Fill(Me.產品DataSet1.書籍)
End Sub
End Class
72

題目說明-資料庫總管
檔案路徑:24/CH14/form4
執行結果:
程式碼:
Public Class Form4
Private Sub Form4_FormClosing(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
DataGridView1.EndEdit()
書籍TableAdapter.Update(產品DataSet1.書籍)
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 這行程式碼會將資料載入 '產品DataSet1.書籍' 資料表。您可以視需要進行移動或移除。
Me.書籍TableAdapter.Fill(Me.產品DataSet1.書籍)
End Sub
End Class
73

題目說明-加減乘除計算
檔案路徑:24/Exam1/form1
表單畫面:
執行結果:
程式碼:
Public Class Form1
Dim a, c As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label5.Text = " + "
a = TextBox1.Text
c = TextBox2.Text
Label6.Text = a + c
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label5.Text = " - "
a = TextBox1.Text
c = TextBox2.Text
Label6.Text = a - c
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label5.Text = " X "
a = TextBox1.Text
c = TextBox2.Text
Label6.Text = a * c
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label5.Text = " / "
a = TextBox1.Text
c = TextBox2.Text
Label6.Text = a / c
End Sub
End Class
74

題目說明-購買清單
檔案路徑:24/Exam1/form2
表單畫面: 執行結果:
程式碼:
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label5.Text = "購買清單" & Now & vbCrLf & "品名" & " " & "單價" & " " & "數量" & " " & "金額"
& vbCrLf & TextBox1.Text & " " & TextBox2.Text & " " & TextBox3.Text & " " &
Label6.Text
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label5.Text = "購買清單" & Now & vbCrLf & "品名" & " " & "單價" & " " & "數量" & " " & "金額"
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
TextBox3.TextChanged
Dim a, c
a = TextBox2.Text
c = TextBox3.Text
Label6.Text = a * c
End Sub
End Class
75

題目說明-7 的倍數之和
檔案路徑:24/Exam2/form1
表單畫面: 執行結果:
程式碼:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, t As Integer
If Val(TextBox1.Text) Mod 7 = 0 Then
a = Val(TextBox1.Text) / 7
Else
a = Val(TextBox1.Text) \ 7
End If
For i = 7 To a * 7 Step 7
t = t + i
Next i
Label2.Text = "計算結果:" & t
TextBox1.Focus()
End Sub
End Class
題目說明-計算員工薪資
檔案路徑:24/Exam2/form2
表單畫面:
76

執行結果:
程式碼:
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, d, f, g As Integer
a = Val(TextBox1.Text)
If 0 < a And a < 5 Then
b = 30000
ElseIf a >= 5 And a < 10 Then
b = 40000
ElseIf a >= 10 Then
b = 50000
ElseIf a < 0 Then
MsgBox("年資必須為正數!")
End If
If RadioButton1.Checked Then
c = 10000
ElseIf RadioButton2.Checked Then
c = 5000
ElseIf RadioButton3.Checked Then
c = 3000
End If
If CheckBox1.Checked Then
d = -1000
End If
If CheckBox2.Checked Then
f = -600
End If
g = b + c + d + f
If a = 0 Then
g = 0
End If
TextBox2.Text = g
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
77

題目說明-計算最大公因數、最小公倍數
檔案路徑:24/Exam3/form1
表單畫面:
執行結果:
程式碼:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
GCD(Val(TextBox1.Text), Val(TextBox2.Text))
TextBox4.Text = Val(TextBox1.Text) * Val(TextBox2.Text) / Val(TextBox3.Text)
End Sub
Private Function GCD(ByVal i As Integer, ByVal j As Integer) As Integer
Dim a As Integer
a = i Mod j
If a = 0 Then
TextBox3.Text = j
Else
GCD(j, a)
End If
End Function
End Class
78

題目說明-擲骰子
檔案路徑:24/Exam3/form2
表單畫面:
執行結果:
程式碼:
Public Class Form2
Dim win, lose As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()
Dim a, b As Integer
a = Int(Rnd() * 6 + 1)
b = Int(Rnd() * 6 + 1)
PictureBox1.Image = New Bitmap("..\..\" & a & ".gif")
PictureBox2.Image = New Bitmap("..\..\" & b & ".gif")
If RadioButton1.Checked = True Then
If a + b

Else
If a + b >= 7 Then
win = win + 1
MsgBox("你贏了,共贏了" & win & "次,輸了" & lose & "次", 48, "^_^")
Else
lose = lose + 1
MsgBox("你輸了,共贏了" & win & "次,輸了" & lose & "次", 16, ">_

題目說明-畫十字圓
檔案路徑:24/Exam4/form2
執行結果:
程式碼:
Public Class Form2
Private Sub Form2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles
Me.Paint
Dim g = e.Graphics
Dim width As Integer = Me.ClientSize.Width
Dim height As Integer = Me.ClientSize.Height
Dim p1 = New Point(width / 2, 0)
Dim p2 = New Point(width / 2, height)
Dim p3 = New Point(0, height / 2)
Dim p4 = New Point(width, height / 2)
g.FillEllipse(Brushes.White, 0, 0, width, height)
g.DrawEllipse(Pens.Black, 0, 0, width, height)
g.DrawLine(Pens.Black, p1, p2)
g.DrawLine(Pens.Black, p3, p4)
End Sub
Private Sub Form2_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.SizeChanged
Me.Invalidate()
End Sub
End Class
81

題目說明-播放器
檔案路徑:24/Exam4/form3
表單畫面:
執行結果:
程式碼:
Public Class Form3
Dim StarTtime As Date
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ListBox1.SelectedIndex = -1 Then
MsgBox("未選取歌曲", 0 + 64, "確認")
Else
AxWindowsMediaPlayer1.URL = "C:\Exam4\" & ListBox1.SelectedItem
AxWindowsMediaPlayer1.Ctlcontrols.play()
StarTtime = Now
Timer1.Enabled = True
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString
End Sub
End Class
82

題目說明-展現變化多端的色彩
檔案路徑:24/Exam5/form1
執行結果:
程式碼:
Public Class Form1
Dim f As String
Dim color1() = {Color.Orange, Color.OrangeRed, Color.Pink, Color.Purple, _
Color.Ivory, Color.SlateGray, Color.Tan, Color.Yellow, _
Color.Silver, Color.Green}
Dim color2() = {Color.Gray, Color.Cyan, Color.Black, Color.Aqua, Color.Blue, _
Color.Linen, Color.MediumBlue, Color.Brown, Color.Gold, _
Color.AntiqueWhite, Color.Indigo}
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
f = "右下"
Randomize()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim a, b As Integer
a = Fix(Rnd() * 10)
b = Fix(Rnd() * 10)
Label1.ForeColor = color1(a)
Me.BackColor = color2(b)
If Label1.Location.X + 270 > Me.ClientSize.Width Then
If f = "右下" Then f = "左下"
If f = "右上" Then f = "左上"
End If
If Label1.Location.Y + 33 > Me.ClientSize.Height Then
If f = "左下" Then f = "左上"
If f = "右下" Then f = "右上"
End If
If Label1.Location.X

If Label1.Location.Y

執行結果:
程式碼:
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = CurDir()
TextBox1.Text = formatDir(TextBox1.Text)
display()
TextBox1.SelectionStart = Len(TextBox1.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ChDir("..")
TextBox1.Text = (formatDir(CurDir))
display()
End Sub
Function formatDir(ByVal strDir As String) As String
If Microsoft.VisualBasic.Right(strDir, 1) "\" Then
strDir &= "\"
End If
Return strDir
End Function
Sub display()
Dim strItem As String
ListBox1.Items.Clear()
ListBox2.Items.Clear()
TextBox1.Text = formatDir(TextBox1.Text)
ChDir(TextBox1.Text)
strItem = Dir("*.*", 18)
Do Until strItem = ""
If (GetAttr(TextBox1.Text & strItem) And 16) = 16 Then
ListBox1.Items.Add(strItem)
Else
ListBox2.Items.Add(strItem)
End If
strItem = Dir()
Loop
85

End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
display()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = formatDir(TextBox1.Text)
Try
MkDir(TextBox1.Text)
Catch ex As Exception
MsgBox("資料夾已存在", 0 + 64, "")
End Try
display()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = formatDir(TextBox1.Text)
Try
My.Computer.FileSystem.DeleteDirectory(TextBox1.Text & ListBox1.SelectedItem,
FileIO.DeleteDirectoryOption.DeleteAllContents)
Catch ex As Exception
MsgBox("無法刪除此資料夾", 0 + 64, "")
End Try
display()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = formatDir(TextBox1.Text)
Try
My.Computer.FileSystem.DeleteFile(TextBox1.Text & ListBox2.SelectedItem)
Catch ex As Exception
MsgBox("無法刪除檔案", 0 + 64, "")
End Try
display()
End Sub
Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick
TextBox1.Text = formatDir(TextBox1.Text)
TextBox1.Text &= ListBox1.SelectedItem
display()
End Sub
Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles ListBox2.SelectedIndexChanged
Dim s As String
TextBox1.Text = formatDir(TextBox1.Text)
If GetAttr(TextBox1.Text & ListBox2.SelectedItem) And 1 Then s += "+唯讀"
If GetAttr(TextBox1.Text & ListBox2.SelectedItem) And 2 Then s += "+隱藏"
If GetAttr(TextBox1.Text & ListBox2.SelectedItem) And 4 Then s += "+系統"
If GetAttr(TextBox1.Text & ListBox2.SelectedItem) And 32 Then s += "+保存"
If Microsoft.VisualBasic.Left(s, 1) = "+" Then s = Mid(s, 2)
Label2.Text = "屬性:" & s
ToolStripStatusLabel1.Text = "檔案大小:" & FileLen(TextBox1.Text & ListBox2.SelectedItem) & "bytes" _
& " 修改日期:" & FileDateTime(TextBox1.Text & ListBox2.SelectedItem)
End Sub
End Class
86

題目說明-便利貼
檔案路徑:24/Exam5/form3
表單畫面: 執行結果:
程式碼:
Public Class Form3
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = My.Computer.FileSystem.ReadAllText("..\..\note.txt")
TextBox1.SelectionStart = Len(TextBox1.Text)
End Sub
Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
My.Computer.FileSystem.WriteAllText("..\..\note.txt", TextBox1.Text, False)
End Sub
Private Sub 字型ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 字型ToolStripMenuItem.Click
If FontDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
TextBox1.Font = FontDialog1.Font
End If
End Sub
Private Sub 背景顏色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 背景顏色ToolStripMenuItem.Click
If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.BackColor = ColorDialog1.Color
End If
End Sub
End Class
87

題目說明-求互質數、數字直角三角形、數字相加、身分證驗證
檔案路徑:24/Exam6/form1
表單畫面:
執行結果:
88

程式碼:
Public Class Form1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim n As String
Dim total As Integer
For i = 1 To Len(TextBox3.Text)
If Asc(Mid(TextBox3.Text, i, 1)) >= 48 And Asc(Mid(TextBox3.Text, i, 1))

n = 32
Case 88 To 89
n = Asc(Mid(TextBox4.Text, 1, 1)) - 58
Case 90
n = 33
End Select
s = Microsoft.VisualBasic.Trim(Str(n))
For i = 2 To 9
s = s & Mid(TextBox4.Text, i, 1)
Next i
m = Val(Mid(s, 1, 1)) + Val(Mid(s, 2, 1)) * 9
For i = 8 To 1 Step -1
m = m + Val(Mid(s, 11 - i, 1)) * i
Next i
If 10 - (m Mod 10) = Val(Mid(TextBox4.Text, 10, 1)) Then
Label8.Text = "正確"
Else
Label8.Text = "錯誤"
End If
End Sub
End Class
90