林欣怡

Visual Basic2008 

學習檔案 

班級:資二 1 

指導老師:張銘棋 

學生:林欣怡 

座號:17

第四章表單的程式設計 

目錄 

1.將攝氏溫度轉換為華氏溫度………………………….…..Page4 

2.選擇國旗的程式……………………………………….…..Page4 

3.攝氏溫度轉華氏溫度………………………………….…..Page5 

4.邊框變化……………………………………………….…. Page6 

5.按鈕的移動與縮放……………. ……………………….…Page6 

6.變換表單背景圖片……………………………………….. Page7 

第五章使用資料 

1.計算機……………………………………………………...Page7 

2.顯示按鈕時間…………………………………………….. Page9 

3.顯示編號………………………………………………….. Page9 

第六章流程控制-選擇性執行程式 

1.找出最大值………………………………………….……. Page10 

2.點餐計價……………………………………….…………. Page11 

3.折扣計算……………………………………………….…. Page12 

4.猜數字遊戲……………………………………………….. Page13 

5.選擇字體與大小…………………………………….……. Page13 

第七章流程控制-重複執行同一段程式 

1.分數統計……………………………………………….…. Page15 

2.數字金字塔……………………………………………….. Page15 

3.倒數字金字塔………………………………………….…. Page16 

4.蟑螂大逃竄……………………………………………….. Page17 

5.電子時鐘……………………………………………….…. Page17 

第八章陣列 

1. 歌唱成績計算排名…………………………………….…Page18 

2. 上下移動按鈕………………………………………….…Page19 

3. 餐廳排隊給號系統………………………………….……Page20 

4. 成績資料………………………………………………….Page21 

5. 主控台輸入資料…………………………………….……Page21 

6. 主控台輸入數值資料……………………………….……Page22 

7. 成績查詢程式………………………………………….…Page22 

8. 綜合所的淨額……………………………………….……Page23 

9. 字型設定程式………………………………………….…Page24 

Page1

10. 調換程式……………………………………………….. Page24 

11. 字型設計……………………………………………….. Page25 

第九章程式與函式 

1.比大小……………………………………………….……. Page26 

2.重力加速度………………………………………….……. Page27 

3.計算階乘………………………………………….………. Page27 

4.計算速度……………………………………….…………. Page27 

5.整數陣列…………………………………….……………..Page28 

6.開獎號碼………………………………….………………..Page28 

7.遞回…………………………………….…………………..Page29 

8.圓盤張數…………………………….……………………. Page30 

第十章事件驅動程式設計 

1.英文字母大寫、千分位符號、滑鼠移入變白色……….. Page30 

第十一章繪圖與多媒體 

1.畫圖……………………………………………………..…. Page31 

2.播放音樂 …………………………………………………. Page32 

3.繪圖…………………………………………………………Page33 

4.預設筆刷…………………………………………..………. Page34 

5.圖片旋轉……………………………………………...…….Page35 

第十二章視窗介面進階 

1.長度、重量轉換………………………………………….... Page35 

2.控制字型樣式、大小……………………………………….Page37 

第十三章檔案存取 

1. 平均分數程式……………………………………………... Page39 

2. 開檔、存檔功能……………………………………………Page41 

3. 文字編輯程式………………………………………………Page43 

4. 點菜程式……………………………………………………Page44 

第十三之一章檔案存取 

1. 顯示資料夾與檔案清單……………………………………Page46 

Page2

第十四之一章設計資料庫程式 

考試 

Exam1 

Exam2 

Exam3 

Exam4 

Exam 

Exam6 

1.書籍資料庫-1…………………………………………………Page49 

2.成衣資料庫…………………………………………………...Page49 

3.書籍資料庫-2…………………………………………………Page50 

4.書籍資料庫-3…………………………………………………Page50 

5.書籍資料庫-4…………………………………………………Page51 

6.成衣資料庫.…………………………………………………..Page52 

7.查閱欄位……………………………………………………...Page52 

1.加減乘除……………………………………………………...Page53 

2.購買清單……………………………………………………...Page54 

3.計算 BMI 值、三角形面積………………………………….Page55 

1.單數值之和…………………………………………………...Page56 

2.電費計算……………………………………………………...Page56 

1.費氏數列…………………………………………………….. Page57 

2.擲骰子比大小……………………………………………….. Page57 

1.英文字母大寫變小寫………………………………………...Page58 

2.白底黑邊的圓形……………………………………………...Page58 

3.MP3 播放器…………………………………………………...Page59 

1.螢幕保護程式…………………………………………………Page60 

2.顯示資料夾內的子資料夾……………………………………Page62 

3.便利貼…………………………………………………………Page64 

1. 互質的數、直角三角形、數字相加、身分證號碼………..Page65 

Page3

程式碼---17/CH4/EX1 

將攝氏溫度互轉為華氏溫度 

Public Class EX1 

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

End Sub 

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

TextBox1.TextChanged 

End Sub 

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

Dim a, b As Integer 

a = TextBox1.Text 

b = a * 9 / 5 + 32 

Label2.Text = "攝氏 " & a & " 度 = 華氏 " & b & " 度。" 

End Sub 


Dim b As Integer 

Dim a As Single 

b = TextBox1.Text 

a = Math.Round((b - 32) * 5 / 9, 2) 

Label2.Text = "華氏 " & b & " 度 = 攝氏 " & a & " 度。" 

End Sub 

End Class 


