第 4 章 表單與程式設計

新觀念的 Visual Basic.NET 教本 第 4 章表單的程式設計

4-1 表單與程式模組

上機 : 用按鈕啟動程式 前言 : 在日常生活中, 當我們按下電器用品的開關按鈕, 電器用品裡面設計好的電路就會開始運作, 完成預定的工作 ; 在表單的程式設計中, 我們也經常把設計好的程式放在按鈕裡面, 而藉著按下按鈕來達到執行程式的目的 1. 建立一 Windows 應用程式專案, 專案名稱定為 ch0401 2. 在表單上佈置一個 Button, 並將其 Text 屬性設定為 計算標準體重, 如圖 -1 3. 以滑鼠雙按 計算標準體重 鈕, 接著會出現 Form1.vb 程式模組視窗, 如圖 -2

上機 : 用按鈕啟動程式 4. 在 Private Sub Button1_Click( ) 與 End Sub 之間輸入程式, 如以下粗體字部分 : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs.EventArgs) Handles Button1.Click Dim H, W H = 175 W = H - 105 MsgBox(" 標準體重 =" & W) End Sub

上機 : 用按鈕啟動程式 5. 按下 F5 啟動程式, 啟動之後還不會馬上執行到剛才輸入的程式, 待出現表單視窗時, 按下表單上的 計算標準體重 鈕才會執行剛才輸入的程式, 結果會出現以下訊息窗, 欲關閉此一訊息窗請按下 確定 鈕 接著試按幾次 計算標準體重 鈕, 結果總會重新執行程式, 並顯示以上訊息窗, 而程式的執行過程如圖 -4 6. 結束程式 :( 方法一 ) 先按下訊息窗的 確定 鈕, 再按下執行之表單的關閉鈕 ( 方法二 ) 選取 VB.NET 功能表的 偵錯 >> 停止偵錯

執行之表單 vs. 設計之表單 設計之表單 執行之表單 有格點 沒有格點

表單視窗與程式模組的切換 1. 選取 Form1.vb.vb[ 設計 ] 頁籤切換到表單視窗, 或選取 Form1.vb 頁籤切換到程式模組 如圖 -6 2. 選取功能表的 視窗 >>Form1 Form1.vb[ 設計 ] 切換到表單視窗, 或選取功能表的 視窗 >>Form1 Form1.vb 切換到程式模組 3. 在方案總管視窗中 ( 註 : 方案總管位於螢幕右上方 ),, 先選取 Form1.vb.vb, 然後按下圖 -7 之按鈕

可輸入資料的 InputBox 格式 : 變數 = InputBox( 提示訊息 ) 實例及其運作過程 : H = InputBox(" 請輸入身高 ") 2 傳回輸入的內容 1. 開出輸入窗 在這個輸入欄位內輸入資料, 其輸入之內容將會指定給變數 H 提示訊息會顯示在這裡

上機 : 修改計算標準體重程式 1. 開啟剛才所完成的 ch0401 專案 2. 利用方案總管開啟 Form1.vb 程式模組, 然後將 H = 175 敘述改成 H = InputBox(" 請輸入身高 "),, 使成為 : Private Sub Button1_Click(...) Handles Button1.Clic Dim H, W H = InputBox(" 請輸入身高 ") W = H - 105 MsgBox(" 標準體重 =" & W) End Sub

上機 : 修改計算標準體重程式 3. 執行程式, 然後按下 計算標準體重 鈕, 程式的執行過程如圖 -9 當我們要計算不同身高的標準體重, 只要重新按下 計算標準體重 鈕, 並且在輸入窗中輸入新的身高即可, 不必再修改程式

4-2 設定物件屬性的敘述

上機 : 設定物件屬性的敘述 目的 : 在表單上佈置兩個標籤元件, 其中一個使用屬性視窗設定屬性, 另一個使用程式設定屬性 1. 建立一 Windows 應用程式專案, 專案名稱定為 ch0403 2. 在表單上佈置兩個 Label 及三個 Button 控制元件, 如圖 -10 其中 Label2 應設定以下屬性 : 屬性 Text BorderStyle AutoSize 屬性值 Visual Basic.NET Fixed3D TRUE

