周佳姿

Visual Basic 

作品集 

資料處理科 

作者 : 周佳姿 

指導老師 : 張銘棋 

1 

2008

CH4 

目錄 

F o r m 1 - 溫度換算 

F o r m 2 - 不同的邊框 

F o r m 3 - 變身的小框 

F o r m 4 - 改變背景 

E x a m 1 - 溫度轉換器 

E x a m 2 - 改變國旗及背景圖案 

CH5 

F o r m 1 - 時間器 

F o r m 2 - 顯示編碼 

E X 1 - 簡易計算機 

CH6 

F o r m 1 - 促銷折扣活動 

F o r m 2 - 猜數字遊戲 

F o r m 3 - 展現各種字型效果 

E X 1 - 找出三個數值的最大值 

E X 2 - 數字金字塔 

2

CH7 

F o r m 1 - 數字沙漏 

F o r m 2 - 蟑螂進行曲 

F o r m 3 - 電子時鐘 

E X 1 - 統計成績 

E X 2 - 數字金字塔 

CH8 

F o r m 1 - 計算成績 

F o r m 2 - 計算輸入資料筆數 

F o r m 3 - 由小排到大 

F o r m 4 - 查詢成績 

F o r m 5 - 繳稅計算器 

F o r m 6 - 字型設定程式 

F o r m 7 - 資料換算 

F o r m 8 - 字型設定 

E X 1 - 唱歌成績排行 

E X 2 - 移動清單方塊項目 

E X 3 - 餐廳排隊給號系統 

CH9 

M o d u l e 1 - 計算 F r a c ( 5 ) 的值 

M o d u l e 2 - 計算加速度運動 

M o d u l e 3 - 傳值呼叫 

F o r m 4 - 樂透彩 

3

F o r m 5 - 計算輸入數字的 F r a c 

M o d u l e 6 - 河內塔 

E X 1 - 擲骰子 

CH10 

F o r m 1 - 輸入英文字母全為大寫 

F o r m 2 - 數值加入千分位 

F o r m 3 - 滑鼠移入表單時變色 

F o r m 4 - 測試按鍵改變背景 

CH11 

F o r m 1 - 繪畫板 

F o r m 2 - 塗鴉牆 

F o r m 3 - 圖片填滿表單 

E X 1 - 依輸入大小畫圓且變色 

E X 2 - 音樂播放器 

CH11-1 

F o r m 1 - 依個人喜好畫圖 

CH12 

F o r m 1 - 多功能表單 

E X 1 - 多功能表單、長度、重量換算 

4

CH13 

F o r m 1 - 檔案總管 

F o r m 2 - 簡易檔案總管 

CH13-1 


CH14-1 

F o r m 1 - 書籍目錄 





F o r m 6 - 成衣目錄 

F o r m 7 - 查詢書籍系統 

EXAM1 

F o r m 1 - 簡易計算機 

F o r m 2 - B M I 與三角形面積 

EXAM2 

F o r m 1 - 計算單數值 

F o r m 2 - 電度換算表 

5

EXAM3 

F o r m 1 - 費氏函數 

F o r m 2 - 猜點數合大小 

EXAM4 

F o r m 1 - 輸入英文字母全為大寫 

F o r m 2 - 畫圓加十字 

F o r m 3 - 簡易音樂播放器 

EXAM5 

F o r m 1 - 螢幕保護程式 


F o r m 3 - 便利貼 

6

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 

Else 

End Sub 

End Class 

MsgBox("感謝使用本程式") 

End 

End If 

Form2 不同的邊框 


Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click 

End Sub 


End Sub 

Label1.BorderStyle = BorderStyle.Fixed3D 

Label1.Text = "立體邊框" 


End Sub 

Label1.BorderStyle = BorderStyle.FixedSingle 

Label1.Text = "單線邊框" 

Private Sub Button3_Click(ByVal sender As 

System.Object, ByVal e As System.EventArgs) 

Handles Button3.Click 

End Sub 

Label1.BorderStyle = BorderStyle.None 

Label1.Text = "無邊框" 

7

End Class 

Form3 變身的小框 


Private Sub Label1_Click(ByVal sender As 

System.Object, ByVal e As System.EventArgs) Handles 

Label1.Click 

End Sub 



Button1.Click 

Label1.Location = New 

Point(Label1.Location.X - 30, Label1.Location.Y) 

End Sub 


End Sub 

Label1.Location = New Point(Label1.Location.X + 30, Label1.Location.Y) 


End Sub 

Label1.Size = New Size(Label1.Size.Width + 10, Label1.Size.Height + 10) 


End Sub 

Label1.Size = New Size(Label1.Size.Width - 10, Label1.Size.Height - 10) 


End Sub 

Label1.BackColor = Color.White 


End Sub 

Label1.BackColor = Color.Red 


End Sub 

Label1.BackColor = Color.Green 

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

End Sub 

End Class 

Form4 改變背景 


8


End Sub 

Me.BackgroundImage = New Bitmap("..\..\考試順利.gif") 


End Sub 

Me.BackgroundImage = New Bitmap("..\..\財源廣進.gif") 



Button3.Click 

安.gif") 

End Sub 

