VB2008 學習檔案學生:劉家豪座號:10 指導老師:張銘棋老師

VB2008 

學習檔案 

學生:劉家豪 

座號:10 

指導老師:張銘棋 

第 1 頁 

老師

目錄 

CH4…表單的程式設計 

CH5…..使用資料 

第 2 頁 

4~10 頁 

11~13 頁 

CH6…..選擇性執行程式 

14~19 頁 

CH7…..重複執行同一段程式 

CH8…..陣列 

CH9…..程序與函式 

20~23 頁 

24~32 頁 

33~36 頁 

CH10…..事件驅動程式 

37~37 頁

CH11…..繪圖 

CH11-1…..多媒體 

CH12…..視窗介面 

CH13…..檔案存取 

CH14-1…..資料庫 

Exam1…..64~65 頁 

Exam2…..66~67 頁 

Exam3…..68~69 頁 

Exam4…..70~71 頁 

Exam5…..72~77 頁 

Exam6…..78~80 頁 

第 3 頁 

38~41 頁 

42~43 頁 

44~49 頁 

50~58 頁 

59~63 頁

程式碼 10 / CH4 / form1 

Public Class Form1 

CH4 

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 + 48, "轉換結果") 

'Msgbox(r) 

If r = 1 Then 

MsgBox("感謝你的使用!!!", , "Hello!!") 

Else 

End 

End If 

End Sub 

End Class 

執行畫面 

第 4 頁



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 

label1.BorderStyle = BorderStyle.Fixed3D 

label1.Text = "立體邊框" 

End Sub 


Button2.Click 

label1.BorderStyle = BorderStyle.FixedSingle 

label1.Text = "單線邊框" 

End Sub 


Button3.Click 

label1.BorderStyle = BorderStyle.None 

label1.Text = "無邊框" 

End Sub 

End Class 

執行畫面 

第 5 頁




Button1.Click 

Label1.Location = New Point(Label1.Location.X - 20, Label1.Location.Y) 

End Sub 


Button2.Click 

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

End Sub 


Button3.Click 

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

End Sub 


Button4.Click 

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

End Sub 


Button5.Click 

Label1.BackColor = Color.Black 

End Sub 


Button6.Click 

Label1.BackColor = Color.Red 

End Sub 


Button7.Click 

Label1.BackColor = Color.Purple 

End Sub 

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

End Sub 

End Class 

執行畫面 

原圖放大 

第 6 頁

縮小左移 

右移方塊變色(黑) 

方塊變色(紅) 方塊變色(紫) 

第 7 頁



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

MyBase.Load 

End Sub 


Button3.Click 

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

End Sub 

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

PictureBox1.Click 

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

End Sub 


Button1.Click 

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

End Sub 


Button2.Click 

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

End Sub 


Button4.Click 

Me.BackgroundImage = Nothing 

End Sub 

End Class 

執行畫面 

第 8 頁

程式碼 10 / CH4 / EX1 

Public Class EX1 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

Dim f 

f = Val(TextBox1.text) * 9 / 5 + 32 

Label2.Text = ("攝氏 " & Val(TextBox1.Text) & " 度 = 華氏 " & f & " 度。") 

End Sub 


Dim c 

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

Label2.Text = ("華氏 " & Val(TextBox1.Text) & " 度 = 攝氏 " & Math.Round(c, 2) & " 度。") 

End Sub 

End Class 

執行畫面 




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

End Sub 


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

End Sub 


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

End Sub 



End Sub 



End Sub 


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

End Sub 


第 9 頁

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

End Sub 


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

End Sub 


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

End Sub 

執行畫面 

原畫面美國+背景 1 

加拿大+背景 2 法國+背景 3 

日本(原大小) 日本(放大) 日本(縮小) 

第 10 頁


CH5 



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

End Sub 

End Class 

執行畫面 

(時間 9:53) 




Dim a 

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

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

End Sub 

End Class 

執行畫面 

第 11 頁



Dim a, b$ 


TextBox1.Text = TextBox1.Text & "1" 

End Sub 



End Sub 



End Sub 



End Sub 



End Sub 



End Sub 



End Sub 



End Sub 



End Sub 

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

Button10.Click 


End Sub 


Button11.Click 

TextBox1.Text = TextBox1.Text & "." 

End Sub 



If b = "+" Then TextBox1.Text = Val(a) + Val(TextBox1.Text) 

If b = "-" Then TextBox1.Text = Val(a) - Val(TextBox1.Text) 

If b = "*" Then TextBox1.Text = Val(a) * Val(TextBox1.Text) 

If b = "/" Then TextBox1.Text = Val(a) / Val(TextBox1.Text) 