選擇國旗的程式 



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

End Sub 

Page4


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

End Sub 


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

End Sub 


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

End Sub 


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

End Sub 



End Sub 



End Sub 


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

End Sub 


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

End Sub 

End Class 

程式碼---17/CH4/Form1 

攝氏溫度轉華氏溫度 

Public Class Form1 


Dim c, f, r As Integer 

c = Val(InputBox("請輸入攝氏溫度", "溫度結果")) 

f = c * 9 / 5 + 32 

r = MsgBox("攝氏 " & c & " 度 = 華氏 " & f & " 度。 ", 3 + 32, "溫度轉換") 

'MsgBox(r) 

If r = 2 Then 

MsgBox("程式完畢") 

Else 

MsgBox("程式完畢") 

End If 

End Sub 

End Class 

Page5


邊框變化 


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

End Sub 


Label1.BorderStyle = BorderStyle.Fixed3D 

Label1.Text = "立體邊框" 

End Sub 



Label1.Text = "單線邊框" 

End Sub 



Label1.Text = "無邊框" 

End Sub 

End Class 

按鈕的移動與縮放 




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

End Sub 


Label1.Location = New Point(Label1.Location.X + 20, 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 

Page6

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

End Sub 


Label1.BackColor = Color.Purple 

End Sub 


Label1.BackColor = Color.Blue 

End Sub 


Label1.BackColor = Color.Brown 

End Sub 

End Class 


變換表單背景 


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

PictureBox1.Click 

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

End Sub 


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

End Sub 


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

End Sub 


Me.BackgroundImage = New Bitmap("..\..\工作順利.gif") 

End Sub 


Me.BackgroundImage = Nothing 

End Sub 

End Class 

計算機 

Page7


Public Class Ex1 

Dim a, b$ 


Dim a = 1 

TextBox1.Text = TextBox1.Text & "1" 

End Sub 


Dim a = 2 


End Sub 


Dim a = 3 


End Sub 


Dim a = 4 


End Sub 


Dim a = 5 


End Sub 


Dim a = 6 


End Sub 


Dim a = 7 


End Sub 


Dim a = 8 


End Sub 


Dim a = 9 


End Sub 

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

Button10.Click 

Dim a = 0 


End Sub 



TextBox1.Text = TextBox1.Text & "." 

End Sub 



Select Case b 

Case "+" 

TextBox1.Text = Val(a) + Val(TextBox1.Text) 

Case "-" 

TextBox1.Text = Val(a) - Val(TextBox1.Text) 

Case "*" 

TextBox1.Text = Val(a) * Val(TextBox1.Text) 

Case "/" 

Page8

TextBox1.Text = Val(a) / Val(TextBox1.Text) 

End Select 

End Sub 




b = "+" 

TextBox1.Text = "" 

End Sub 




b = "-" 


End Sub 




b = "*" 


End Sub 




b = "/" 


End Sub 

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

End Sub 

End Class 


顯示按鈕時間 



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

End Sub 

End Class 

顯示編號 

Page9




Dim a$ 

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

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

End Sub 

End Class 



Dim a, b, c As Integer 

找出最大值 



End Sub 

a = Val(TextBox1.Text) 



End Sub 

b = Val(TextBox2.Text) 



End Sub 

c = Val(TextBox3.Text) 


If a > b Then 

Else 

End Sub 

End Class 

End If 

If a > c Then 

Else 

End If 

Label1.Text = "最大值" & a 

Label1.Text = "最大值" & c 

If b > c Then 

Else 

End If 

Label1.Text = "最大值" & b 

Label1.Text = "最大值" & c 

Page10


點餐計價 


Dim a, b, c, d, t As Integer 


Dim f As String 


b = Val(TextBox2.Text) 

c = Val(TextBox3.Text) 

d = Val(TextBox4.Text) 

t = 30 * a + 70 * b + 65 * c + 99 * d 

f = "= 總價" & t & "元" 

If CheckBox1.Checked Then 

t *= 0.9 

f = f & "+折扣券8折" 

End If 

If CheckBox2.Checked Then 

t *= 0.8 

f = f & "+折扣券8折" 

End If 

If RadioButton2.Checked Then 

If t < 300 Then 

t += 30 

f = f & "+運費30元" 

End If 

End If 

TextBox5.Text = t 

Label6.Text = f 

End Sub 







Label6.Text = "" 

CheckBox1.Checked = False 

CheckBox2.Checked = False 

End Sub 

End Class 

Page11



折扣計算 


Dim buy As Integer, pay As Integer 

Dim msg As String 

buy = Val(TextBox1.Text) 

If buy > 1000 Then 

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

Page12



猜數字遊戲 

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

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 

Else 

End Sub 

End Class 

End If 

MsgBox("答對了, 你共猜了 " & vCnt.Text & "次。") 

End '結束程式 

If V < ans Then 

Else 

End If 

vMin.Text = V 

vMax.Text = V 


TextBox1.SelectAll() 

選擇字體與大小 

Page13



Dim fN As String, fS As Integer, fSy 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 

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

If fs_9.Checked Then 

fS = 9 

ElseIf fs_10.Checked Then 

fS = 10 

ElseIf fs_11.Checked Then 

Else 

End If 

fS = 11 

fS = 12 

If sender.Equals(Button1) Then 

Else 

fst_b.Checked = False 

fst_i.Checked = False 

fst_del.Checked = False 

fst_und.Checked = False 

fSy = FontStyle.Regular 

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

End Class 

End If 


End If 

fS = 12 

fs_12.Checked = True 


End If 

fN = fn_new.Checked 

fn_new.Checked = True 

Label1.Font = New Font(fN, fS, fSy) 

Page14

程式碼---17/CH7/ EX1 


Dim a, b, c, d As Integer 

分數統計 


If Val(TextBox1.Text) > 100 Or Val(TextBox1.Text) < -2 Then 

Else 

MsgBox("請輸入0~100之間的分數,未輸入表示0分、輸入-1表示結束。") 


分。", 0 + 64, "結果") 

End Sub 

End Class 

End If 

If Val(TextBox1.Text) = -1 Then 

Else 

MsgBox("共" & a & "人," & b & "人及格," & c & "人不及格,平均" & Format(d / a, "#.#") & " 

End 

End If 

If Val(TextBox1.Text) < 60 Then 

Else 

End If 

c += 1 

b += 1 

d = d + Val(TextBox1.Text) 

a = a + 1 


Label3.Text = a + 1 


數字金字塔 

Page15

程式碼---17/CH7/ EX2 



For a = 1 To 15 

For b = 1 To a 

If b >= 10 Then 

Label1.Text = Label1.Text & b - 10 

Else 

Label1.Text = Label1.Text & b 

End If 

Next 

For c = a - 1 To 1 Step -1 

If c >= 10 Then 

Label1.Text = Label1.Text & c - 10 

Else 

Label1.Text = Label1.Text & c 

End If 

Next 

Label1.Text = Label1.Text & vbCrLf 

Next 

End Sub 

End Class 

程式碼---17/CH7/ Form1 


倒數字金字塔 


Dim i As Integer 

For i = 25 To 1 Step -4 

Next 

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

For i = 5 To 25 Step 4 

Next 

End Sub 

End Class 

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

Page16


蟑螂大逃竄 



Button1.Visible = False 

PictureBox1.Left = 0 - PictureBox1.Size.Width 

PictureBox1.Visible = True 

Do 

PictureBox1.Left = PictureBox1.Left + 1 

If PictureBox1.Left Mod 10 = 0 Then '每隔10點上下晃動一次 

PictureBox1.Top = PictureBox1.Top + Int(7 * Rnd()) - 3 '上下移動3點 

End If 

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

Application.DoEvents() 

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

Button1.Visible = True 

PictureBox1.Visible = False 

End Sub 


Randomize() 

End Sub 

End Class 


電子時鐘 



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

Label2.Text = Format(Now(), _ 

If(CheckBox1.Checked, "yyyy/mm/dd", "yyyy/MM/dd")) 

End Sub 

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

Label1.Text = Format(Now(), _ 

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

End Sub 

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

CheckBox2.CheckedChanged 

Timer1.Enabled = Not CheckBox2.Checked 

End Sub 

End Class 

Page17

程式碼---17/CH8/ EX1 


歌唱成績計分排名 


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

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

Dim sum(4) As Short 

Dim min, max As Short 

For i = 0 To 4 

Next 

min = 評分(i, 0) 

max = 評分(i, 0) 

sum(i) = 評分(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 評分(i, j) < min Then 

End If 

min = 評分(i, j) 

If 評分(i, j) > max Then 

End If 

max = 評分(i, j) 

sum(i) = sum(i) + 評分(i, j) 

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

Array.Sort(sum, 姓名) 


Next 

End Sub 

End Class 

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

Page18

程式碼---17/CH8/ EX2 

上下移動按鈕 



Dim i% 

If ListBox1.SelectedIndex = 0 Then '已經移到最上面了(第0筆) 

ListBox1.Items.Insert(ListBox1.Items.Count, ListBox1.Items(0)) '新增在最後一筆 

ListBox1.Items.RemoveAt(0) '刪掉第一筆 

ListBox1.SelectedIndex = ListBox1.Items.Count - 1 

Else 

i = ListBox1.SelectedIndex 

If i = -1 Then 

MsgBox("尚未選取資料項目!", , "注意") 

Else 

ListBox1.Items.Insert(i - 1, ListBox1.SelectedItem) 

ListBox1.Items.RemoveAt(ListBox1.SelectedIndex()) 

ListBox1.SelectedIndex = i - 1 

End If 

End If 

ListBox1.Text = ListBox1.SelectedIndex 

End Sub 


Dim i% 

If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then '已經移到最下面了(第n-1筆) 

ListBox1.Items.Insert(0, ListBox1.Items(ListBox1.Items.Count - 1)) '新增在最前面 

ListBox1.Items.RemoveAt(ListBox1.Items.Count - 1) '刪掉最後一筆 

ListBox1.SelectedIndex = 0 

Else 

i = ListBox1.SelectedIndex 

If i = -1 Then 

MsgBox("尚未選取資料項目!", , "注意") 

Else 

ListBox1.Items.Insert(i + 2, ListBox1.SelectedItem) 


ListBox1.SelectedIndex = i + 1 

End If 

End If 

ListBox1.Text = ListBox1.SelectedIndex 

End Sub 

End Class 

Page19

程式碼---17/CH8/ EX3 

餐廳排隊給號系統 



If TextBox1.Text "" Then 

ListBox1.Items.Add(Format(ListBox1.Items.Count + 1, "00#-") & TextBox1.Text) 

Else 

MsgBox("請輸入資料") 

End If 

End Sub 


'修改項目,亦即插入一筆在指定位置之前,再刪除該指定位置之資料 

If ListBox1.SelectedIndex = -1 Then 

MsgBox("尚未選取清單方塊任何一個項目", 0 + 16, "錯誤") 

Else 

ListBox1.Items.Insert(ListBox1.SelectedIndex(), Mid(ListBox1.SelectedItem, 1, 3) & "-" & 

TextBox1.Text) 


End If 

End Sub 



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

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

Next 

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

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

Next 

End Sub 



For i = 0 To ListBox2.SelectedIndices.Count - 1 


Next 



Next 

End Sub 


If Button5.Text "" Then 

ListBox2.Items.Clear() 

End If 

End Sub 

End Class 

Page20


成績資料 



Dim 總分 As Double '可能含小數,所以用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 


主控台輸入資料 

Module Form1 

Sub Main() 

Dim 資料, 陣列(0) As String 

Dim 筆數 As Integer = 0 

Do 

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

資料 = Console.ReadLine() 

If 資料 = "" Then Exit Do 

ReDim Preserve 陣列(筆數) 

陣列(筆數) = 資料 

筆數 = 筆數 + 1 

Loop 

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

Array.Sort(陣列) 

For i = 1 To 筆數 

Console.WriteLine(陣列) 

Next 

Console.ReadLine() 

End Sub 

End Module 

Page21


主控台輸入數值資料 

Module Form2 

Sub main() 

Dim X(4), i As Integer 


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 

Label3.Text = "查無此人!" 

Page22



Else 

Label3.Text = 數學(索引值) 

Label5.Text = 國文(索引值) 

Label7.Text = 英文(索引值) 

End If 


Dim 索引 As Integer = Array.IndexOf(數學, 100) 

Dim math100$, name$ 

While 索引 >= 0 

name = 姓名(索引) 

math100 = math100 + " " + name 

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

End While 

MsgBox(math100, , "數學100分者") 

'Dim i As Integer = Array.IndexOf(數學, 100) 

'i = Array.IndexOf(數學, 100) 

'While i >= 0 

'姓名 = 姓名(i) 

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

'End While 

'MsgBox(姓名(i) & ": 100") 

End Sub 

End Class 


綜合所得淨額 



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 

If 所得淨額


Imports System.Drawing 


字型設定程式 


End Sub 

End Class 

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 "粗斜體" 

End Select 

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

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

調換程式 

Page24







Next 



Next 

End Sub 





Next 



Next 

End Sub 

End Class 


字型設計 




ComboBox2.Text = "標準" 

End Sub 


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

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

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

Dim 字型名稱 As String = ComboBox1.Text 

Dim 字型樣式 As FontStyle 

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

Select Case ComboBox2.Text 

Case "標準" 

字型樣式 = FontStyle.Regular 

Case "粗體" 

字型樣式 = FontStyle.Bold 

Case "斜體" 

字型樣式 = FontStyle.Italic 

Case "粗斜體" 

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

End Select 

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

End Sub 

End Class 

Page25

程式碼---17/CH9/ EX1 



比大小 


End Sub 

End Class 

Randomize() 

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

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

Select Case Val(Label1.Text) 

Case 1 

Case 2 

Case 3 

Case 4 

Case 5 

Case 6 

End Select 

PictureBox1.Image = New Bitmap("..\..\1.jpg") 






Select Case Val(Label2.Text) 

Case 1 

Case 2 

Case 3 

Case 4 

Case 5 

Case 6 

End Select 







Page26

程式碼---17/CH9/ EX2 

重力加速度 


Function freefall(ByVal t) As Single 

Return 1 / 2 * 9.8 * t ^ 2 

End Function 


Label4.Text = freefall((Val(MaskedTextBox1.Text))) 

End Sub 

End Class 

程式碼---17/CH9/ Module1 

Module Module1 

Sub main() 

fact(5) 

End Sub 

Sub fact(ByVal n As Integer) 

Dim total As Double = 1 

For i = 2 To n 

total *= i 

Next 

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

End Sub 

End Module 

計算階乘 

計算速度 

Page27



Sub finalv(ByVal seconds As Single, Optional ByVal v0 As Single = 0, _ 

Optional ByVal accelaration As Single = 9.8) 

Console.WriteLine("初速" & v0 & ", 加速度" & accelaration & ", 經" & seconds & "秒後,") 

Dim velocity = v0 + accelaration * seconds 

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

End Sub 

Sub main() 

finalv(10, 15, 3) 

Console.WriteLine("_ _ _ _ _ _ ") 

finalv(10, 20) 

Console.WriteLine("_ _ _ _ _ _") 

finalv(10) 

End Sub 

End Module 



Sub doublearrayvalue(ByVal b() As Integer) 

For i = 0 To b.Length - 1 

b(i) *= 2 

Next 

End Sub 

Sub main() 

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

doublearrayvalue(a) 

For i = 0 To a.Length - 1 

Console.WriteLine(a(i)) 

Next 

End Sub 

End Module 

整數陣列 

開獎號碼 

Page28




Dim draw(4) As Integer 

Dim lucky As Integer 

Randomize() 


Next 

End Sub 

End Class 

While draw(i) = 0 

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

If Array.IndexOf(draw, lucky) = -1 Then 

End If 

End While 

draw(i) = lucky 

Label1.Text = draw(0) 





Button1.Text = "再試一次" 



遞回 


End Sub 

Dim a% 


Label1.Text = fac(a) 

Function fac(ByVal i As Integer) As Long 

If i


圓盤張數 


Dim number As Integer 

Sub main() 

Dim n As Integer = 0 

number = 0 

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

n = Console.ReadLine() 

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


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 

英文字母大寫、千分位符號、滑鼠移入變白色 



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

Handles TextBox1.KeyPress 

Select Case e.KeyChar 

Case "a" To "z" 

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

Page30

e.Handled = True 

End Select 

End Sub 

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

Me.BackColor = Color.White 

End Sub 

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

Me.BackColor = SystemColors.Control 

End Sub 


Dim a, c As String 

Dim m As Integer 


If Len(a) > 3 Then 

If Len(a) Mod 3 0 Then 

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

For m = Len(a) Mod 3 + 1 To Len(a) Step 3 

c = c + "," + Mid(a, m, 3) 

Next 

Else 

For m = 1 To Len(a) Step 3 

Next 

End If 

End If 

TextBox2.Text = c 

End Sub 

End Class 

程式碼---17/CH11/ EX1 

畫圖 


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

Me.Paint 

Dim g = e.Graphics 

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

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

End Sub 


Dim g = Me.CreateGraphics 

Dim a% 

Refresh() 

a = Val(TextBox1.Text) * 2 

g.FillEllipse(Brushes.Black, 200, 10, a, a) 

If RadioButton1.Checked = True Then 

g.FillEllipse(Brushes.Purple, 200, 10, a, a) 

Page31

ElseIf RadioButton2.Checked = True Then 

g.FillEllipse(Brushes.SkyBlue, 200, 10, a, a) 


g.FillEllipse(Brushes.LightGreen, 200, 10, a, a) 


g.FillEllipse(Brushes.Pink, 200, 10, a, a) 

End If 

g.Dispose() 

End Sub 

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

Button1.SizeChanged 

Dim a As Integer 


End Sub 

End Class 

程式碼---17/CH11/ EX2 

播放音樂 



'AxWindowsMediaPlayer1.settings.autoStart = False 

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

HScrollBar1.Value = Me.AxWindowsMediaPlayer1.settings.volume 

Me.Timer1.Enabled = True 

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 

Page32


AxWindowsMediaPlayer1.fullScreen = True 

End Sub 

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

AxWindowsMediaPlayer1.Enter 

Select Case AxWindowsMediaPlayer1.playState 

Case WMPLib.WMPPlayState.wmppsPlaying 

Button1.Enabled = False 

Button2.Enabled = True 




Case WMPLib.WMPPlayState.wmppsPaused 






Case WMPLib.WMPPlayState.wmppsStopped 






'Case WMPLib.WMPPlayState.wmppsReady 

' Button2.Enabled = False 



'Button5.Enabled = False 

End Select 

End Sub 

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

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

Me.AxWindowsMediaPlayer1.settings.volume = HScrollBar1.Value 

End Sub 

End Class 


繪圖 


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

Me.Paint 


g.DrawRectangle(Pens.DarkBlue, 10, 10, 20, 50) 

Dim bigpen = New Pen(Color.Pink, 3) 

Page33

g.DrawRectangle(bigpen, 50, 10, 40, 50) 

Dim biggerpen = New Pen(Color.Purple, 9) 

g.DrawRectangle(biggerpen, 100, 10, 30, 50) 

g.DrawLine(bigpen, 30, 90, 90, 160) 

g.DrawLine(biggerpen, 100, 80, 40, 150) 

Dim p1 = New Point(250, 250) 





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





g.DrawRectangle(Pens.Green, 25, 250, 200, 100) 

g.DrawRectangle(Pens.Green, 25, 250, 200, 100) 

g.FillEllipse(Brushes.Orange, 25, 250, 200, 100) 




g.DrawLine(Pens.MediumBlue, p6, p7) 



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) 

Dim rect = New Rectangle(i * width + index, j * height + index, size, size) 

e.Graphics.FillEllipse(mybrushes(index), rect) 

Next 

Next 

End Sub 

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

Me.Invalidate() 

End Sub 

End Class 

Page34


圖片旋轉 


Dim img As Image 


Try 

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

Catch ex As Exception 

MsgBox(ex.Message) 

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 

End Class 

長度、重量轉換 

Page35

程式碼---17/CH12/ EX1 


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

ToolStripButton1.Click 

Label1.ForeColor = Color.Navy 





End Sub 



Label1.ForeColor = Color.Green 





End Sub 



Label1.ForeColor = Color.CornflowerBlue 





End Sub 

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

ToolStripMenuItem2.Click 

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





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

End Sub 









End Sub 









End Sub 






Page36




End Sub 









End Sub 

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

Handles 公尺轉英呎ToolStripMenuItem.Click 

Label4.Text = Val(TextBox1.Text) 

Label6.Text = Val(TextBox1.Text) * 3.28084 

End Sub 

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

Handles 英呎轉公尺ToolStripMenuItem.Click 


Label4.Text = Val(TextBox1.Text) / 3.28084 

End Sub 

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

Handles 公斤轉英磅ToolStripMenuItem.Click 


Label11.Text = Val(TextBox1.Text) * 2.20462 

End Sub 

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

Handles 英磅轉公斤ToolStripMenuItem.Click 


Label9.Text = Val(TextBox1.Text) / 2.20462 

End Sub 

End Class 


控制字型樣式、大小 


Dim x% 

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 

Page37

縮小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 



x = 200 


ToolStripMenuItem3.Checked = False 


End Sub 



x = 300 




End Sub 



x = 400 




End Sub 


Me.Paint 


g.Clear(Me.BackColor) 

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

End Sub 

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

Handles PurpleToolStripMenuItem.Click 

Me.BackColor = Color.Purple 

End Sub 

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

BlueToolStripMenuItem.Click 

Me.BackColor = Color.SkyBlue 

End Sub 

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

GreenToolStripMenuItem.Click 

Me.BackColor = Color.Green 

End Sub 

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

PinkToolStripMenuItem.Click 

Me.BackColor = Color.Pink 

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 

Page38

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 




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 



Label1.ForeColor = Color.PaleGreen 

End Sub 



Label1.ForeColor = Color.LightSalmon 

End Sub 



Label1.ForeColor = Color.LightCyan 

End Sub 

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

ToolStripLabel1.Click 

Shell("c:\windows\notepad.exe", AppWinStyle.NormalFocus) 

End Sub 

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

ToolStripLabel2.Click 

Shell("c:\windows\system32\calc.exe", AppWinStyle.NormalFocus) 

End Sub 

End Class 

平均分數程式 

Page39

程式碼---17/CH13/ EX1 


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

Dim MenuItems As New ArrayList 


Try 

Dim MenuReader = My.Computer.FileSystem.OpenTextFieldParser(MenuFilepath, ",") 

While Not MenuReader.EndOfData 

Dim onerow() = MenuReader.ReadFields() 

MenuItems.Add(onerow) 

ListBox1.Items.Add(onerow(0) & "- " & onerow(1) & "分" & ", " & onerow(2) & "分") 

End While 

MenuReader.Close() 

Calc() 



End Try 

End Sub 

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

Handles ListBox1.SelectedIndexChanged 

MsgBox(ListBox1.SelectedIndex) 

If ListBox1.SelectedIndex > -1 Then 

TextBox1.Text = MenuItems(ListBox1.SelectedIndex)(0) 



End If 

End Sub 

Sub Calc() 

Dim i, eng_sum, math_sum As Integer 

For Each item In MenuItems 'ArrayList一次就是讀一列 

eng_sum += item(1) 

math_sum += item(2) 

i += 1 

Next 

Label6.Text = Format(eng_sum / i, "#.##") 

Label7.Text = Format(math_sum / i, "#.##") 

End Sub 


MenuItems.RemoveAt(ListBox1.SelectedIndex) 

ListBox1.Items.RemoveAt(ListBox1.SelectedIndex) 




Calc() 

End Sub 


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

Dim newitem() = {TextBox1.Text, TextBox2.Text, TextBox3.Text} 

MenuItems.Add(newitem) 

ListBox1.Items.Add(TextBox1.Text & " : 英文 " & TextBox2.Text & "分,數學 " & TextBox3.Text & " 

分") 

Calc() 

Else 

MsgBox("輸入錯誤!") 

End If 

End Sub 


MenuItems(ListBox1.SelectedIndex)(0) = TextBox1.Text 

Page40



ListBox1.Items(ListBox1.SelectedIndex) = MenuItems(ListBox1.SelectedIndex)(0) & " : 英文 " & 

MenuItems(ListBox1.SelectedIndex)(1) & "分,數學 " & MenuItems(ListBox1.SelectedIndex)(2) & "分" 

Calc() 

End Sub 


Try 

Dim menuwriter = My.Computer.FileSystem.OpenTextFileWriter(MenuFilepath, False) 

For Each item In MenuItems 

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

Next 

menuwriter.Flush() 

menuwriter.Close() 

MsgBox("儲存成功") 



End Try 

End Sub 

End Class 


開檔、存檔功能 


Dim filechanged As Boolean = False 

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


If (filechanged = False) Then 

filechanged = True 

Me.Text &= "*" 

End If 

End Sub 

Private Sub asksave() 

If filechanged = True Then 

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

SaveFile() 

End If 

End If 

End Sub 

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

Handles 開啟檔案ToolStripMenuItem.Click 

asksave() 

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

Page41

Try 

TextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName) 

Me.Text = OpenFileDialog1.SafeFileName 

filechanged = False 



End Try 

End If 

End Sub 

Sub SaveFile() 

If Big5ToolStripMenuItem.Checked Then 

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

System.Text.Encoding.GetEncoding(950)) 

Else 

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

End If 

End Sub 

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

Handles 儲存檔案ToolStripMenuItem.Click 

SaveFile() 


Me.Text = SaveFileDialog1.FileName 

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 

SaveFile() 

End If 

End Sub 

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

Handles 關閉檔案ToolStripMenuItem.Click 

asksave() 

Me.Text = "未命名" 



End Sub 

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

離開ToolStripMenuItem.Click 

End 

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 

End Class 

Page42


文字編輯程式 


Dim writer As System.IO.StreamWriter 


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

Dim linenum As Integer = 1 

Try 

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

While reader.EndOfStream = False 

Dim singleline = reader.ReadLine() 

TextBox1.Text &= linenum.ToString("D3") & "" & singleline & vbAbort 

linenum += 1 

End While 

reader.Close() 



End Try 

End If 

End Sub 


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

Try 

'儲存檔案 

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

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



End Try 

End If 

End Sub 


Try 

'以附加方式開啟紀錄檔 

writer = My.Computer.FileSystem.OpenTextFileWriter("..\..\Logfile.log", True) 

logging("程式啟動") 


MsgBox("無法開啟紀錄檔," & ex.Message) 

Me.Close() 

End Try 

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 

Sub logging(ByVal message As String) 

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

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

End Sub 

End Class 

Page43


點菜程式 


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

Dim menuitems As New ArrayList() '儲存菜單的陣列 

Dim orderdetail As New ArrayList() 


Try 

Dim menureader = My.Computer.FileSystem.OpenTextFieldParser(menufilepath, ",") 

While Not menureader.EndOfData 

Dim onerow() = menureader.ReadFields() 

menuitems.Add(onerow) 

ListBox1.Items.Add(onerow(0) & "-" & onerow(1) & "元") 

End While 

menureader.Close() 



End Try 

End Sub 



Dim index = ListBox1.SelectedIndex 

If index >= 0 Then 

TextBox1.Text = menuitems(index)(0) 

TextBox2.Text = menuitems(index)(1) 

End If 

End Sub 


'刪除所選項目 

menuitems.RemoveAt(ListBox1.SelectedIndex) 

ListBox1.Items.RemoveAt(ListBox1.SelectedIndex) 

End Sub 


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

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

menuitems.Add(newitem) 

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

Else 

Page44

MsgBox("輸入錯誤!") 

End If 

End Sub 




menuitems(index)(0) = TextBox1.Text 

menuitems(index)(1) = TextBox2.Text 

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

End If 

End Sub 


Try 

Dim menuwriter = My.Computer.FileSystem.OpenTextFileWriter(menufilepath, False) 

For Each item In menuitems '寫入格式為「菜色名稱,價格」 

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

Next 

menuwriter.Close() 

MsgBox("儲存成功") 



End Try 

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) 

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

menuitems(index)(1) & "元") 