上機 : 設定物件屬性的敘述 3. 雙按第一個按鈕 (Button1) Button1), 調出程式模組, 然後在 Private Sub Button1_Click 與 End Sub 之間輸入以下程式 : Private Sub Button1_Click(...) Handles Button1.Click Label1.Text = Visual Basic.NET End Sub 以上程式輸入到 Label1. 時, 會出現一快顯功能表, 列出所有 Label1 物件的所有屬性, 接著輸入到 Label1.Te 時,Text, 屬性會變成被選取的, 此時只要按下 Tab 鍵就可以完成 Label1.Text 的輸入, 如圖 -11,, 接著再輸入 = "Visual" Basic.NET" 即完成輸入

上機 : 設定物件屬性的敘述 4. 切換到表單視窗, 然後仿照步驟 3 方法, 在 Button2 按鈕之中輸入以下程式 : Private Sub Button2_Click(...) Handles Button2.Click Label1.BorderStyle = BorderStyle.Fixed3D End Sub 以上程式輸入到 Label1.BorderStyle = 時, 會出現快顯功能表供我們選取 BorderStyle 的屬性值, 此時只要選取 BorderStyle.Fixed3D 即可完成輸入, 如圖 - 12

上機 : 設定物件屬性的敘述 5. 切換到表單視窗, 然後仿照步驟 3 的方法, 在 Button3 按鈕之中輸入以下程式 : Private Sub Button3_Click(...) Handles Button3.Click Label1.AutoSize = True End Sub 6. 執行程式, 然後依序按下 Button1 Button2 Button3 按鈕, 結果變化如圖 -13 最後 Label1 的屬性與我們利用屬性視窗所設定出來的 Label2 完全相同

利用屬性視窗設定屬性的過程 1. 選取欲設定的物件 2. 選取欲設定的屬性 3. 設定屬性值

設定物件屬性的三個關鍵 1. 物件名 2. 屬性名 3. 屬性值 Label1 Text = "Visual Basic.NET" 敘述中的. 在功能上就跟國語的 " 的 " 一樣, 例如前面這個敘述可以讀成 : 將 Label1 的 Text 屬性設定成 "Visual Basic.NET"

屬性設定 直接選取型 選取 屬性視窗的設定方法 : 按下下拉按鈕, 即可選取該屬性的屬性值, 如上圖 撰寫程式時, 我們只要輸入了 物件. 屬性 =, VB.NET 也會自動顯示快顯功能表供我們選取該屬性的屬性值, 如下圖 : 選取

Location 及 Size 屬性 Location 及 Size 屬性可用來設定控制元件的位置 (X 座標及 Y 座標 ) 及大小 ( 寬度及高度 ),, 設定的方法如下 : 物件名.Location = New Point(X 座標, Y 座標 ) 物件名.Size = New Size( 寬度, 高度 ) 例如將 PictureBox1 的位置移到 (10, 50) 大小改成 (200, 80) 的敘述如下 : PictureBox1.Location = New Point(10, 50) PictureBox1.Size = New Size(200, 80)

上機 : 可移動圖片位置的程式可 功能 : 圖片左移 10 點 功能 : 圖片上移 10 點 功能 : 圖片右移 10 點 功能 : 圖片下移 10 點

上機 : 可移動圖片位置的程式可 1. 建立一 Windows 應用程式專案, 專案名稱定為 ch0404 2. 在表單上佈置四個 Button 及一個 PictureBox, 如圖 -19 並且設定以下屬性 : 物件 屬性 屬性值 Button1 Text 左 Button2 Text 右 Button3 Text 上 Button4 Text 下 PictureBox1 Image C:\VB 教本 \picture\logo.bmp