End Sub 



a = TextBox1.Text 

b = "+" 

TextBox1.Text = "" 

End Sub 




b = "-" 


第 12 頁

End Sub 




b = "*" 


End Sub 




b = "/" 


End Sub 

End Class 

執行畫面 

原圖數字與小數點 

第 13 頁 

9 X 9 = 81


CH6 



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 頁




Randomize() 

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

End Sub 


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.SelectAll() 

End If 

End Sub 

End Class 

執行畫面 

第 15 頁



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

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 

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

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 

fst_b.Checked = False 

fst_i.Checked = False 

fst_del.Checked = False 

fst_und.Checked = False 

fStyle = FontStyle.Regular 

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) 

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

End If 

End Sub 


End Sub 

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

fs_11.CheckedChanged 

End Sub 

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

fn_kai.CheckedChanged 

End Sub 

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

fn_new.CheckedChanged 

End Sub 

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

fst_b.CheckedChanged 

End Sub 

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

fst_i.CheckedChanged 

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 

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

Label1.Click 

End Sub 

End Class 

第 16 頁

執行畫面 


Public Class Ex1 

Dim a, b, c As Integer 


a = Val(TextBox1.Text) 

b = Val(TextBox2.Text) 

c = Val(TextBox3.Text) 執行畫面 

If a > b Then 

TextBox4.Text = a 

Else 

If b > a Then 

TextBox4.Text = b 

End If 

If c > a Then 

TextBox4.Text = c 

Else 

If a > c Then 


End If 

If b > c Then 

TextBox4.Text = b 

Else 

If c > b Then 


End If 

End If 

End If 

End If 

End Sub 

End Class 

第 17 頁



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

End Sub 


Dim a As Integer 

If TextBox1.Text = "" Then 

TextBox1.Text = 0 

End If 



End If 



End If 



End If 

a = TextBox1.Text * 30 + TextBox2.Text * 70 + TextBox3.Text * 65 + TextBox4.Text * 99 

If RadioButton1.Checked = True Or RadioButton3.Checked = True Then 

If CheckBox1.Checked = True And CheckBox2.Checked = True Then 

TextBox5.Text = (a * 0.9 * 0.8) 

Label10.Text = "總價" & TextBox5.Text & "+ 打9折 + 打8折" 

ElseIf CheckBox1.Checked = True Then 

TextBox5.Text = (a * 0.9) 

Label10.Text = "總價" & TextBox5.Text & "+打9折" 


TextBox5.Text = (a * 0.8) 

Label10.Text = "總價" & TextBox5.Text & "+打8折" 

Else 


Label10.Text = "總價" & TextBox5.Text 

End If 

ElseIf RadioButton2.Checked = True Then 

If CheckBox1.Checked = True And CheckBox2.Checked = True Then 

If a < 300 Then 

TextBox5.Text = Int((a + 30) * 0.9 * 0.8) 

Label10.Text = "總價" & a & " + 運費30 + 打9折 + 打8折" 

Else 

TextBox5.Text = Int(a * 0.9 * 0.8) 

Label10.Text = "總價" & a & " + 打9折 + 打8折" 

End If 



TextBox5.Text = Int((a + 30) * 0.9) 

Label10.Text = "總價" & a & " + 運費30 + 打9折" 

Else 

TextBox5.Text = Int(a * 0.9) 

Label10.Text = "總價" & a & " + 打9折" 

End If 



TextBox5.Text = Int((a + 30) * 0.8) 

Label10.Text = "總價" & a & " + 運費30 + 打8折" 

Else 

TextBox5.Text = Int(a * 0.8) 

第 18 頁

Label10.Text = "總價" & a & "+ 打8折" 

End If 

Else 


TextBox5.Text = a + 30 

Label10.Text = "總價" & a & "+運費30" 

Else 


Label10.Text = "總價" & a 

End If 

End If 

End If 

End Sub 







RadioButton1.Checked = True 

CheckBox1.Checked = False 

CheckBox2.Checked = False 

Label10.Text = "明細" 

End Sub 

End Class 

執行畫面 

第 19 頁

程式碼 10 / CH7 / Form1 

CH7 



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 

執行畫面 




Button1.Visible = False 

PictureBox1.Left = 0 - PictureBox1.Size.Width 

PictureBox1.Visible = True 

Do 

PictureBox1.Left = PictureBox1.Left + 1 + HScrollBar1.Value / 20 

If PictureBox1.Left Mod 10 = 0 Then 

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

End If 

System.Threading.Thread.Sleep(30) 

Application.DoEvents() 

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

Button1.Visible = True 