Else 

MsgBox("需選取菜色且數量大於0") 

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 

Page45

程式碼---17/CH13-1/ Form1 


顯示資料夾與檔案清單 


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) 

Do Until strItem = "" 

Loop 

End Sub 

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

Else 

End If 

ListBox1.Items.Add(strItem) 


strItem = Dir() '下一個 

Page46


End Sub 

display() 


End Sub 

ChDir("..") '切換到上一層目錄 

TextBox1.Text = CurDir() 


End Sub 

'TextBox1.Text = formatdir(TextBox1.Text) 

Try '錯誤處理 

MkDir(TextBox1.Text) '建立資料夾 


End Try 

MsgBox("你已建立過了喔!", 0 + 64, "") 

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 curdir$ 

curdir = TextBox1.Text & ListBox2.SelectedItem 

Try 

End Sub 

My.Computer.FileSystem.DeleteFile(curdir) 


End Try 

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

display() 


Page47


End Sub 


TextBox1.Text = TextBox1.Text & ListBox1.SelectedItem 

display() 



" 

End Sub 

End Class 


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

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

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

Case 39 

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 = "檔案屬性: 唯讀" 

Page48

程式碼---17/CH14-1/ Form1 

書籍資料庫-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 

程式碼---17/CH14-1/ Form2 