上機 : 可移動圖片位置的程式可 3. 在表單視窗上面, 以滑鼠雙按 Button1( 左 鈕 ) 開啟 Button1_Click 程式架構, 然後輸入以下程式 : ' 左移 10 點 Private Sub Button1_Click(...) Handles Button1.Click Dim X As Integer = PictureBox1.Location.X Dim Y As Integer = PictureBox1.Location.Y PictureBox1.Location = New Point(X - 10, Y) End Sub

上機 : 可移動圖片位置的程式可 4. 仿照步驟 3,, 分別在 Button2_Click~ Button4_Click 之中撰寫以下程式 :(: 參閱次頁 ) 5. 執行程式, 試著按下上 下 左 右鈕, 結果圖片可以依所按之按鈕上移 下移 左移或右移 10 點

上機 : 可移動圖片位置的程式可 ' 右移 10 點 Private Sub Button2_Click(...) Handles Button2.Click Dim X As Integer = PictureBox1.Location.X Dim Y As Integer = PictureBox1.Location.Y PictureBox1.Location = New Point(X + 10, Y) End Sub ' 上移 10 點 Private Sub Button3_Click(...) Handles Button3.Click Dim X As Integer = PictureBox1.Location.X Dim Y As Integer = PictureBox1.Location.Y PictureBox1.Location = New Point(X, Y - 10) End Sub ' 下移 10 點 Private Sub Button4_Click(...) Handles Button4.Click Dim X As Integer = PictureBox1.Location.X Dim Y As Integer = PictureBox1.Location.Y PictureBox1.Location = New Point(X, Y + 10) End Sub

Image 屬性與圖片設定 Image 屬性可用來設定控制元件所顯示的圖片, 設定之方法如下 : 物件名.Image = New Bitmap( 圖檔 ) 假設我們想把 C: C:\VB 教本 \picture 資料夾的 Logo.bmp 圖檔設定給 PictureBox1, 那麼所撰寫的敘述如下 : PictureBox1.Image = New Bitmap( "C:\VB 教本 \picture\logo.bmp" ) New Bitmap() 可以讀取的圖檔格式包含.bmp.gif.jpg.jpeg.png.ico.wmf.emf 等

上機 : 選擇國家 的程式

上機 : 選擇國家 的程式 1. 建立一 Windows 應用程式專案, 專案名稱定為 ch0405 2. 在表單上佈置 4 個 Button 及一個 PictureBox, 如圖 - 22 並且設定好以下屬性 : 物件 屬性 屬性值 Form1 Text 請選擇您想去觀光的國家 PictureBox1 SizeMode CenterImage ( 圖片置中 ) Button1 Text 美國 TextAlign BottomCenter ( 中間下方 ) Picture C:\VB 教本 \picture\usa.gif Button2 Text 加拿大 TextAlign BottomCenter ( 中間下方 ) Picture C:\VB 教本 \picture\canada.gif Button3 Text 法國 TextAlign BottomCenter ( 中間下方 ) Picture C:\VB 教本 \picture\france.gif Button4 Text 日本 TextAlign BottomCenter ( 中間下方 ) Picture C:\VB 教本 \picture\japan.gif

上機 : 選擇國家 的程式 3. 分別在 Button1_Click~Button4_Click Button4_Click 之中撰寫以下程式 :(: 參閱次頁 ) 4. 啟動程式, 試著按下 美國 加拿大 法國 日本 按鈕, 結果 PictureBox1 的圖片就會跟著改變