PictureBox1.Visible = True 

End Sub 


第 20 頁

Randomize() 

End Sub 

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

End Sub 

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click 

End Sub 

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

System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll 

End Sub 

End Class 

執行畫面 

起始畫面 

跑到中間 

跑完結束 

第 21 頁



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")) 

a = Val(Format(Now, "yyyy") - 1911) 

If a < 0 Then a = Val(Format(Now, "yyyy") + 1911) 

Label2.Text = Format(Now(), If(CheckBox3.Checked, "yyyy/MM/dd", a & "/MM/dd")) 

End Sub 


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

Label2.Text = Format(Now(), "yyyy/MM/dd") 

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 

執行畫面 

民國 24 小時制西元 12 小時制 



Dim a, b As Integer 


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

+ 0, "重新輸入") _ 

: 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 

w: 

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

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

End Sub 

End Class 

第 22 頁

執行畫面 




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 

Label1.Text = Label1.Text & a 執行畫面 

Next 

For j = i - 1 To 1 Step -1 

a = j 

If a >= 10 Then a = a - 10 

Label1.Text = Label1.Text & a 

Next 

Next 

End Sub 

第 23 頁


CH8 



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 

執行畫面 

程式碼 10 / CH8 / Module1 

Module Module1 

Sub Main() 

Dim 資料, 陣列(0) As String 

Dim 筆數 As Integer 

Do 

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

資料 = Console.ReadLine 

If 資料 = "" Then Exit Do 

ReDim Preserve 陣列(筆數) 

陣列(筆數) = 資料 

筆數 = 筆數 + 1 

Loop 

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

Array.Sort(陣列) 

For i = 1 To 筆數 

Console.WriteLine(陣列(i - 1)) 

第 24 頁

Next 

Console.ReadLine() 

End Sub 

End Module 

執行畫面 

2 


Module Module2 執行畫面 

Sub main() 

Dim X(4), i As Integer 

For i = 0 To 4 

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

X(i) = Val(Console.ReadLine) 

Next 

Array.Sort(X) 


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

Next 


End Sub 

End Module 




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 = "" 


Else 

Label5.Text = 數學(索引) 

Label6.Text = 國文(索引) 

第 25 頁

Label7.Text = 英文(索引) 

End If 

Dim a$ = "" 

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

While i > 0 

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

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

End While 

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

End Sub 

End Class 

執行畫面 




Dim 稅率(,) As Integer = {{410000, 6, 0}, {1090000, 13, 28700}, {2180000, 21, 115900}, {409000, 30, 

312100}, {4090001, 40, 7201100}} 

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


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

If 所得淨額




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 

執行畫面 





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

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

Next 

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

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

Next 

End Sub 



第 27 頁



Next 



Next 

End Sub 

End Class 

執行畫面 


2 



If ComboBox1.SelectedIndex = -1 Then ComboBox1.SelectedItem = Label1.Font.Name 

If ComboBox2.SelectedIndex = -1 Then ComboBox2.SelectedIndex = 0 

If ComboBox3.SelectedIndex = -1 Then ComboBox3.SelectedItem = "12" 

Dim 字型名稱 As String = ComboBox1.SelectedItem 

Dim 字型樣式 As FontStyle 

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

Select Case ComboBox2.SelectedItem 

Case "標準" 

字型樣式 = FontStyle.Regular 

Case "粗體" 

字型樣式 = FontStyle.Bold 

Case "斜體" 

字型樣式 = FontStyle.Italic 

第 28 頁

Case "粗斜體" 

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

End Select 

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

End Sub 

End Class 

執行畫面 




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 min As Integer = 100 

Dim max As Integer 

Dim name(4) 



For j = 0 To 9 

If min > Val(評分(i, j)) Then min = Val(評分(i, j)) 執行畫面 

If max < Val(評分(i, j)) Then max = Val(評分(i, j)) 

Next j 

For n = 0 To 9 

a = a + Val(評分(i, n)) 

Next n 

a = a - min - max 

name(i) = a / 8 

min = 100 

max = 0 

a = 0 

Next i 

Array.Sort(name, 姓名) 

For m = 4 To 0 Step -1 

Label1.Text = Label1.Text & vbCrLf & 姓名(m) & " " & name(m) 

Next m 

End Sub 

End Class 

第 29 頁




Dim a$, b% 

a = ListBox1.Text 

b = ListBox1.SelectedIndex 

If ListBox1.SelectedIndex -1 Then 

If ListBox1.SelectedIndex = 0 Then 

ListBox1.Items.RemoveAt(ListBox1.SelectedIndex) 

ListBox1.Items.Insert(ListBox1.Items.Count, a) 