Me.BackgroundImage = New Bitmap("..\..\闔家平 



Button4.Click 

End Sub 

Me.BackgroundImage = Nothing 

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

PictureBox1.Click 

End Sub 

End Class 

PictureBox1.Image = New Bitmap("..\..\homejump.gif") 

EX1 溫度轉換器 

Public Class Ex1 

Private Sub Label1_Click(ByVal sender As 


Handles Label1.Click 

End Sub 




Dim h As Integer 

h = Val(TextBox1.Text * 9 / 5 + 32) 

Label2.Text = "攝氏溫度=" & 

TextBox1.Text & "華氏溫度=" & h 

End Sub 


Dim s As Double 

9

End Sub 

s = (TextBox1.Text - 32) * 5 / 9 

Label2.Text = "華氏溫度=" & TextBox1.Text & "攝氏溫度=" & Math.Round(s, 2) 


End Sub 

End Class 

EX2 切換國旗與背景圖案 


Private Sub PictureBox1_Click(ByVal sender As 


Handles PictureBox1.Click 

End Sub 




Me.BackgroundImage = New 

Bitmap("..\..\fBg1.gif") 

End Sub 




End Sub 

Me.BackgroundImage = New Bitmap("..\..\fBg2.gif") 


End Sub 

Me.BackgroundImage = New Bitmap("..\..\fBg3.gif") 


End Sub 

PictureBox1.Image = New Bitmap("..\..\fJapan2.gif") 


End Sub 

PictureBox1.Image = New Bitmap("..\..\fFrance2.gif") 


End Sub 

PictureBox1.Image = New Bitmap("..\..\fCanada2.gif") 


End Sub 

PictureBox1.Image = New Bitmap("..\..\fUSA2.gif") 

10


End Sub 

PictureBox1.Size = New Size(PictureBox1.Size.Width + 10, PictureBox1.Size.Height + 10) 

PictureBox1.Location = New Point(PictureBox1.Location.X - 5, PictureBox1.Location.Y - 5) 


End Sub 

End Class 

PictureBox1.Size = New Size(PictureBox1.Size.Width - 10, PictureBox1.Size.Height - 10) 

PictureBox1.Location = New Point(PictureBox1.Location.X + 5, PictureBox1.Location.Y + 5) 

CH5 

Form1 時間器 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal 

e As System.EventArgs) Handles Button1.Click 

End Sub 

End Class 

Form2 顯示編碼 


11 

Label1.Text = "按鈕時間為" & vbCrLf & Now 

Private Sub Button1_Click(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles Button1.Click 

")" 

Dim a 

End Sub 

End Clas 

EX1 簡易計算機 

Public Class EX1 

a = AscW(TextBox1.Text & ChrW(0)) 

Label1.Text = "Unicled:" & a & " (十六進位:" & Hex(a) &

Dim a# 

Dim last_op$ 


End Sub 

TextBox1.Text = TextBox1.Text & "0" 


End Sub 



End Sub 



End Sub 



End Sub 



End Sub 



End Sub 



End Sub 



End Sub 



End Sub 


Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

Button11.Click 

End Sub 

TextBox1.Text = TextBox1.Text & "." 



End Sub 

a = Val(TextBox1.Text) 

TextBox1.Text = "" 

last_op = "devide" 




12

End Sub 


last_op = "multiply" 



End Sub 



last_op = "subtract" 



End Sub 



last_op = "add" 



End Sub 

End Class 

Select Case last_op 

Case "devide" 

TextBox1.Text = a / TextBox1.Text 

Case "multiply" 

TextBox1.Text = a * TextBox1.Text 

Case "subtract" 

TextBox1.Text = a - TextBox1.Text 

Case "add" 

End Select 

last_op = "" 

TextBox1.Text = a + TextBox1.Text 


CH6 

Form1 促銷折扣活動 


Dim buy As Integer, pay As Integer 

Dim msg As String 

Private Sub Button1_Click(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles Button1.Click 

buy = Val(TextBox1.Text) 

If buy > 1000 Then 

13

Else 

End Sub 

End Class 

End If 

pay = buy * 0.8 


Else 

End If 

msg = "超過2000元,先打8折再減100元" 

pay = pay - 100 

msg = "超過1000元,先打8折再減50元" 

pay = pay - 50 


Else 

End If 

msg = "金額未超過500元打9折" 

pay = buy * 0.9 

msg = "金額未超過500元打95折" 

pay = buy * 0.95 

TextBox2.Text = pay 

Label3.Text = msg 

TextBox1.Focus() 

TextBox1.SelectAll() 

Form2 猜數字遊戲 



End Sub 

Randomize() 

vAns.Text = CInt(Int((100 * Rnd()) + 1)) 




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 & "次。") 

14

Else 

End Sub 

End Class 

End If 

End '結束程式 

If v < ans Then 

Else 

End If 

vMin.Text = v 

vMax.Text = v 


TextBox1.SelectAll() 

Form3 展示各種字型效果 


Dim fName As String, fSize As Integer, fStyle As FontStyle 


End Sub 

fSize = 12 

fStyle = FontStyle.Regular 

fn_new.Checked = True 

fName = If(fn_new.Checked, "新細明體", "標楷體") 

Label1.Font = New Font(fName, fSize, fStyle) 

fst_b.Checked = False 

fst_i.Checked = False 

fst_del.Checked = False 

fst_und.Checked = False 


fName = If(fn_new.Checked, "新細明體", "標楷體") 

If fs_9.Checked Then 

fSize = 9 

ElseIf fs_10.Checked Then 

fSize = 10 


fSize = 11 


End If 

fSize = 12 

fStyle = If(fst_b.Checked, 

15

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 Sub 

Private Sub fn_new_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

fn_new.CheckedChanged 

End Sub 

Label1.Font = New Font("新細明體", Label1.Font.Size, (Label1.Font.Style)) 

Private Sub fn_kai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

fn_kai.CheckedChanged 

End Sub 

Label1.Font = New Font("標楷體", Label1.Font.Size, (Label1.Font.Style)) 

Private Sub fs_9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

fs_9.CheckedChanged 

End Sub 

fSize = 9 




End Sub 

fSize = 10 




End Sub 

fSize = 11 




End Sub 

fSize = 12 


Private Sub fst_b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

fst_b.CheckedChanged 

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 Sub 


Private Sub fst_i_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

fst_i.CheckedChanged 


16


End Sub 


Private Sub fst_del_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

fst_del.CheckedChanged 



End Sub 


Private Sub fst_und_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

fst_und.CheckedChanged 



End Sub 

End Class 


EX1 找出三個數值的最大值 


Dim a, b, c As Integer 



b = Val(TextBox2.Text) 

c = Val(TextBox3.Text) 

If a > b Then 

Else 

If b > c Then 

End If 

Label2.Text = "最大值" & a 

If a 

End If 

If b < c Then 

End If 

Label2.Text = "最大值" & c 

If a 

End If 

If b > c Then 

End If 

Label2.Text="最大值"& b 

17

End If 

EX2 點餐計價 


Dim a, b, c, d As Integer 

Private Sub EX2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

End Sub 


End Sub 

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

TextBox1.TextChanged 

End Sub 


End Sub 

Dim p As Integer 

p = 30 * Val(TextBox1.Text) + 70 * Val(TextBox2.Text) + 65 * Val(TextBox3.Text) + 99 * Val(TextBox4.Text) 

Label5.Text = "=總價" & p & "元" 

If RadioButton2.Checked = True Then 

End If 

If p < 300 Then p = p + 30 : Label5.Text = Label5.Text & " + 運費30元" 

If CheckBox1.Checked = True Then p = p * 0.9 : Label5.Text = Label5.Text & " + 打9折" 

If CheckBox2.Checked = True Then p = p * 0.8 : Label5.Text = Label5.Text & " + 打8折" 

TextBox5.Text = p 

CH7 

Form1 數字沙漏 



End Sub 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e 

As System.EventArgs) Handles MyBase.Load 

\ 4 + 1)) 

Dim i As Integer 

'第一個迴圈由 25 到 1,每次減 4 

For i = 25 To 1 Step -4 

Label1.Text = Label1.Text & vbCrLf & StrDup(i, CStr(i 

18

Next 

'第二個迴圈由 5 到 25,每次加 4 

For i = 5 To 25 Step 4 

Next 

End Sub 

End Class 

Label1.Text = Label1.Text & vbCrLf & StrDup(i, CStr(i \ 4 + 1)) 

19

Form2 蟑螂進行曲 


Private Sub 

PictureBox1_Click(ByVal sender As 

System.Object, ByVal e As 

System.EventArgs) Handles 

roach.Click 

End Sub 

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 

End Sub 

roach.Left = roach.Left + 1 

If roach.Left Mod 10 = 0 Then 

End If 

roach.Top = roach.Top + CInt(Int(7 * Rnd())) - 3 

System.Threading.Thread.Sleep(1) '暫停1/1000秒 

Application.DoEvents() 

Loop Until (roach.Left > Me.ClientSize.Width) 

play.Visible = True 

roach.Visible = False 

Private Sub 蟑螂進行曲_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

End Sub 

End Class 

Randomize() 

Form3 電子時鐘 



End Sub 

Label1.Text = Format(Now(), "HH:mm:ss") 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles Timer1.Tick 

Label1.Text = Format(Now(), _ 

20

End Sub 

If(CheckBox1.Checked, "hh:mm:ss", "HH:mm:ss")) 

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

CheckBox2.CheckedChanged 

End Sub 

End Class 

Timer1.Enabled = Not CheckBox2.Checked 

EX1 統計成績 


Dim a, b As Integer 


If Val(TextBox1.Text) < -1 Or Val(TextBox1.Text) > 100 Then MsgBox("請輸入0~100的分數,-1為結束。", 64 

+ 0, "重新輸入") _ 

w: 

: TextBox1.Text = "" : TextBox1.Focus() : Exit Sub 

If Val(TextBox1.Text) = "-1" Then GoTo w 

If Val(TextBox1.Text) > 60 Then a = a + 1 

b = b + Val(TextBox1.Text) 

Label2.Text = Label2.Text + 1 



Exit Sub 

MsgBox("全班人數:" & Label2.Text - 1 & " 及格人數:" & a & 

" 不及格人數:" & Label2.Text - 1 - a _ 

End Sub 

End Class 

& " 全班平均值:" & b / (Label2.Text - 1)) 

EX2 數字金字塔 


Private Sub EX2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

Dim i, n, a, j As Integer 

For i = 1 To 15 

Label1.Text = Label1.Text & vbCrLf 

For n = 1 To i 

a = n 

If a >= 10 Then a = a - 10 

21

Next 

End Sub 

End Class 

Next 

Label1.Text = Label1.Text & a 

For j = i - 1 To 1 Step -1 

Next 

a = j 

CH8 

If a >= 10 Then a = a - 10 

Label1.Text = Label1.Text & a 

Form1 計算成績 



Dim 總分 As Double '可能含小數, 所以用 Double 型別 

'將輸入的資料轉為成績陣列, 並計算筆數 

Dim 成績陣列() As String = Split(TextBox1.Text, ",") 

Dim 筆數 = UBound(成績陣列) + 1 

'將所有的成績加總起來 

For Each s In 成績陣列 

Next 

End Sub 

End Class 

總分 = 總分 + Val(s) 

MsgBox("成績筆數:" & 筆數 & vbCrLf & _ 

"總成績為:" & 總分 & vbCrLf & _ 

"平均成績:" & Math.Round(總分 / 筆數, 2)) 

Form2 計算輸入資料筆數 

Module Form2 

串為止 

Sub main() 

Dim 資料, 陣列() As String 

Dim 筆數 As Integer 

'不斷讓使用者輸入資料並儲存, 直到輸入空字 

22

Do 

Loop 

End Sub 

End Module 

Console.Write("請輸入資料:") 

資料 = Console.ReadLine() 

If 資料 = "" Then Exit Do 

ReDim Preserve 陣列(筆數) 

陣列(筆數) = 資料 

筆數 = 筆數 + 1 

Console.WriteLine("您一共輸入了" & 筆數 & " 筆資料。 ") 

Console.ReadLine() '相當於Pause 

Form3 由小排 

到大 

Module Form3 

Sub main() 

Dim X(4), i As Integer 

For i = 0 To 40 

Next 

Console.Write("請輸入數值資料:") 

X(i) = Val(Console.ReadLine) 

Array.Sort(X) '將陣列元素從小排到大 

For i = 0 To 40 

Next 

End Sub 

End Module 

Console.WriteLine("X(" & i & ") = " & X(i)) 

Console.ReadLine() 


Form4 查詢成績 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles Button1.Click 

Dim 姓名() = {"陳桶一", "黃光權", "胡生妙", "王為全", _ 

"李日正", "劉德菖", "方正一", "劉康寶", _ 

23

"謝掬花", "王美蘭", "徐小噹", "葉小毛"} 

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 

Else 

End Sub 

End Class 

End If 

Label5.Text = "查無此人!" 

Label6.Text = "" 


Label5.Text = 數學(索引) 

Label6.Text = 國文(索引) 

Label7.Text = 英文(索引) 

Dim a$ = "" 

Dim i% = Array.IndexOf(數學, 100) 

While i > 0 

a = a & " " & 姓名(i) 

i = Array.IndexOf(數學, 100, i + 1) 

End While 

MsgBox(a, , "數學100分") 

Form5 繳稅計算器 



Dim 稅率(,) As Integer = _ 

{{410000, 6, 0}, _ 

{1090000, 13, 28700}, _ 

{2180000, 21, 115900}, _ 

{4090000, 30, 312100}, _ 

{4090001, 40, 721100}} 

Dim 所得淨額 As Integer = Val(TextBox1.Text) ' 

將輸入字串轉為數值 


'尋找適用的稅率, 找到即跳出迴圈 

For i = 0 To UBound(稅率, 1) - 1 

24

Next 

End Sub 

End Class 

If 所得淨額

Form6 字型設定程式 



If ListBox1.SelectedIndex = -1 Then _ 

ListBox1.SelectedItem = Label1.Font.Name 

If ListBox2.SelectedItem = -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) 

End Sub 

End Class 

Select ListBox2.SelectedItem 

Case "標準" 

字型樣式 = FontStyle.Regular 

Case "粗字" 

字型樣式 = FontStyle.Bold 

Case "斜體" 

字型樣式 = FontStyle.Italic 

Case "粗斜體" 

End Select 

字型樣式 = FontStyle.Bold Or FontStyle.Italic 

Label1.Font = New Font(字型名稱, 字型大小, 字型樣式) 

Form7 資料互換 




' 逐一將 ListBox1 被選取的選項加到 ListBox2 中 

For i = 0 To ListBox1.SelectedItems.Count - 1 

Next 

ListBox2.Items.Add(ListBox1.SelectedItems(i)) 

' 由後往前逐一刪除 ListBox1 被選取的選項 

For i = ListBox1.SelectedIndices.Count - 1 To 0 Step -1 

26

中 

Next 

End Sub 

ListBox1.Items.RemoveAt(ListBox1.SelectedIndices(i)) 



' 逐一將 ListBox2 被選取的選項加到 ListBox1 



Next 

' 由後往前逐一刪除 ListBox2 被選取的選項 


Next 

End Sub 

End Class 


Form8 字型設定 



End Sub 

ComboBox2.Text = "標準" 


If ComboBox1.Text = "" Then ComboBox1.Text = Label1.Font.Name() 

If ComboBox1.Text = "" Then ComboBox2.SelectedIndex = 0 

If ComboBox1.Text = "" Then ComboBox3.Text = "12" 

Dim 字型名稱 As String = ComboBox1.SelectedItem 

Dim 字型樣式 As FontStyle 

Dim 字型大小 As Integer = Val(ComboBox3.SelectedItem) 

Select Case ComboBox2.Text 

Case "標準" 

字型樣式 = FontStyle.Regular 

Case "粗字" 

字型樣式 = FontStyle.Bold 

Case "斜體" 

字型樣式 = FontStyle.Italic 

Case "粗斜體" 

字型樣式 = FontStyle.Bold + FontStyle.Italic 

27

End Sub 

End Class 

End Select 

Label1.Font = New Font(字型名稱, 字型大小, 字型樣式) 

Ex1 唱歌成績排行 


Private Sub EX1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

Dim name() = {"吳國民", "李得勝", "蔡可申", "陳夢嬌", "方十全"} 

Dim sum(4) As Short 

Dim score(,) = {{77, 78, 78, 84, 84, 79, 77, 76, 76, 81}, _ 

Dim min, max As Short 

For i = 0 To 4 

Next 

min = score(i, 0) 

max = score(i, 0) 

sum(i) = score(i, 0) 

For j = 1 To 9 

Next 

{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}} 

If score(i, j) < min Then 

End If 

min = score(i, j) 

If score(i, j) > max Then 

End If 

max = score(i, j) 

sum(i) = sum(i) + score(i, j) 

sum(i) = sum(i) - min - max 

Array.Sort(sum, name) 

For i = 4 To 0 Step -1 

Next 

End Sub 

End Class 

Label1.Text = Label1.Text & name(i) & " " & sum(i) / 8 & vbCrLf 

28

Ex2 移動清單方塊項目 



End Sub 

ListBox1.Items.RemoveAt(ListBox1.SelectedIndex) 

ListBox1.SelectedIndex = ListBox1.SelectedIndex - 1 

Private Sub Ex2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

For i As Integer = 0 To 6 

Next 

End Sub 

ListBox1.Items.Add(i) 



End Sub 

End Class 


ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1 

Ex3 餐廳排隊給號系統 






Next 



Next 

End Sub 





Next 




29

Next 

End Sub 


End Sub 

If TextBox1.Text "" Then 

End If 

If ListBox1.SelectedIndex = -1 Then 

End If 

ListBox1.Items.Add(TextBox1.Text) 


End Sub 

If ListBox1.SelectedIndex >= 0 Then 

End If 



End Sub 

End Class 

If TextBox1.Text "" Then 

End If 

CH9 

ListBox1.Items(ListBox1.SelectedIndex) = TextBox1.Text 

Module1 計算 Frac(5)的值 

Module Module1 

Sub Main() 

End Sub 

frac(5) 

Sub Frac(ByVal n As Integer) 

的簡便寫法 

Dim total As Double = 1 

Dim i% 

For i = 1 To n '這是『total=total*i』 

Next 

End Sub 

End Module 

Console.WriteLine(n & "! 的值為 " & total) 

30

Module2 計算加速度運動 


Sub Main() 

End Sub 

'以三個參數呼叫 

Finalv(10, 15, 3) '時間10秒、初速15秒、加速度3 

Console.WriteLine("----------") 

'以兩個參數呼叫 

Finalv(10, 20) '時間10秒、初速20 

Console.WriteLine("----------") 

'以一個參數呼叫 

Finalv(10) '時間10秒 

'在第2、3個參數前加上 Optional 關 

鍵字,並指定預設值 

_ 

Sub Finalv(ByVal Seconds As Single, 

Single = 0, _ 

Optional ByVal V0 As 

Optional ByVal 

Accelaration As Single = 9.8) 

End Sub 

End Module 

Console.WriteLine("初速" & V0 & ", 加速度" & Accelaration & _ 

'速度計算公式 V=V0+at 

", 經" & Seconds & "秒後,") 

Dim Velocity = V0 + Accelaration * Seconds 

Console.WriteLine("速度為" & Velocity) 

Module3 傳值呼叫 


Sub Main() 

Dim a() As Integer = {1, 2, 3, 4} 

Doublearrayvalue(a) 

'逐一列出陣列元素的程序 

For i = 0 To a.Length - 1 

Next 

Console.WriteLine(a(i)) 

31

End Sub 

'使用傳值呼叫的程序 

Sub Doublearrayvalue(ByVal b() As Integer) 

'用迴圈將陣列中每個元素都乘以2 

For i = 0 To b.Length - 1 'Length 屬性可傳回陣列的元素個數 

Next 

End Sub 

End Module 

b(i) *= 2 

32

Form4 樂透彩 



'建立用來記錄五個開出號碼的Draw陣列 

Dim Draw(4) As Integer 

Dim Lucky As Integer 

Randomize() 

'產生五個隨機號碼的迴圈 

For i = 0 To 4 

Next 

End Sub 

End Class 

'當元素是預設值 0 時,就指定給目前的元素 

While Draw(i) = 0 

Lucky = CInt(Int(Rnd() * 39) + 1) 

'若產商的亂數不在陣列中,就指定給目前的元素 

If Array.IndexOf(Draw, Lucky) = -1 Then 

End If 

End While 

Draw(i) = Lucky 

'將Draw陣列中的數字顯示到Label控制項 

Label1.Text = Draw(0) 





Button1.Text = "再試一次" 

Form5 計算輸入數字的 Frac 


Function fac(ByVal i As Integer) As Long 

If i


End Sub 


End Sub 

End Class 

Dim a% 


Label2.Text = fac(a) 

Module6 河內塔 


Dim number As Integer '移動次數 

Sub Main() 

End Sub 

Dim n As Integer = 0 

number = 0 

Console.Write("圓盤的張數 = ") 

n = Console.ReadLine() 

aa(n, "A", "B", "C") 

Console.ReadLine() 

Sub aa(ByVal n, ByVal a, ByVal b, ByVal c) 

End Sub 

End Module 

If n > 0 Then 

End If 

' 把 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) 

Ex1 擲骰子 


Private Sub EX1_Load(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles MyBase.Load 

End Sub 

34


End Sub 


Randomize() '這很重要,以時間來當作亂數種子,否則每次亂數產生的數列都會一樣 

Label1.Text = Int(Rnd() * 6) + 1 

Label2.Text = Int(Rnd() * 6) + 1 

PictureBox1.Image = New Bitmap("..\..\" & Label1.Text & ".gif") 

PictureBox2.Image = New Bitmap("..\..\" & Label2.Text & ".gif") 

Ex2 自由落體落下之距離 


Function freefall(ByVal t) As Single 

Return 1 / 2 * 9.8 * t ^ 2 

End Function 


End Sub 

End Class 

Label2.Text = "自由落體掉落距離" & freefall(Val(TextBox1.Text)) & "米" 

CH10 

Form1 輸入英文字母全為大寫、數 


值加入千分位、滑鼠移入表 

單時變色 


End Sub 

Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter 

End Sub 

Me.BackColor = Color.White 

Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave 

End Sub 

Me.BackColor = SystemColors.Control 

35

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) 

Handles TextBox1.KeyPress 

End Sub 

Select Case e.KeyChar 

Case "a" To "z" 

End Select 

TextBox1.AppendText(Chr(Asc(e.KeyChar) - 32)) 

e.Handled = True 



End Sub 



End Sub 


End Sub 

End Class 

Dim n, c As Integer 

If Len(n) > 3 Then 

End If 

If Len(n) Mod 3 0 Then 

Else 

End If 


c = Mid(n, 1, Len(n) Mod 3) 

For i = (Len(n) Mod 3) + 1 To Len(n) 

Next 

For i = 1 To Len(n) 

Next 

Form2 測試按鍵改變背景 

Private Sub Form2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 

Me.KeyDown 

If e.KeyCode = Keys.B And e.Control = True Then 

Me.BackColor = Color.White 

ElseIf e.KeyCode = Keys.G And e.Control = True Then 

End If 

Me.BackColor = SystemColors.Control 

36

End Sub 

End Class 

37

CH11 

Form1 繪畫板 



End Sub 

Me.Paint 

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles 

End Sub 

End Class 

Dim g = e.Graphics 

'用預設深藍色畫筆畫矩形 

g.DrawRectangle(Pens.DarkTurquoise, 10, 10, 40, 60) 

Dim BigPen = New Pen(Color.RosyBrown, 3) '建立寬度為 3 的筆 

g.DrawRectangle(BigPen, 60, 80, 40, 60) 

Dim BiggerPen = New Pen(Color.Khaki, 9) '建立寬度為 9 的筆 

g.DrawRectangle(BiggerPen, 110, 150, 40, 60) 

g.DrawLine(Pens.DeepPink, 0, 0, 160, 220) 

g.DrawLine(Pens.DeepPink, New Point(0, 220), New Point(160, 0)) 

g.DrawEllipse(Pens.Red, 200, 150, 200, 100) 

Dim p1 = New Point(300, 10) 





g.DrawLine(Pens.ForestGreen, p1, p2) 





Form2 塗鴉牆 



End Sub 


38

Me.Paint 

Dim width = Me.ClientSize.Width / 10 '分別取得表單寬、高的十分之ㄧ 

Dim height = Me.ClientSize.Height / 10 '分別取得表單寬、高的十分之ㄧ 

'宣告包含 8 種顏色比刷的陣列 

Dim mybrushes() = {Brushes.Red, Brushes.Orange, _ 

Randomize() '設定亂數種子 

Brushes.Yellow, Brushes.Green, _ 

Brushes.Blue, Brushes.Indigo, _ 

Brushes.Purple, Brushes.White} 

For i = 1 To 9 '變更 X 座標的迴圈 

Next 

End Sub 

For j = 0 To 9 '變更 Y 座標的迴圈 

Next 

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) 

Private Sub Form2_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged 

End Sub 

End Class 

Me.Invalidate() '當表單大小改變時,就請表單重畫 

Form3 圖片填滿表單 


Dim img As Image 


Try 

End Sub 

img = Image.FromFile("..\..\sample.jpg") 

Catch ex As Exception 

MsgBox(ex.Message) '載入失敗即結束程式 

End 

End Try 

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 

39

End Sub 

img.RotateFlip(RotateFlipType.Rotate270FlipNone) 

ElseIf e.Button = Windows.Forms.MouseButtons.Right Then 

End If 

img.RotateFlip(RotateFlipType.Rotate90FlipNone) 

Me.Invalidate() '旋轉圖片後,請表單重畫 

Private Sub Form3_Paint(ByVal sender As Object, ByVal e As 

System.Windows.Forms.PaintEventArgs) Handles Me.Paint 

End Sub 

'以填滿工作區的方式顯示圖片 

e.Graphics.DrawImage(img, 0, 0, Me.ClientSize.Width, _ 

Me.ClientSize.Height) 


End Sub 

End Class 

Me.Invalidate() '請表單重畫 

EX1 依輸入大小畫圓且變色 


Dim a As Integer 

Private Sub EX1_Load(ByVal sender As System.Object, ByVal e 

As System.EventArgs) Handles MyBase.Load 

End Sub 

Private Sub EX1_Paint(ByVal sender As Object, ByVal e As 

System.Windows.Forms.PaintEventArgs) Handles Me.Paint 

End Sub 


g.DrawRectangle(Pens.Black, 10, 10, 102, 102) 

g.FillRectangle(Brushes.White, 11, 11, 100, 100) 


End Sub 

Dim g = Me.CreateGraphics() 

g.FillEllipse(Brushes.Pink, 150, 10, a * 2, a * 2) 



End Sub 


Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

RadioButton1.CheckedChanged 

40

End Sub 


g.FillEllipse(Brushes.Red, 150, 10, a * 2, a * 2) 



End Sub 


g.FillEllipse(Brushes.Orange, 150, 10, a * 2, a * 2) 



End Sub 


g.FillEllipse(Brushes.Yellow, 150, 10, a * 2, a * 2) 



End Sub 

End Class 


g.FillEllipse(Brushes.Green, 150, 10, a * 2, a * 2) 

EX2 音樂播放器 


Private Sub EX2_Load(ByVal sender As Object, ByVal 

e As System.EventArgs) Handles Me.Load 

False 

End Sub 

'不使用自動播放功能 

'AxWindowsMediaPlayer1.settings.autoStart = 

'指定音樂檔路徑 

'AxWindowsMediaPlayer1.URL = "\CH11\music.wma" 



Button1.Click 

End Sub 

AxWindowsMediaPlayer1.Ctlcontrols.play() 


End Sub 

AxWindowsMediaPlayer1.Ctlcontrols.pause() 


41

End Sub 

AxWindowsMediaPlayer1.Ctlcontrols.stop() 


End Sub 

AxWindowsMediaPlayer1.Ctlcontrols.fastReverse() 


End Sub 

AxWindowsMediaPlayer1.Ctlcontrols.fastForward() 


End Sub 

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 

End If 

AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName 


End Sub 

End Class 

AxWindowsMediaPlayer1.fullScreen = True 

CH11-1 

Form1 依個人喜好畫圖 


Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles ComboBox1.SelectedIndexChanged, ComboBox2.SelectedIndexChanged 

If ComboBox2.SelectedIndex = -1 Then 

Else 

MsgBox("請記得選擇大小", , "") 

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 

Next 

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) 

42

End Sub 

End Class 

End If 

For i = 0 To ComboBox1.SelectedItem - 1 

Next 

For j = 0 To ComboBox1.SelectedItem - 1 

Next 

CH12 

g.DrawLine(Pens.Black, pointx(i), pointy(i), pointx(j), pointy(j)) 

Form1 多功能表單 


Dim x% 

Private Sub 放大ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

放大ToolStripMenuItem.Click 

End Sub 

Me.Width *= 1.2 

Me.Height *= 1.2 

Private Sub 縮小ToolStripMenuItem_Click(ByVal sender As 

System.Object, ByVal e As System.EventArgs) Handles 縮小 

ToolStripMenuItem.Click 

End Sub 

Me.Width *= 0.8 

Me.Height *= 0.8 

Private Sub 還原ToolStripMenuItem_Click(ByVal sender As 

System.Object, ByVal e As System.EventArgs) Handles 還原ToolStripMenuItem.Click 

End Sub 

Me.Width *= 300 

Me.Height *= 300 

Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

ToolStripMenuItem3.Click 

End Sub 

x = 200 

Me.Invalidate() 

ToolStripMenuItem4.Checked = False 



43


End Sub 

x = 300 






End Sub 

Me.Paint 

x = 400 





End Sub 


g.Clear(Me.BackColor) 

g.FillEllipse(Brushes.Black, 10, 60, x, x) 

Private Sub RedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

RedToolStripMenuItem.Click 

End Sub 

Me.BackColor = Color.Red 

Private Sub GreenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

GreenToolStripMenuItem.Click 

End Sub 

Me.BackColor = Color.Green 

Private Sub BlueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

BlueToolStripMenuItem.Click 

End Sub 

Me.BackColor = Color.Blue 

Private Sub 一般ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

一般ToolStripMenuItem.Click 

End Sub 

Label1.Font = New Font(Label1.Font, FontStyle.Regular) 

粗體ToolStripMenuItem.Checked = False 

斜體ToolStripMenuItem.Checked = False 

粗斜體ToolStripMenuItem.Checked = False 

Private Sub 粗體ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

粗體ToolStripMenuItem.Click 

44

End Sub 

Label1.Font = New Font(Label1.Font, FontStyle.Bold) 

Private Sub 斜體ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

斜體ToolStripMenuItem.Click 

End Sub 

Label1.Font = New Font(Label1.Font, FontStyle.Italic) 

Private Sub 粗斜體ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles 粗斜體ToolStripMenuItem.Click 

End Sub 

Label1.Font = New Font(Label1.Font, FontStyle.Bold Or FontStyle.Italic) 



End Sub 

Label1.Font = New Font(Label1.Font.Name, 14, Label1.Font.Style) 



End Sub 




End Sub 


Private Sub 標楷體ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles 標楷體ToolStripMenuItem.Click 

End Sub 

Label1.Font = New Font("標楷體", Label1.Font.Size, Label1.Font.Style) 

Private Sub 新細明體ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles 新細明體ToolStripMenuItem.Click 

End Sub 

Label1.Font = New Font("新細明體", Label1.Font.Size, Label1.Font.Style) 

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

ToolStripButton1.Click 

End Sub 

Label1.ForeColor = Color.LightGreen 



End Sub 

Label1.ForeColor = Color.Brown 



45

End Sub 

Label1.ForeColor = Color.Purple 

Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

ToolStripLabel1.Click 

End Sub 

Shell("C:\WINDOWS\NOTEPAD.exe", AppWinStyle.NormalFocus) 

Private Sub ToolStripLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

ToolStripLabel2.Click 

End Sub 

End Class 

Shell("C:\WINDOWS\system32\calc.exe", AppWinStyle.NormalFocus) 

EX1 多功能表單、長度、重量換算 


Private Sub 公尺英尺ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles 公尺英尺ToolStripMenuItem.Click 

End Sub 

TextBox2.Text = Val(TextBox1.Text) * 3.2808 

Private Sub 英尺公尺ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles 英尺公尺ToolStripMenuItem.Click 

End Sub 

TextBox1.Text = Val(TextBox2.Text) / 3.2808 

Private Sub 公斤英磅ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles 公斤英磅ToolStripMenuItem.Click 

End Sub 

TextBox4.Text = Val(TextBox3.Text) * 2.205 

Private Sub 英磅公斤ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles 英磅公斤ToolStripMenuItem.Click 

End Sub 

TextBox3.Text = Val(TextBox4.Text) / 2.205 



Label1.ForeColor = Color.Red 






TextBox1.ForeColor = Color.Red 

46

End Sub 






End Sub 

Label1.ForeColor = Color.Orange 






TextBox1.ForeColor = Color.Orange 






End Sub 

Label1.ForeColor = Color.Green 






TextBox1.ForeColor = Color.Green 






ToolStripStatusLabel1.text = "字型大小:12" 







TextBox1.Font = New Font(Label1.Font.Name, 12, Label1.Font.Style) 

47

End Sub 






End Sub 

ToolStripStatusLabel1.Text = "字型大小:16" 













End Sub 

End Class 

ToolStripStatusLabel1.Text = "字型大小:18" 











CH13 

Form1 檔案總管 


48

Dim FileChanged As Boolean = False '用以記錄文字是否被修改 

Private Sub AskSave() 

End Sub 

'檢查編輯中的內容是否已修改且未存檔 

If FileChanged = True Then 

End If 

'用訊息窗詢問是否要立即存檔 

If MsgBox("是否要儲存檔案?", MsgBoxStyle.YesNo) = _ 

End If 

MsgBoxResult.Yes Then 

SaveFile() '呼叫自訂的存檔程序 

Private Sub 儲存ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

儲存ToolStripMenuItem.Click 

End Sub 

SaveFile() 

FileChanged = False 

Me.Text = SaveFileDialog1.FileName 

Private Sub 開啟ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

開啟ToolStripMenuItem.Click 

'呼叫自訂程序,檢查編碼中的內容是否須先存檔 

AskSave() 

'設定要使用的檔案類型 

OpenFileDialog1.Filter = "純文字檔(*.text)|*.text|" & _ 

"Big5文字檔(*.text)|*.text|" & _ 

"所有檔案(*.*)|*.*" 

'顯示交談窗並檢查使用者是否按確定鈕 

If OpenFileDialog1.ShowDialog() = _ 

Windows.Forms.DialogResult.OK Then 

Try 

'若選擇第2種檔案類型(Big5文字檔) 

If OpenFileDialog1.FilterIndex = 2 Then 

Else 

End If 

'讀取檔案並顯示於控制項中 

TextBox1.Text = My.Computer.FileSystem. _ 

ReadAllText(OpenFileDialog1.FileName, _ 

System.Text.Encoding.GetEncoding(950)) 

'以預設方式讀取檔案並顯示於控制項中 


ReadAllText(OpenFileDialog1.FileName) 

49

End Sub 

End If 

'將檔案名稱顯示於視窗標題欄 


ReadAllText(OpenFileDialog1.FileName) 

Me.Text = OpenFileDialog1.SafeFileName 

FileChanged = False 


End Try 

MsgBox(ex.Message) 

Private Sub SaveFile() 

End Sub 

If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then 

Try 

End If 

My.Computer.FileSystem _ 

.WriteAllText(SaveFileDialog1.FileName, _ 


End Try 


TextBox1.Text, False) 

Private Sub Textbox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 


End Sub 

If (FileChanged = False) Then 

End If 

FileChanged = True 

Me.Text &= "*" 

Private Sub 離開ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

離開ToolStripMenuItem.Click 

AskSave() 

End 

End Sub 

Private Sub 關閉ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

關閉ToolStripMenuItem.Click 

End Sub 

AskSave() '呼叫自訂程序,檢查編輯中的妹戎是否須先存檔 

Me.Text = "未命名" '變更視窗標題欄 

TextBox1.Text = "" '清空Editor控制項的內容 

FileChanged = False '將檔案修改狀態設為『未修改』 

50

End Class 

Form2 簡易檔案總管 

ublic Class Form2 

Dim writer As System.IO.StreamWriter '代表紀錄檔的寫檔務件 


End Sub 


End Sub 

If OpenFileDialog1.ShowDialog() = _ 


Try 

End If 

'讀取檔案內容 

TextBox1.Text = My.Computer.FileSystem _ 

.ReadAllText(OpenFileDialog1.FileName) 

Logging("讀取檔案:" & OpenFileDialog1.FileName) 


End Try 



End Sub 

If SaveFileDialog1.ShowDialog() = _ 


Try 

End If 

'儲存檔案 

My.Computer.FileSystem.WriteAllText _ 

(SaveFileDialog1.FileName, TextBox1.Text, False) 

Logging("儲存檔案:" & SaveFileDialog1.FileName) 


End Try 


Sub Logging(ByVal message As String) 

End Sub 

End Class 

'在訊息前加上目前時間並寫入紀錄檔 

writer.WriteLine(Now & "," & message) 

51

CH13-1 




End Sub 

TextBox1.Text = CurDir() 

TextBox1.SelectionStart = Len(TextBox1.Text) 

Function formatDir(ByVal strDir As String) 

If Microsoft.VisualBasic.Right(strDir, 1) "\" Then 

End If 

strDir &= "\" 

Return strDir 

End Function 

Sub Display() 

ChDir(TextBox1.Text) 

Dim strItem$ 

ListBox1.Items.Clear() 


strItem = Dir("*.*", 16 + 2) 

Do Until strItem = "" 

Loop 

End Sub 

If (GetAttr(strItem) And vbDirectory) = 16 Then 

Else 

End If 

ListBox1.Items.Add(strItem) 


strItem = Dir() 


End Sub 

Display() 


End Sub 

ChDir("..") 



52

'TextBox1.Text = formatDir(TextBox1.Text) 

Try 

End Sub 

MkDir(TextBox1.Text) 


End Try 

MsgBox("該目錄已經存在!", 0 + 48, "") 

Display() 


TextBox1.Text = formatDir(TextBox1.Text) 

Dim CurDIR$ 

CurDIR = TextBox1.Text & ListBox1.SelectedItem 

Try 

End Sub 

My.Computer.FileSystem.DeleteDirectory(CurDIR, FileIO.DeleteDirectoryOption.DeleteAllContents) 


End Try 

MsgBox("該目錄已不存在!", 0 + 48, "") 

Display() 



Dim File$ 

File = TextBox1.Text & ListBox2.SelectedItem 

Try 

End Sub 

End Class 

My.Computer.FileSystem.DeleteFile(File) 


End Try 

MsgBox("該檔案已不存在或無法刪除!", 0 + 48, "") 

Display() 

CH14-1 

Form1 書籍目錄 


Private Sub 書籍 

BindingNavigatorSaveItem_Click(ByVal sender As 

53

System.Object, ByVal e As System.EventArgs) Handles 書籍BindingNavigatorSaveItem.Click 

End Sub 

Me.Validate() 

Me.書籍BindingSource.EndEdit() 

Me.TableAdapterManager.UpdateAll(Me.產品DataSet) 


End Sub 

End Class 

'TODO: 這行程式碼會將資料載入 '產品DataSet.書籍' 資料表。您可以視需要進行移動或移除。 

Me.書籍TableAdapter.Fill(Me.產品DataSet.書籍) 



Private Sub TshirtBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles TshirtBindingNavigatorSaveItem.Click 

End Sub 

Me.Validate() 

Me.TshirtBindingSource.EndEdit() 

Me.TableAdapterManager.UpdateAll(Me.成衣DataSet) 


End Sub 

End Class 

'TODO: 這行程式碼會將資料載入 '成衣DataSet.Tshirt' 資料表。您可以視需要進行移動或移除。 

Me.TshirtTableAdapter.Fill(Me.成衣DataSet.Tshirt) 



Private Sub 書籍BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles 書籍BindingNavigatorSaveItem.Click 

54

End Sub 

Me.Validate() 


Me.TableAdapterManager.UpdateAll(Me.產品DataSet1) 

'Me.書籍TableAdapter.Update(Me.產品DataSet1.書籍) Update的對象為產品資料集裡的虛擬書籍資料表 


End Sub 

End Class 

'TODO: 這行程式碼會將資料載入 '產品DataSet1.書籍' 資料表。您可以視需要進行移動或移除。 

Me.書籍TableAdapter.Fill(Me.產品DataSet1.書籍) 



Private Sub Form4_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) 

Handles Me.FormClosing 

End Sub 

DataGridView1.EndEdit() 

書籍TableAdapter.Update(產品DataSet.書籍) 

Private Sub Form4_Load(ByVal sender As 


MyBase.Load 

'TODO: 這行程式碼會將資料載入 '產品DataSet. 

書籍' 資料表。您可以視需要進行移動或移除。 

籍) 

End Sub 

End Class 

Me.書籍TableAdapter.Fill(Me.產品DataSet.書 

55



Private Sub 書籍BindingNavigatorSaveItem_Click(ByVal sender As 

System.Object, ByVal e As System.EventArgs) Handles 書籍 

BindingNavigatorSaveItem.Click 

End Sub 

Me.Validate() 





End Sub 

DataGridView1.EndEdit() 

書籍TableAdapter.Update(產品DataSet1.書籍) 


End Sub 

End Class 



Form6 成衣目錄 


Private Sub TshirtBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles TshirtBindingNavigatorSaveItem.Click 

成衣DataSet1) 

End Sub 

Me.Validate() 

Me.TshirtBindingSource.EndEdit() 

Me.TableAdapterManager.UpdateAll(Me. 

Private Sub Form6_Load(ByVal sender As 


Handles MyBase.Load 

'TODO: 這行程式碼會將資料載入 '成衣 

DataSet1.Tshirt' 資料表。您可以視需要進行移動或移除。 

End Sub 

End Class 

Me.TshirtTableAdapter.Fill(Me.成衣DataSet1.Tshirt) 

56

Form7 查詢書籍系統 


Private Sub 書籍BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles 書籍BindingNavigatorSaveItem.Click 

End Sub 

Me.Validate() 




End Sub 

'TODO: 這行程式碼會將資料載入 '產品DataSet1.類別' 資料表。您可以視需要進行移動或移除。 

Me.類別TableAdapter.Fill(Me.產品DataSet1.類別) 





有檔案|*.*" 

片欄位中 

End Sub 

'設定開啟就檔交談窗中的檔案類型選單 

OpenFileDialog1.filter = _ 

"圖檔|*.jpg;*.gif;*.jpeg;*.png;*.tif|所 

'如果在交談窗中選取了圖檔,則將之載入到圖 

If openfiledialog1.showdialog() = _ 

System.Windows.Forms.DialogResult.OK Then 

End If 

圖片PictureBox.Image = New Bitmap(openfiledialog1.filename) 



End Sub 

End Class 

圖片PictureBox.Image = Nothing 

Exam1 

Form1 簡易計算機 

57




End Sub 

Label4.Text = "+" 

a = Val(TextBox1.Text) : b = Val(TextBox2.Text) 

TextBox3.Text = a + b 


End Sub 

Label4.Text = "-" 


TextBox3.Text = a - b 


End Sub 

Label4.Text = "X" 


TextBox3.Text = a * b 


End Sub 

End Class 

Label4.Text = "÷" 


TextBox3.Text = a / b 

Form2 BMI與三角形面積 


Dim ans 'ans是全域變數,才能在三個副程式區段都發揮作用 


ans = MsgBox("您快樂嗎?", 4 + 32, "問答題") 'MsgBox( )接收到資料傳給ans 

If ans = 6 Then 

Else 

End If 

Label1.Text = "請輸入體重(公斤)=" 

Label2.Text = "請輸入身高(公分)=" 

Me.Text = "計算BMI值" 

Label1.Text = "請輸入底 =" 

Label2.Text = "請輸入高 =" 

Me.Text = "計算三角形面積" 

58

End Sub 


If MsgBoxStyle.DefaultButton1 Then 

Else 

End Sub 

End If 

Label3.Text = "BMI值=" 

Label3.Text = "三角形面積=" 




Else 

End Sub 

End If 

Label3.Text = "BMI值 = " & Math.Round(Val(TextBox1.Text) / (Val(TextBox2.Text) / 100) ^ 2, 1) 

Label3.Text = "三角形面積 = " & Math.Round((Val(TextBox1.Text) * Val(TextBox2.Text) / 2), 1) 




Else 

End Sub 

End Class 

End If 

Label3.Text = "BMI值 = " & Math.Round(Val(TextBox1.Text) / (Val(TextBox2.Text) / 100) ^ 2, 1) 

Label3.Text = "三角形面積 = " & Math.Round((Val(TextBox1.Text) * Val(TextBox2.Text) / 2), 1) 

Exam2 

Form1 計算單數值 

59




End Sub 


Dim a, i As Integer 

For i = 1 To TextBox1.Text Step 2 

Next 

End Sub 

End Class 

a = a + i 

MsgBox("單數值之和:" & a) 

60

Form2 電度換算表 



Dim a%, fee% 

a = CInt(Val(TextBox1.Text)) 

If a > 330 Then 

Else 

End Sub 

End Class 

End If 

fee = 2.1 * 110 + 2.7 * 220 + 3.6 * (a - 330) 


Else 

End If 

fee = 2.1 * 110 + 2.7 * (a - 110) 


Else 

End If 

fee = 2.1 * a 

fee = 2.1 * 40 

Label2.Text = "電費共 " & CInt(fee) & " 元" 

Exam3 

Form1 費氏函數 




If Val(TextBox1.Text) < 1 Then 

Else 

End Sub 

End If 

MsgBox("請輸入大於0的數", 0 + 16, "錯誤") 


TextBox2.Text = Fib(Val(TextBox1.Text)) 

Function Fib(ByVal K As Integer) As Decimal 'Decimal是最大的正整數數值型態了 

61

If K

End Sub 

End Class 

Exam4 

Form1 輸入英文字母全為大寫 


Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) 

Handles TextBox1.KeyPress 

End Sub 

Select Case e.KeyChar 

Case "A" To "Z" 

End Select 

TextBox1.AppendText(Chr((AscW(e.KeyChar) + 32))) 

e.Handled = True '讓控制項不再出現大寫字母 



End Sub 

End Class 

Form2 畫圓加十字 


Me.Paint 


Dim k = e.Graphics 

k.FillEllipse(Brushes.Black, 0, 0, 

Me.ClientSize.Width, Me.ClientSize.Height) 

k.FillEllipse(Brushes.White, 2, 2, 

Me.ClientSize.Width - 4, Me.ClientSize.Height - 4) 

'k.DrawEllipse(Pens.Black, f, g, h) 

Dim a = New Point(ClientSize.Width / 2, 0) 

Dim b = New Point(ClientSize.Width / 2, 

ClientSize.Height) 

Dim c = New Point(0, ClientSize.Height / 2) 

Dim d = New Point(ClientSize.Width, 

ClientSize.Height / 2) 

k.DrawLine(Pens.Black, a, b) 

63

End Sub 

k.DrawLine(Pens.Black, c, d) 


End Sub 

End Class 


Form3 簡易音樂播放器 



End Sub 

Select Case ListBox1.SelectedIndex 

Case 0 

Case 1 

Case 2 

AxWindowsMediaPlayer1.URL = "c:\Exam4\1.mp3" 






Case Else 

End Select 

MsgBox("未選取檔案!", 0 + 64, "注意") 



End Sub 

AxWindowsMediaPlayer1.Ctlcontrols.stop() 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 

End Sub 

End Class 

Label1.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString 

Exam5 

Form1 保護螢幕程式 


64

Dim x%, y%, xd%, yd% 

Dim g As Graphics 

Dim brush As SolidBrush 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 

Dim font As Font = New Font("標楷體", 22) 

g = Me.CreateGraphics 

Randomize() 

Select Case Int(Rnd() * 10) 

Case 0 

Case 1 

Case 2 

Case 3 

Case 4 

Case 5 

Case 6 

Case 7 

Case 8 

Case 9 

End Select 

g.Clear(Color.LightSkyBlue) 

g.Clear(Color.LightGreen) 

g.Clear(Color.Cyan) 

g.Clear(Color.Chocolate) 

g.Clear(Color.Plum) 

g.Clear(Color.Pink) 

g.Clear(Color.Aqua) 

g.Clear(Color.DarkOrange) 

g.Clear(Color.Azure) 

g.Clear(Color.Beige) 

Select Case Int(Rnd() * 10) 

Case 0 

Case 1 

Case 2 

Case 3 

Case 4 

brush = New SolidBrush(Color.LightSalmon) 

brush = New SolidBrush(Color.Purple) 

brush = New SolidBrush(Color.Red) 

brush = New SolidBrush(Color.PeachPuff) 

brush = New SolidBrush(Color.DarkGreen) 

65

Case 5 

Case 6 

Case 7 

Case 8 

Case 9 

End Select 

brush = New SolidBrush(Color.DarkBlue) 

brush = New SolidBrush(Color.Brown) 

brush = New SolidBrush(Color.Turquoise) 

brush = New SolidBrush(Color.PaleVioletRed) 

brush = New SolidBrush(Color.Teal) 

g.DrawString("展現變化莫測的色彩", font, brush, x, y) 

If xd = 1 Then 

Else 

End If 

x -= 30 

x += 30 

If x > (Me.ClientSize.Width - 250) Then 

End If 

xd = 1 

If x < 1 Then 

End If 

xd = 0 

If yd = 1 Then 

Else 

End Sub 

End If 

y -= 15 

y += 15 

If y > (Me.ClientSize.Height - 30) Then 

End If 

yd = 1 

If y < 1 Then 

End If 

yd = 0 

Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 

Me.MouseClick 

End 

End Sub 

End Class 

66



Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

End Sub 

TextBox1.Text = CurDir() '傳回當前路徑 

TextBox1.SelectionStart = Len(TextBox1.Text) 


Function formatDir(ByVal strDir As String) 

If Microsoft.VisualBasic.Right(strDir, 1) "\" Then 

End If 

strDir &= "\" 

Return strDir 

End Function 

Sub Display() 

ChDir(TextBox1.Text) '先讀取路徑 

Dim strItem$ 



strItem = Dir("*.*", 18) '連資料夾(16)和隱藏檔(2)都讀取 

Do Until strItem = "" 

Loop 

End Sub 

If (GetAttr(strItem) And vbDirectory) = 16 Then 

Else 

End If 



strItem = Dir() 


End Sub 

Display() 


Try 

End Sub 

MkDir(TextBox1.Text) 


End Try 

MsgBox("該目錄已存在!", 0 + 48, "") 

67


End Sub 

ChDir("..") 


Display() 


End Sub 


Dim CurDir$ 

CurDir = TextBox1.Text & ListBox1.SelectedItem 

My.Computer.FileSystem.DeleteDirectory(CurDir, FileIO.DeleteDirectoryOption.DeleteAllContents) 

Display() 



Dim CurFile$ 

CurFile = TextBox1.Text & ListBox2.SelectedItem 

Try 

End Sub 

My.Computer.FileSystem.DeleteFile(CurFile) 


End Try 

MsgBox("錯誤: 檔案已不存在或無法刪除!", 0 + 48, "") 

Display() 

Private Sub ListBox1_DoubleClick(ByVal 

sender As Object, ByVal e As System.EventArgs) 

Handles ListBox1.DoubleClick 

TextBox1.Text = 

formatDir(TextBox1.Text) 

TextBox1.Text = TextBox1.Text & 

ListBox1.SelectedItem 

End Sub 

Display() 

Private Sub 

ListBox2_SelectedIndexChanged(ByVal sender 

As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged 


ToolStripStatusLabel1.Text = "檔案大小:" & FileLen(TextBox1.Text & ListBox2.SelectedItem) & " Bytes 

" ToolStripStatusLabel2.Text = "修改日期:" & FileDateTime(TextBox1.Text & ListBox2.SelectedItem) 

Select Case GetAttr(TextBox1.Text & ListBox2.SelectedItem) 

Case 39 

68

End Sub 

End Class 

Case 36 

Case 35 

Case 34 

Case 32 

Case 7 

Case 6 

Case 5 

Case 4 

Case 3 

Case 2 

Case 1 

End Select 

Label4.Text = "檔案屬性:一般、系統、隱藏、唯讀" 

Label4.Text = "檔案屬性:一般、系統" 

Label4.Text = "檔案屬性:一般、隱藏、唯讀" 

Label4.Text = "檔案屬性:一般、隱藏" 

Label4.Text = "檔案屬性:一般" 

Label4.Text = "檔案屬性: 系統、隱藏、唯讀" 

Label4.Text = "檔案屬性: 系統、隱藏" 

Label4.Text = "檔案屬性: 系統、唯讀" 

Label4.Text = "檔案屬性: 系統" 

Label4.Text = "檔案屬性: 隱藏、唯讀" 

Label4.Text = "檔案屬性: 隱藏" 

Label4.Text = "檔案屬性: 唯讀" 

Form3 便利貼 


Dim filename As String = "note.txt" 



End Sub 

FileOpen(1, filename, OpenMode.Binary) 

FilePut(1, TextBox1.Text) '回存記事內容 

FileClose(1) 


Dim len% 

FileOpen(1, filename, OpenMode.Binary) 

69

End Sub 

len = LOF(1) 

Dim content As New String("", len) '建立長度為len的空字串 

FileGet(1, content) '讀取整個檔案的內容,放到content裡 

FileClose(1) 

TextBox1.Text = content 

TextBox1.SelectionStart = len '指定游標停駐點 

TextBox1.SelectionLength = 0 

My.Computer.FileSystem.DeleteFile(filename) '這是重點,否則舊的東西還會在 

Private Sub 字型ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

字型ToolStripMenuItem.Click 

End Sub 

FontDialog1.ShowColor = True 

If FontDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then 

End If 

TextBox1.Font = FontDialog1.Font 

TextBox1.ForeColor = FontDialog1.Color 

Private Sub 背景顏色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles 背景顏色ToolStripMenuItem.Click 

End Sub 

End Class 

ColorDialog1.AllowFullOpen = False 

ColorDialog1.ShowHelp = False 

If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then 

End If 

TextBox1.BackColor = ColorDialog1.Color 

Exam6 

Form1 綜合計算 


Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

GroupBox1.Enter 

End Sub 

70

解法 


Dim i%, n% 


n = Val(TextBox1.Text) 

For i = 2 To n - 1 

Next 

End Sub 

If (gcd(i, n) = 1) Then 

End If 

Label5.Text &= i & " " 

Function gcd(ByVal a, ByVal b) As ULong '遞迴 

If b = 0 Then 

Else 

End If 

End Function 

Return a 

Return gcd(b, a Mod b) 


Dim i%, j%, n% 


n = Val(TextBox2.Text) 

For i = 1 To n 

Next 

End Sub 

End Class 

For j = 1 To i 

Next 

Label6.Text &= j 

Label6.Text &= vbCrLf 

71

周佳姿

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?