上機 : 選擇國家 的程式 Private Sub Button1_Click(...) Handles Button1.Click PictureBox1.Image = New Bitmap("C:\VB 教本 \picture\usa2.g End Sub Private Sub Button2_Click(...) Handles Button2.Click PictureBox1.Image = New Bitmap("C:\VB 教本 \picture\canada End Sub Private Sub Button3_Click(...) Handles Button3.Click PictureBox1.Image = New Bitmap("C:\VB 教本 \picture\france End Sub Private Sub Button4_Click(...) Handles Button4.Click PictureBox1.Image = New Bitmap("C:\VB 教本 \picture\japan2 End Sub

BackColor 及 ForeColor 屬性 設定敘述 : 物件名.BackColor = 顏色設定值物件名.ForeColor = 顏色設定值 顏色設定值的取得方法 : SystemColors 預設的顏色 Color 預設的顏色 利用 Color.FromArgb 方法所取得的顏色設定值

SystemColors 預設的顏色 利用 System.Colors 來取得顏色設定值十分簡便, 當程式輸入到 SystemColors. 時時, VB.NET 就會自動顯示所有的顏色設定值供我們選取, 如下圖 :

Color 預設的顏色 利用 Color 來取得顏色設定值也很簡便, 當程式輸入到 Color. 時時,VB.NET, 就會自動顯示所有的顏色設定值供我們選取, 如下圖 :

Color.FromArgb 方法 格式 : 顏色設定值 顏色設定值 = Color.FromArgb.FromArgb(( R, G, B ) 其中 R G B 三個英文字母代表的是組成各種顏色變化的三原色 R( 紅 ) 黃 白 紫 G( 綠 ) 青 B( 藍 )

Color.FromArgb 方法 傳入 Color.FromArgb 方法的 R G B 三個參數, 即是紅 綠 藍三原色的強度, 而 Color.FromArgb 方法的傳回值則是組合出來的顏色設定值 參數 R G B 的強度值是 0~ 255,, 超過 255 將會產生錯誤, 使用例如下 : ' 由紅色及綠色組合的顏色, 即為黃色, 將表單的背景設定成黃色 Me.BackColor = Color.FromArgb(255, 255, 0) ' 綠色強度只有一半, 會變成橘色, 將表單的背景設定成橘色 Me.BackColor = Color.FromArgb(255, 128, 0)

Font( 字型 ) 屬性 Font 屬性包含文字的字型名稱字型名稱 大小大小 樣式樣式等副屬性, 假設有一控制元件其 Font 屬性被設定成 標楷體, 12pt, 粗斜體, 則其副屬性的值將如下 : Font 的副屬性 意義 屬性值 Name 字型名稱 標楷體 Size 大小 12 Bold 粗體 TRUE Italic 斜體 TRUE Underline 加底線 FALSE Strikeout 加刪除線 FALSE

Font 屬性的副屬性 Font 的副屬性 Label1.Font.Name 等於 " 標楷體 " Label1.Font.Size 等於 12 Label1.Font.Bold 等於 True Label1.Font.Italic 等於 True Label1.Font.Underline 等於 False Label1.Font.Strikeout 等於 False 上述的副屬性 ( 包含 Name Size Style Bold 等 ) 都是唯讀的 (ReadOnly) ' 想要將 Label1 的字型改成 新細明體 Label1.Font.Name = " 新細明體 "' 錯誤, Name 副屬性是唯讀的 ' 想要將 Label1 的字型大小改成 16 Label1.Font.Size = 16 ' 錯誤, Size 副屬性是唯讀的

改變字型的敘述 敘述格式 : 物件名.Font = New Font( 字型名稱, 大小, 樣式 ) 樣式 參數可以等於 FontStyle.Regular( 正常字體 ) 或是以下樣式的組合 : 樣式 FontStyle.Bold FontStyle.Italic FontStyle.Underline FontStyle.Strikeout 意義粗體斜體加底線加刪除線

改變字型的敘述 實例一 :(: 利用 Or 運算符號組合出粗體加底線的樣式 ) Dim Style As FontStyle Style = FontStyle.Bold Or FontStyle.Underline 實例二 :(: 將 Label1 的字型設定成 細明體, 14pt, 粗體加底線 ) Dim Style As FontStyle Style = FontStyle.Bold Or FontStyle.Underline Label1.Font = New Font( " 細明體 ", 14, Style )

上機 : 設定控制元件的字型 1. 建立一 Windows 應用程式專案, 專案名稱定為 ch0406 2. 在表單上佈置一個 Label 及七個 Button, 如圖 - 24 3. 分別在 Button1_Click~Button7_Click Button7_Click 之中撰寫程式 ( 參閱次頁 ) 4. 執行程式, 然後參考以下步驟進行測試 : 動作 結果 按下 Button1( 新細明體, 12pt) Label1 字型變成新細明體, 12pt 按下 Button2( 標楷體, 16pt) 按下 Button3( 粗體 ) 按下 Button4( 斜體 ) 按下 Button7( 正常字體 ) 按下 Button5( 加底線 ) 按下 Button6( 加刪除線 ) Label1 字型變成標楷體, 16pt Label1 變成粗體 Label1 變成粗斜體 Label1 變成正常字體, 粗斜體消失 Label1 變成加底線字體 Label1 變成加底線 加刪除線字體

上機 : 設定控制元件的字型 #01 ' 新細明體, 12pt #02 Private Sub Button1_Click(...) Handles Button1.Click #03 Label1.Font = New Font(" 新細明體 ", 12, Label1.Font.Style) #04 End Sub #05 #06 ' 標楷體, 16pt #07 Private Sub Button2_Click(...) Handles Button2.Click #08 Label1.Font = New Font(" 標楷體 ", 16, Label1.Font.Style) #09 End Sub #10 #11 ' 粗體 #12 Private Sub Button3_Click(...) Handles Button3.Click #13 Label1.Font = New Font(Label1.Font.Name, Label1.Font.Size, _ #14 Label1.Font.Style Or FontStyle.Bold) #15 End Sub #16 #17 ' 斜體 #18 Private Sub Button4_Click(...) Handles Button4.Click #19 Label1.Font = New Font(Label1.Font.Name, Label1.Font.Size, _ #20 Label1.Font.Style Or FontStyle.Italic) #21 End Sub #22

上機 : 設定控制元件的字型 #23 ' 加底線 #24 Private Sub Button5_Click(...) Handles Button5.Click #25 Label1.Font = New Font(Label1.Font.Name, Label1.Font.Size, _ #26 Label1.Font.Style Or FontStyle.Underline) #27 End Sub #28 #29 ' 加刪除線 #30 Private Sub Button6_Click(...) Handles Button6.Click #31 Label1.Font = New Font(Label1.Font.Name, Label1.Font.Size, _ #32 Label1.Font.Style Or FontStyle.Strikeout) #33 End Sub #34 #35 ' 正常字體 #36 Private Sub Button7_Click(...) Handles Button7.Click #37 Label1.Font = New Font(Label1.Font.Name, Label1.Font.Size, _ #38 FontStyle.Regular) #39 End Sub

4-3 輸入與輸出

上機 : 使用 ReadLine 讀取資料 功能 : 建立一主控台應用程式, 讓使用者輸入姓名, 然後顯示 姓名, 歡迎使用 VB.NET! 1. 建立一主控台應用程式專案, 專案名稱定為 ch0407 2. 在 Module1.vb 程式模組中輸入程式 ( 參閱次頁 ) 3. 執行程式, 首先會出現一主控台視窗並顯示 請輸入您的姓名 :, 此時輸入任意姓名 ( 例如 : 王國榮 ),, 接著會顯示 王國榮, 歡迎使用 VB.NET! 及 請按 Enter 鍵結束程式., 最後按下 Enter 鍵, 程式即告結束, 如圖 -26

上機 : 使用 ReadLine 讀取資料 Sub Main() Dim 姓名 Console.Write(" 請輸入您的姓名 : ") 姓名 = Console.ReadLine() Console.Write( 姓名 ) Console.WriteLine(", 歡迎使用 VB.NET!") Console.Write(" 請按 Enter 鍵結束程式.") Console.ReadLine() End Sub

訊息窗 (MsgBox) 抬頭 訊息內容 圖示 回覆按鈕 抬頭 : 通常用來顯示程式名稱, 也就是告訴使用者這個訊息窗是哪一個程式顯示出來的 訊息內容 : 程式想告訴使用者的訊息 圖示 : 提醒使用者注意的示意圖 回覆按鈕 : 使用者回覆這個訊息的按鈕

MsgBox, 最簡單的格式 格式 : MsgBox( 訊息內容 ) 實例 : MsgBox( 使用訊息窗! ) 訊息內容 抬頭及回覆按鈕由 VB.NET 預設

MsgBox, 設定回覆按鈕 格式 : MsgBox( 訊息內容, 回覆按鈕設定值 ) 回覆按鈕設定值及回覆按鈕的對照如下 :

MsgBox, 設定回覆按鈕 實例 : MsgBox(" 設定回覆按鈕的訊息窗!", MsgBoxStyle.OKCancel) MsgBoxStyle.OKCancel

MsgBox, 設定圖示 格式 : MsgBox( 訊息內容, 圖示設定值 ) 圖示設定值及圖示的對照如下 :

實例 : MsgBox, 設定圖示

MsgBox, 同時設定回覆按鈕及圖示 格式 : MsgBox( 訊息內容, 回覆按鈕設定值 + 圖示設定值 ) 實例 :

MsgBox, 設定抬頭 格式 : MsgBox( 訊息內容, 回覆按鈕設定值 + 圖示設定值, 抬頭 ) 或 MsgBox( 訊息內容,, 抬頭 ) 實例 : MsgBox( ( " 抬頭真好!",, " 禮義廉恥 " ) 抬頭

MsgBox, 通用格式 格式與實例 : MsgBox( 訊息內容 [, 回覆按鈕設定值 + 圖示設定值 ] [, 抬頭 ] ) 參數 1 參數 2 參數 3 MsgBox( " 訊息內容 " ) MsgBox( " 訊息內容 ", MsgBoxStyle.OKCancel ) MsgBox( " 訊息內容 ",, " 這是抬頭 " ) 如果是中間的參數被省略, 要多加一個分隔符號, ' 省略參數二 三 ' 省略參數三 ' 省略參數二

MsgBox, 顯示多行訊息 有時候我們想顯示多行的訊息內容, 則可在行與行之間插入 vbcrlf 的跳行字元, 例如 :

格式 : MsgBox 與傳回值 X = MsgBox( 訊息內容, 回覆按鈕設定值 + 圖示設定值, 抬頭 ) 傳回值 X 是由使用者按下哪一個回覆按鈕來決定, 以下是按鈕與傳回值的對照表 :

實例 : MsgBox 與傳回值

上機 : 完成以下訊息窗

上機 : 完成以下訊息窗 1. 建立一主控台應用程式專案, 專案名稱定為 ch0408 2. 在 Module1.vb 程式模組視窗中輸入以下程式 : #01 Sub Main() #02 Dim X #03 X = MsgBox( " 星期六一起看場電影好嗎?", _ #04 MsgBoxStyle.YesNo + MsgBoxStyle.Que #05 If X = MsgBoxResult.Yes Then #06 MsgBox( " 太好了!" ) #07 Else #08 MsgBox( " 啊!..." ) #09 End If #10 End Sub

輸入窗 (InputBox) 抬頭 提示訊息 輸入確認鈕 輸入取消鈕 輸入欄 抬頭 : 作用與 MsgBox 的抬頭相同 提示訊息 : 提示使用者該輸入什麼資料 輸入欄 : 輸入資料的欄位 輸入確認鈕 : 使用者在輸入欄輸入資料後, 若按下確認鈕即可將輸入欄裡面的資料傳回來 輸入取消鈕 : 如果使用者按下取消鈕, 則會傳回空字串 ( 等於 "")

InputBox 的使用 格式 : X = InputBox( 提示訊息 [, 抬頭 ] [, 輸入欄預設值 ] ) 呼叫實例 : X = InputBox( ( " 請輸入身高 " ) ' 省略後面兩個參數 X = InputBox( ( " 請輸入身高 ",, "175" ) ' 省略抬頭 X = InputBox( ( " 請輸入身高 ", " 計算標準體重 " )' 省略輸入欄預設值 呼叫敘述與 InputBox 各組成的關係, 參閱圖 -31

InputBox 的注意事項 InputBox 的傳回值是字串, 當我們利用它來輸入數值資料數值資料時 問題程式 : Dim A, B, C A = InputBox(" 請輸入 A 值 ") B = InputBox(" 請輸入 B 值 ") C = A + B 修正後的程式 : Dim A, B, C A = InputBox(" 請輸入 A 值 ") B = InputBox(" 請輸入 B 值 ") A = Val(A) ' 將 A 轉換成數值數值資料, 再指定給 A B = Val(B) ' 將 B 轉換成數值數值資料, 再指定給 B C = A + B

上機 : 計算平均分數 1. 建立一 Windows 應用程式專案, 專案名稱定為 ch0409 2. 在表單上佈置一 Button, 並且將這個 Button 的 Text 屬性設定成 計算平均分數 3. 在 Button1_Click 事件程序中撰寫以下程式 ( 參閱次頁 ) 4. 最後執行程式, 在按下 計算平均分數 鈕之後, 依序在 InputBox 之中輸入 90 80 76, 結果應得到 82

上機 : 計算平均分數 Private Sub Button1_Click(...) Handles Button2.C Dim A, B, C A = Val(InputBox(" 請輸入 [ 數學 ] 成績 ")) B = Val(InputBox(" 請輸入 [ 英文 ] 成績 ")) C = Val(InputBox(" 請輸入 [ 國文 ] 成績 ")) MsgBox( (A + B + C) / 3,, " 平均分數 ") End Sub

上機 :Label: 與資料輸出 功能 : 將計算平均分數的程式, 改用 Label 顯示平均分數 1. 開啟剛才完成的 ch0409 專案 2. 在表單上多佈置二個 Label, 如圖 -33 並設定以下屬性 : 控制元件屬性 屬性值 Label1 Text 平均分數 : Label2 Text ( 清成空白 )

上機 :Label: 與資料輸出 3. 將 Button1_Click 之中的程式修改成 : Private Sub Button1_Click(...) Handles Button2.Click Dim A, B, C A = Val(InputBox (InputBox("(" 請輸入 [ 數學 ] 成績 ")) B = Val(InputBox (InputBox("(" 請輸入 [ 英文 ] 成績 ")) C = Val(InputBox (InputBox("(" 請輸入 [ 國文 ] 成績 ")) MsgBox(" 平均 =" & (A( A + B + C) / 3,, " 計算平均分數 ") ' 刪除 Label2.Text = (A + B + C) / 3 End Sub 4. 最後執行程式, 在按下 " 計算平均分數 " 鈕之後, 依序在 InputBox 之中輸入 90 80 76, 結果平均分數會顯示在表單上

上機 :TextBox: 與資料輸入 功能 : 將計算平均分數的程式, 改用 TextBox 輸入成績, 用 Label 顯示平均分數 1. 建立一 Windows 應用程式專案, 專案名稱定為 ch0410 2. 在表單上佈置五個 Label 三個 TextBox 及一個 Button, 如圖 -36 並且設定以下屬性 : 控制元件屬性 屬性值 控制元件屬性 屬性值 Label1 Text 數學 : TextBox1 Text ( 清成空白 ) Label2 Text 英文 : TextBox2 Text ( 清成空白 ) Label3 Text 國文 : TextBox3 Text ( 清成空白 ) Label4 Text 平均 : Button1 Text 計算平均分數 Label5 Text ( 清成空白 )

上機 :TextBox: 與資料輸入 3. 在 Button1_Click 之中輸入以下程式 : Private Sub Button1_Click(...) Handles Button1.Click Dim A, B, C A = Val(TextBox1.Text) B = Val(TextBox2.Text) C = Val(TextBox3.Text) Label5.Text = (A + B + C) / 3 End Sub 4. 執行程式, 然後分別在 TextBox1~TextBox3 TextBox3 之中輸入 90 80 76,, 然後按下 計算平均分數 鈕, 結果如圖 -37