ListBox1.SelectedIndex = ListBox1.Items.Count - 1 

Else 


ListBox1.Items.Insert(b - 1, a) 

ListBox1.SelectedIndex = b - 1 

End If 

End If 

End Sub 


Dim a$, b% 

a = ListBox1.Text 

b = ListBox1.SelectedIndex 

If ListBox1.SelectedIndex -1 Then 

If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then 


ListBox1.Items.Insert(0, a) 

ListBox1.SelectedIndex = 0 

Else 


ListBox1.Items.Insert(b + 1, a) 

ListBox1.SelectedIndex = b + 1 

End If 

End If 

End Sub 

End Class 

執行畫面 

第 30 頁





If TextBox1.Text "" Then 

a = a + 1 

ListBox1.Items.Add(Format(a, "00#") & "-" & TextBox1.Text) 

Else 

MsgBox("請輸入資料", 16 + 0, "錯誤") 

End If 

End Sub 





Next 



Next 

End Sub 





Next 



Next 

End Sub 


ListBox2.Items.Clear() 

End Sub 


Dim n, m As Integer 

If ListBox1.SelectedIndex = -1 Then 

MsgBox("你未選取資料", 16 + 0, "錯誤") 

Else 


MsgBox("請輸入資料", 16 + 0, "錯誤") 

Else 

n = Val(Microsoft.VisualBasic.Left(ListBox1.Text, 3)) 

m = ListBox1.SelectedIndex 


ListBox1.Items.Insert(m, Format(n, "00#") & "-" & TextBox1.Text) 

End If 

End If 

End Sub 

End Class 

第 31 頁

執行畫面 

第 32 頁

CH9 



Sub Main() 

fact(5) 

End Sub 

Sub fact(ByVal n As Integer) 

Dim total As Double = 1 

For i = 2 To n 

total = total * i 

Next 

Console.WriteLine(n & "! 的值為" & total) 執行畫面 

End Sub 

End Module 



Sub main() 

finalV(10, 15, 3) 

Console.WriteLine("----------") 執行畫面 

finalV(10, 20) 

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

finalV(10) 

End Sub 

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 

End Module 

第 33 頁



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 

Sub DoubleArrayValue(ByVal b() As Integer) 

For i = 0 To b.Length - 1 

b(i) = b(i) * 2 

Next 

End Sub 

End Module 



Dim number As Integer '移動次數 

Sub Main() 

Dim p 

Dim n As Integer = 0 

number = 0 

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

n = Console.ReadLine() 

p = Timer 

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

Console.WriteLine("花了" & Timer - p & "秒") 


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 執行畫面 

第 34 頁




Dim Draw(4) As Integer 

Dim Lucky As Integer 執行畫面 

Randomize() 


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) 





Button1.Text = "再試一次" 

End Sub 

End Class 




Label2.Text = fact(Val(TextBox1.Text)) 

End Sub 

Function fact(ByVal n As Integer) As Long 

If n


Imports System.Drawing 



Button1.Click 

Randomize() 

