目標
- 理解 VB.NET 的變數宣告方式。
- 掌握常用資料型別及其使用場景。
- 熟悉基本運算子與運算式。
變數宣告
語法
Dim 變數名稱 As 資料型別 = 初始值
Dim：宣告變數的關鍵字。As：指定變數的資料型別。
範例
Dim age As Integer = 25
Dim name As String = "Alice"
Dim isActive As Boolean = True
注意事項
- 變數名稱需符合命名規則（不能以數字開頭，不包含空格等）。
常用資料型別
VB.NET 是強型別語言，需明確指定資料型別。以下是常用型別
型別 說明 範例
Integer 32 位元整數 Dim x As Integer = 10
Double 雙精度浮點數 Dim y As Double = 3.14
String 字串 Dim s As String = "Hello"
Boolean 布林值（True/False） Dim flag As Boolean = True
DateTime 日期與時間 Dim dt As DateTime = DateTime.Now
Decimal 高精度小數 Dim price As Decimal = 99.99D
型別轉換
- 顯式轉換
使用轉換函式（如 CInt(), CDbl(), CStr(), CDec()）。
Dim input As String = "123"
Dim number As Integer = CInt(input) ' 轉換為整數
- 隱式轉換
VB.NET 在某些情況下會自動轉換（但建議避免，容易出錯）。
Dim a As Double = 10 ' 自動將 Integer 轉為 Double
運算子
算術運算子
運算子 說明 範例
+ 加法 3 + 5 = 8
- 減法 10 - 4 = 6
* 乘法 2 * 3 = 6
/ 除法 10 / 3 = 3.333
\ 整除 10 \ 3 = 3
Mod 取餘數 10 Mod 3 = 1
^ 指數 2 ^ 3 = 8
比較運算子
運算子 說明 範例
= 等於 5 = 5 → True
<> 不等於 5 <> 3 → True
> 大於 10 > 5 → True
< 小於 10 < 5 → False
>= 大於等於 5 >= 5 → True
<= 小於等於 5 <= 3 → False
邏輯運算子
運算子 說明 範例
And 邏輯 AND True And False → False
Or 邏輯 OR True Or False → True
Not 邏輯 NOT Not True → False
AndAlso 短路 AND 若左側為 False，右側不執行
OrElse 短路 OR 若左側為 True，右側不執行
常見錯誤與解決
錯誤 1：型別不符
Dim x As Integer = "123" ' 錯誤：字串無法直接賦值給 Integer
修正：使用顯式轉換
Dim x As Integer = CInt("123")
錯誤 2：未處理 Null 值
Dim input As String = Nothing
Dim length As Integer = input.Length ' 拋出 NullReferenceException
修正：檢查是否為 Nothing
If input IsNot Nothing Then
length = input.Length
End If
實作題
- 寫一個程式，輸入兩個數字，計算並顯示它們的乘積。
- 要求：使用 Double 型別，處理非數字輸入（使用 Try...Catch）。
- 進階題：輸入攝氏溫度，轉換為華氏溫度（公式：
華氏 = 攝氏 * 9/5 + 32）。
ASP.NET Web Forms 範例
Default.aspx
<div>
<asp:Label ID="Label1" runat="server" Text="請輸入您的名字：" />
<asp:TextBox ID="TextBox1" runat="server" AutoPostBack="True"></asp:TextBox>
<asp:Button ID="Button1" runat="server" Text="送出" OnClick="Button1_Click" CssClass="btn btn-primary"/>
<br /><br />
<asp:Label ID="ResultLabel" runat="server" ForeColor="Blue" />
</div>
<div>
<asp:Label ID="Label2" runat="server" Text="請輸入攝氏溫度：" />
<asp:TextBox ID="TextBox2" runat="server" AutoPostBack="True"></asp:TextBox>
<asp:Button ID="Button2" runat="server" Text="送出" OnClick="Button2_Click" CssClass="btn btn-primary"/>
<br /><br />
<asp:Label ID="ResultLabel2" runat="server" ForeColor="Blue" />
</div>
Default.aspx.vb
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim userName As String = TextBox1.Text.Trim()
If userName <> "" Then
'ResultLabel.Text = "Hello, " & userName & "！歡迎來到 ASP.NET Web Forms！"
ResultLabel.Text = "Hello, " & Server.HtmlEncode(userName) & "！歡迎來到 ASP.NET Web Forms！"
Else
ResultLabel.Text = "請輸入您的名字！"
End If
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
Dim Celsius As String = Server.HtmlEncode(TextBox2.Text.Trim())
If Celsius <> "" Then
Try
Dim celsiusValue As Decimal = CDec(Celsius) ' 確保統一使用變數
ResultLabel2.Text = "華氏溫度為: " & (celsiusValue * 9 / 5 + 32)
Catch ex As Exception
ResultLabel2.Text = "請輸入有效的攝氏溫度！（數值）"
End Try
Else
ResultLabel2.Text = "請輸入您的輸入攝氏溫度！"
End If
End Sub
如果你有興趣進一步學習，請留言告訴我或留言與我分享~~~~