成衣資料庫 


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

Handles TshirtBindingNavigatorSaveItem.Click 

Me.Validate() 

Me.TshirtBindingSource.EndEdit() 

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

End Sub 


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

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

End Sub 

End Class 

Page49

程式碼---17/CH14-1/ Form3 





End Sub 

Me.Validate() 


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


End Sub 

End Class 

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

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


Page50

程式碼---17/CH14-1/ Form4 




End Sub 

DataGridView1.EndEdit() 

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


End Sub 

End Class 

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

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

程式碼---17/CH14-1/ Form5 





End Sub 

Me.Validate() 





End Sub 

DataGridView1.EndEdit() 

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


End Sub 

End Class 

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


Page51

程式碼---17/CH14-1/ Form6 


成衣資料庫 

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


End Sub 

End Class 

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

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

程式碼---17/CH14-1/ Form7 

查閱欄位 




Me.Validate() 


Page52


End Sub 


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


End Sub 



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

If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then 

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

End If 

End Sub 



圖片PictureBox.Image = Nothing 

End Sub 

End Class 

程式碼---17/Exam1 / Form1 


加減乘除 


End Sub 

TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text) 

Label5.Text = "+" 


End Sub 

TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text) 

Label5.Text = "-" 


End Sub 

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

Label5.Text = "╳" 