PictureBox1.Image = New Bitmap("..\..\" & CInt(Int(Rnd() * 6) + 1) & ".gif") 

PictureBox2.Image = New Bitmap("..\..\" & CInt(Int(Rnd() * 6) + 1) & ".gif") 

End Sub 

End Class 執行畫面 




Button1.Click 

Label2.Text = "距離=" & s((Val(TextBox1.Text))) & "m" 

End Sub 

Private Function s(ByVal t As Integer) As Single 

Dim a As Single 

a = (9.8 * t ^ 2) / 2 

Return a 

End Function 執行畫面 

End Class 

第 36 頁

CH10 

程式碼 10 / CH10 / Form1 


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

Handles TextBox1.KeyPress 

If Asc(e.KeyChar) >= 97 And Asc(e.KeyChar) 3 Then 

If Len(s) Mod 3 0 Then 

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

For i = (Len(s) Mod 3) + 1 To Len(s) Step 3 

c = c & "," & Mid(s, i, 3) 

Next i 

Else 

For i = 1 To Len(s) Step 3 

c = c & Mid(s, i, 3) & "," 

Next i 

c = Mid(c, 1, Len(c) - 1) 

End If 

End If 


End Sub 

End Class 

第 37 頁

CH11 



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(Pens.Black, 180, 10, 240, 70) 

g.DrawLine(Pens.Black, 180, 70, 240, 10) 

g.FillEllipse(Brushes.Blue, 270, 20, 100, 50) 執行畫面 

Dim p1 = New Point(100, 100) 

Dim p2 = New Point(200, 100) 

Dim p3 = New Point(230, 180) 



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





End Sub 

End Class 




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

第 38 頁

Next j 

Next i 

End Sub 

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

Me.SizeChanged 

Me.Invalidate() 

End Sub 

End Class 

執行畫面 



Dim Img As Image 


Try 

Img = Image.FromFile("..\..\sample.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 


End Sub 


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 


End Sub 執行畫面 

End Class 

原畫面滑鼠點兩下拉大 

第 39 頁



Dim ok As Boolean = False 

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

Me.Paint 


g.FillRectangle(Brushes.Black, 5, 5, 102, 102) 

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

If ok = True Then 

g.Clear(Me.BackColor) 

End If 

End Sub 

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

Button1.Click, RadioButton1.Click, RadioButton2.Click, RadioButton3.Click, RadioButton4.Click 

Dim g = Me.CreateGraphics 

Dim a As Integer = Val(TextBox1.Text) 

ok = True 

Me.Refresh() 

If RadioButton1.Checked = True Then g.FillEllipse(Brushes.Red, 150, 5, a * 2, a * 2) 

If RadioButton2.Checked = True Then g.FillEllipse(Brushes.Yellow, 150, 5, a * 2, a * 2) 

If RadioButton3.Checked = True Then g.FillEllipse(Brushes.Orange, 150, 5, a * 2, a * 2) 

If RadioButton4.Checked = True Then g.FillEllipse(Brushes.Green, 150, 5, a * 2, a * 2) 

End Sub 

End Class 

執行畫面 

第 40 頁




'AxWindowsMediaPlayer1.settings.autoStart = False 

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

End Sub 


AxWindowsMediaPlayer1.Ctlcontrols.play() 

End Sub 


AxWindowsMediaPlayer1.Ctlcontrols.pause() 

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 

AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName 

End If 

End Sub 


AxWindowsMediaPlayer1.fullScreen = True 

End Sub 

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

System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll 

AxWindowsMediaPlayer1.settings.volume = HScrollBar1.Value 

End Sub 


第 41 頁

程式碼 10 / CH11-1 / Form1 

CH11-1 


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("請選擇大小", 0 + 64, "確認") 

Else 

Dim g = Me.CreateGraphics 

Dim size As Integer = ComboBox2.SelectedItem 

Dim x = Me.ClientSize.Width / 2 

Dim y = Me.ClientSize.Height / 2 

Dim pointx(9), pointy(9), i, j As Integer 

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 i 


Case "" 

Me.BackColor = SystemColors.Control 

Case "Control" 

Me.BackColor = SystemColors.Control 

Case "Orange" 

Me.BackColor = Color.Orange 

Case "Purple" 

Me.BackColor = Color.Purple 

Case "Pink" 

Me.BackColor = Color.Pink 

Case "Gray" 

Me.BackColor = Color.Gray 

End Select 

Refresh() 

For i = 0 To ComboBox1.SelectedItem - 1 

For j = 0 To ComboBox1.SelectedItem - 1 


Case "" 

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

Case "Black" 

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

Case "Blue" 

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

Case "Red" 

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

Case "Yellow" 

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

第 42 頁

Case "Green" 

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

End Select 

Next j 

Next i 

End If 

End Sub 

End Class 

執行畫面 

第 43 頁


CH12 


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 

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

ToolStripMenuItem3.Click 

x = 200 


ToolStripMenuItem4.Checked = False 


End Sub 



x = 300 




End Sub 



x = 400 




End Sub 


Me.Paint 

e.Graphics.Clear(BackColor) 

e.Graphics.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 

第 44 頁

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) 

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) 

End Sub 



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

End Sub 




End Sub 




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.Gold 

End Sub 



Label1.ForeColor = Color.Purple 

End Sub 



Label1.ForeColor = Color.OrangeRed 

End Sub 

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

ToolStripLabel1.Click 

'Shell("C:\Windows\notepad.exe", 1) 

Shell("notepad", 1) 

End Sub 

第 45 頁

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

ToolStripLabel2.Click 

'Shell("C:\Windows\system32\calc.exe", 1) 

Shell("calc", 1) 

End Sub 

End Class 

執行畫面 

第 46 頁



Dim ok As Boolean = True 

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

Handles 公尺英尺ToolStripMenuItem.Click 

ok = False 

Label1.Text = "公尺:" 

Label2.Text = "英尺:" 



公尺英尺ToolStripMenuItem.Checked = True 

公斤英鎊ToolStripMenuItem.Checked = False 

ok = True 

End Sub 

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

Handles 公斤英鎊ToolStripMenuItem.Click 

ok = False 

Label1.Text = "公斤:" 

Label2.Text = "英鎊:" 



公斤英鎊ToolStripMenuItem.Checked = True 

公尺英尺ToolStripMenuItem.Checked = False 

ok = True 

End Sub 

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

TextBox1.TextChanged 


If 公尺英尺ToolStripMenuItem.Checked = True Then 

ok = False 

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

ok = True 

Else 

ok = False 


ok = True 

End If 

End If 

End Sub 




If 公尺英尺ToolStripMenuItem.Checked = True Then 

ok = False 


ok = True 

Else 

ok = False 


ok = True 

End If 

End If 

End Sub 



Label1.ForeColor = Color.Red 

第 47 頁

Label2.ForeColor = Color.Red 

TextBox1.ForeColor = Color.Red 

TextBox2.ForeColor = Color.Red 

End Sub 



Label1.ForeColor = Color.Green 

Label2.ForeColor = Color.Green 

TextBox1.ForeColor = Color.Green 

TextBox2.ForeColor = Color.Green 

End Sub 



Label1.ForeColor = Color.Blue 

Label2.ForeColor = Color.Blue 

TextBox1.ForeColor = Color.Blue 

TextBox2.ForeColor = Color.Blue 

End Sub 



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

Label2.Font = New Font(Label2.Font.Name, 10, Label2.Font.Style) 

TextBox1.Font = New Font(TextBox1.Font.Name, 10, TextBox1.Font.Style) 

TextBox2.Font = New Font(TextBox2.Font.Name, 10, TextBox2.Font.Style) 

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

End Sub 





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


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

End Sub 







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

End Sub 

End Class 

執行畫面 

第 48 頁

第 49 頁


CH13 


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, System.Text.Encoding.Default) 

Me.Text = OpenFileDialog1.SafeFileName 

Label2.Text = OpenFileDialog1.FileName 

FileChanged = False 

End If 

Label3.Text = "大小:" & FileLen(Label2.Text) & "bytes 字數:" & Len(TextBox1.Text) 

End Sub 

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

儲存ToolStripMenuItem.Click 

If Big5ToolStripMenuItem.Checked = True Then 

My.Computer.FileSystem.WriteAllText(Label2.Text, TextBox1.Text, False, 

System.Text.Encoding.GetEncoding(950)) 

Else 

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, False) 

End If 

Me.Text = OpenFileDialog1.SafeFileName 


End Sub 



Label3.Text = "字數:" & Len(TextBox1.Text) 

If FileChanged = False Then 

FileChanged = True 

Me.Text &= "*" 

End If 

End Sub 

Private Sub 另存新檔ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles 另存新檔ToolStripMenuItem.Click 

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


My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, False, 


Else 


End If 

Label2.Text = SaveFileDialog1.FileName 


Me.Text = Mid(SaveFileDialog1.FileName, InStrRev(SaveFileDialog1.FileName, "\") + 1) 

End If 

End Sub 

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

關閉ToolStripMenuItem.Click 

If FileChanged = True Then 

第 50 頁

If MsgBox("檔案尚未儲存,是否要儲存?", MsgBoxStyle.YesNo, "是否要儲存") = MsgBoxResult.Yes Then 



My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, False, 


Else 


End If 

End If 

End If 

End If 



Me.Text = Me.Name 


End Sub 

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

Big5ToolStripMenuItem.Click 

UTF8ToolStripMenuItem.Checked = False 


End Sub 

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

UTF8ToolStripMenuItem.Click 

Big5ToolStripMenuItem.Checked = False 


End Sub 

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

UTF16ToolStripMenuItem.Click 

Big5ToolStripMenuItem.Checked = False 


End Sub 

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

離開ToolStripMenuItem.Click 

End 執行畫面 

End Sub 

End Class 

第 51 頁



Dim writer As System.IO.StreamWriter 


writer = My.Computer.FileSystem.OpenTextFileWriter("D:\CH13\LogFile.log", True) 

Logging("程式啟動") 

End Sub 

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

Handles Me.FormClosing 

If Not (writer Is Nothing) Then 

Logging("程式結束") 

writer.Close() 

End If 

End Sub 



Dim LineNum As Integer = 1 

Dim reader = My.Computer.FileSystem.OpenTextFileReader(OpenFileDialog1.FileName, 

System.Text.Encoding.Default) 

While reader.EndOfStream = False 

Dim SingleLine = reader.ReadLine 

TextBox1.Text &= LineNum.ToString("D3") & " " & SingleLine & vbCrLf 

LineNum += 1 

End While 

reader.Close() 

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

End If 

End Sub 




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

End If 執行畫面 

End Sub 

Private Sub Logging(ByVal Message As String) 

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

End Sub 

End Class 

第 52 頁

第 53 頁



Dim MenuFilePath = "D:\CH13\Menu.csv" 

Dim MenuItems As New ArrayList 

Dim OrderDetail As New ArrayList 


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() 

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) 


End If 

End Sub 




MenuItems(index)(0) = TextBox1.Text 


ListBox1.Items(index) = MenuItems(index)(0) & " - " & MenuItems(index)(1) & "元" 

End If 

End Sub 


If TextBox2.Text "" And Val(TextBox2.Text) > 0 Then 

Dim NewItem() = {TextBox1.Text, TextBox2.Text} 

MenuItems.Add(NewItem) 

ListBox1.Items.Add(TextBox1.Text & " - " & TextBox2.Text & "元") 

Else 

MsgBox("輸入錯誤!") 

End If 

End Sub 


MenuItems.RemoveAt(ListBox1.SelectedIndex) 


End Sub 


Dim MenuWriter = My.Computer.FileSystem.OpenTextFileWriter(MenuFilePath, False) 

For Each item In MenuItems 

MenuWriter.WriteLine(item(0) & "," & item(1)) 

Next 

MenuWriter.Close() 

MsgBox("儲存成功") 

End Sub 



If index >= 0 And Val(TextBox3.Text) > 0 Then 

Dim Entry() = {MenuItems(index)(0), TextBox3.Text, TextBox3.Text * MenuItems(index)(1)} 

OrderDetail.Add(Entry) 

第 54 頁

ListBox2.Items.Add(MenuItems(index)(0) & ", " & TextBox3.Text & "份, " & Val(TextBox3.Text) * 

MenuItems(index)(1) & "元") 

End If 

End Sub 




ListBox2.Items.RemoveAt(index) 

OrderDetail.RemoveAt(index) 

End If 

End Sub 


If ListBox2.Items.Count > 0 Then 

Dim OrderWriter = My.Computer.FileSystem.OpenTextFileWriter("D:\CH13\Orders.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() 


OrderDetail.Clear() 

MsgBox(Msg & vbCrLf & "共" & SubTotal) 執行畫面 

Else 

MsgBox("你還沒點菜") 

End If 

End Sub 

End Class 

第 55 頁

第 56 頁



Dim MenuFilePath = "D:\CH13\Score.csv" 

Dim MenuItems As New ArrayList 


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() 

Average() 

End Sub 


MenuItems.RemoveAt(ListBox1.SelectedIndex) 


Average() 

End Sub 


If TextBox2.Text "" And Val(TextBox2.Text) > 0 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 

Average() 

End Sub 







ListBox1.Items(index) = MenuItems(index)(0) & " ,英文分數:" & MenuItems(index)(1) & " ,數學分數: 

" & MenuItems(index)(2) 

End If 

Average() 

End Sub 








End If 

End Sub 


Dim MenuWriter = My.Computer.FileSystem.OpenTextFileWriter(MenuFilePath, False) 


MenuWriter.WriteLine(item(0) & "," & item(1) & "," & item(2)) 

Next 

MenuWriter.Close() 

MsgBox("儲存成功") 

第 57 頁

Average() 

End Sub 

Private Sub Average() 

Dim Esum, Msum As Integer 


Esum += item(1) 

Msum += item(2) 

Next 

Label5.Text = Math.Round(Esum / ListBox1.Items.Count, 2) 

Label7.Text = Math.Round(Msum / ListBox1.Items.Count, 2) 

End Sub 

End Class 

執行畫面 

第 58 頁


CH14-1 


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 


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

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

End Sub 

End Class 

執行畫面 

第 59 頁

2 



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.成衣DataSet) 

End Sub 


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

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


End Class 

3 



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

Handles 書籍BindingNavigatorSaveItem.Click 

End Sub 

Me.Validate() 


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


End Sub 

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

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

End Class 

第 60 頁

4 


執行畫面 




DataGridView1.EndEdit() 

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

End Sub 


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

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


End Class 

第 61 頁

5 





Me.Validate() 



End Sub 



DataGridView1.EndEdit() 

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

End Sub 




End Sub 


6 



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 


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

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

End Sub 

End Class 

第 62 頁

7 


執行畫面 




Me.Validate() 



End Sub 


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

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



End Sub 



OpenFileDialog1.Filter = "圖檔|*.jpg;*.gif;*.jpeg;*.png;*.tif|所有檔案|*.*" 


圖片PictureBox.Image = New Bitmap(OpenFileDialog1.FileName) 

End If 

End Sub 



圖片PictureBox.Image = Nothing 

End Sub 

End Class 

執行畫面 

第 63 頁

程式碼 10 / Exam1 / Form1 

Exam1 




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 


Label4.Text = "÷" 


TextBox3.Text = a / b 執行畫面 

End Sub 

End Class 

第 64 頁





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

End Sub 



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

End Sub 


TextBox5.Text = " 購買清單 " & Now & vbCrLf & "品名單價數量金額" 

End Sub 


TextBox5.Text = TextBox5.Text & vbCrLf & TextBox1.Text & vbTab & TextBox2.Text _ 

& vbTab & TextBox3.Text & vbTab & TextBox4.Text 

End Sub 


TextBox5.Text = " 購買清單 " & Now & vbCrLf & "品名單價數量金額" 


End Class 

第 65 頁


Exam2 



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 


End Sub 

End Class 




Button1.Click 

Dim m As Integer 

a: 

If Val(TextBox1.Text) < 0 Then MsgBox("年資不能為負數", 16 + 0, "錯誤") _ 

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

If Val(TextBox1.Text) = 0 Then m = 0 : GoTo a 

If Val(TextBox1.Text) < 5 Then m = 30000 

If Val(TextBox1.Text) >= 5 Then m = 40000 

If Val(TextBox1.Text) > 10 Then m = 50000 

If RadioButton1.Checked = True Then m = m + 10000 

If RadioButton2.Checked = True Then m = m + 5000 

If RadioButton3.Checked = True Then m = m + 3000 

If CheckBox1.Checked = True Then m = m - 1000 

If CheckBox2.Checked = True Then m = m - 600 

TextBox2.Text = m 


End Sub 


Button2.Click 

End 

End Sub 

End Class 

第 66 頁

執行畫面 

第 67 頁


Exam3 



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 


a = i Mod j 

If a = 0 Then 

TextBox3.Text = j 執行畫面 

Else 

GCD(j, a) 

End If 

End Function 

End Class 



Dim win, lose As Integer 


Randomize() 


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

lose = lose + 1 

MsgBox("你輸了,共贏了" & win & "次,輸了" & lose & "次", 16, ">__


Exam4 



Me.Paint 


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) 



End Sub 

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


End Sub 

End Class 

執行畫面 

MP3 



Dim StarTtime As Date 


If ListBox1.SelectedIndex = -1 Then 

MsgBox("未選取歌曲", 0 + 64, "確認") 

Else 

AxWindowsMediaPlayer1.URL = "C:\Exam4\" & ListBox1.SelectedItem 

AxWindowsMediaPlayer1.Ctlcontrols.play() 

第 70 頁

StarTtime = Now 

Timer1.Enabled = True 

End If 

End Sub 


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 

執行畫面 

第 71 頁


Exam5 


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} 