End Sub 

End Class 

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

Label5.Text = "÷" 

Page53



'清除鍵 

購買清單 


TextBox4.Text 

'輸入鍵 

End Sub 

& "金額" 

TextBox5.Text += vbCrLf & TextBox1.Text & vbTab & TextBox2.Text & vbTab & TextBox3.Text & vbTab & 


End Sub 

& "金額" 


TextBox5.Text = " 購買清單 " & Now() & vbCrLf & "品名" & vbTab & "單價" & vbTab & "數量" & vbTab 

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated 

End Sub 

TextBox5.Text = " 購買清單 " & Now() & vbCrLf & "品名" & vbTab & "單價" & vbTab & "數量" & vbTab 



End Sub 



End Sub 




End Sub 

End Class 


Page54



Dim ans 

計算 BMI 值、三角形面積 

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

ans = MsgBox("您快樂嗎?", 4 + 32, "問答題") 

If ans = 6 Then 

Else 

End Sub 

End If 

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

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

Me.Text = "計算BMI值" 

Label1.Text = "請輸入底 =" 

Label2.Text = "請輸入高 =" 

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

Page55


單數值之和 



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 


電費計算 



Dim a%, fee% 

a = CInt(Val(TextBox1.Text)) 

If a > 330 Then 

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

Else 


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