f = "右下" 

Randomize() 

End Sub 

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


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 e.Button = Windows.Forms.MouseButtons.Left Then End 

End Sub 


第 73 頁




TextBox1.Text = CurDir() 

TextBox1.Text = formatDir(TextBox1.Text) 

display() 

TextBox1.SelectionStart = Len(TextBox1.Text) 

End Sub 


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 




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 

End Sub 


display() 

End Sub 



Try 

MkDir(TextBox1.Text) 


MsgBox("資料夾已存在", 0 + 64, "") 

End Try 

display() 

End Sub 



Try 

My.Computer.FileSystem.DeleteDirectory(TextBox1.Text & ListBox1.SelectedItem, 

FileIO.DeleteDirectoryOption.DeleteAllContents) 


MsgBox("無法刪除此資料夾", 0 + 64, "") 

End Try 

display() 

第 74 頁

End Sub 



Try 

My.Computer.FileSystem.DeleteFile(TextBox1.Text & ListBox2.SelectedItem) 


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 &= ListBox1.SelectedItem 

display() 

End Sub 



Dim s As String 


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 

執行畫面 

第 75 頁

第 76 頁




TextBox1.Text = My.Computer.FileSystem.ReadAllText("..\..\note.txt") 

TextBox1.SelectionStart = Len(TextBox1.Text) 

End Sub 



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 

執行畫面 

第 77 頁


Exam6 



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

Case 73 

n = 34 

Case 74 To 78 

n = Asc(Mid(TextBox4.Text, 1, 1)) - 56 

Case 79 

n = 35 

Case 80 To 86 


Case 87 

n = 32 

Case 88 To 89 


Case 90 

n = 33 

End Select 

s = Microsoft.VisualBasic.Trim(Str(n)) 


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 

第 79 頁

第 80 頁

VB2008 學習檔案學生:劉家豪座號:10 指導老師:張銘棋老師

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

Delete template?

Save as template?