Else 


fee = 2.1 * a 

Else 

fee = 2.1 * 40 

End If 

End If 

End If 

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

End Sub 

End Class 

Page56


費氏數列 



If Val(TextBox1.Text) < 1 Then 

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


Else 

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

End If 

End Sub 

Function Fib(ByVal K As Integer) As Decimal 

If K

Dim a, b As Integer 

a = Int(Rnd() * 6 + 1) 

b = Int(Rnd() * 6 + 1) 

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

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

If (a + b < 7 And RadioButton1.Checked = True) Or (a + b > 6 And RadioButton2.Checked = True) Then 

win += 1 

MsgBox("你贏了,共贏了" & win & "次,輸了" & lost & "次", 48 + 0, "^_^") 

Else 

lost += 1 

MsgBox("你輸了,共贏了" & win & "次,輸了" & lost & "次", 16 + 0, ">_


Imports System.Drawing.Drawing2D 



Me.Paint 


g.FillEllipse(Brushes.Black, 0, 0, Me.ClientSize.Width, Me.ClientSize.Height) 

g.FillEllipse(Brushes.White, 2, 2, Me.ClientSize.Width - 4, Me.ClientSize.Height - 4) 

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) 

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

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

End Sub 

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


End Sub 

End Class 


MP3 播放器 



Select Case ListBox1.SelectedIndex 

Case 0 

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


Case 1 



Case 2 



Case Else 

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

End Select 

End Sub 


AxWindowsMediaPlayer1.Ctlcontrols.stop() 

End Sub 


Label1.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString 

End Sub 

End Class 

Page59



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

Dim g As Graphics 

Dim brush As SolidBrush 

螢幕保護程式 


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 

brush = New SolidBrush(Color.LightSalmon) 

Page60

Case 2 

Case 3 

Case 4 

Case 5 

Case 6 

Case 7 

Case 8 

Case 9 

End Select 

brush = New SolidBrush(Color.Purple) 

brush = New SolidBrush(Color.Red) 

brush = New SolidBrush(Color.PeachPuff) 

brush = New SolidBrush(Color.DarkGreen) 

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 

Page61


顯示資料夾內的子資料夾 


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


TextBox1.SelectionStart = Len(TextBox1.Text) 


End Sub 

Function formatDir(ByVal strDir As String) 

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

strDir &= "\" 

End If 

Return strDir 

End Function 

Sub Display() 

ChDir(TextBox1.Text) 

Dim strItem$ 



strItem = Dir("*.*", 18) 

Do Until strItem = "" 

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


Else 


End If 

strItem = Dir() 

Loop 

End Sub 


Try 

MkDir(TextBox1.Text) 


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

End Try 

End Sub 


TextBox1.Text = formatDir(TextBox1.Text) 

Dim CurDir$ 

CurDir = TextBox1.Text & ListBox1.SelectedItem 

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

Display() 

Page62

End Sub 


Display() 

End Sub 



Dim CurFile$ 

CurFile = TextBox1.Text & ListBox2.SelectedItem 

Try 

My.Computer.FileSystem.DeleteFile(CurFile) 


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

End Try 

Display() 

End Sub 


ChDir("..") 


Display() 

End Sub 

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

ListBox1.DoubleClick 


TextBox1.Text = TextBox1.Text & ListBox1.SelectedItem 

Display() 

End Sub 




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

" 

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

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

Case 39 

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

Case 36 

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

Case 35 

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

Case 34 

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

Case 32 

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

Case 7 

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

Case 6 

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

Case 5 

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

Case 4 

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

Case 3 

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

Case 2 

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

Case 1 

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

End Select 

End Sub 

End Class 

Page63



Dim filename As String = "note.txt" 

便利貼 



End Sub 

FileOpen(1, filename, OpenMode.Binary) 

FilePut(1, TextBox1.Text) 

FileClose(1) 


End Sub 

Dim len% 

FileOpen(1, filename, OpenMode.Binary) 

len = LOF(1) 

Dim content As New String("", len) 

FileGet(1, 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 

Page64

互質的數、直角三角形、數字相加、身分證號碼 




Dim i%, n% 


n = Val(TextBox1.Text) 

For i = 2 To n - 1 

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

Label5.Text &= i & " " 

End If 

Next 

End Sub 

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

If b = 0 Then 

Return a 

Else 

Return gcd(b, a Mod b) 

End If 

End Function 


Dim i%, j%, n% 


n = Val(TextBox2.Text) 

For i = 1 To n 

For j = 1 To i 

Label6.Text &= j 

Next 

Label6.Text &= vbCrLf 

Next 

End Sub 


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

Else 

total = total + Val(n) 

n = "" 

End If 

Next i 

total = total + Val(n) 

Label7.Text = total 

End Sub 


Dim n, m As Integer 

Dim s As String 

Select Case Asc(Mid(TextBox4.Text, 1, 1)) 

Case 65 To 72 

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

Case 73 

n = 34 

Case 74 To 78 


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 


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 

Page66

林欣怡

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

Delete template?

Save as template?