從零開始學習 VB.NET 變數宣告、資料型別、運算子與運算式教學

更新於 2025/03/17發佈於 2025/03/17閱讀時間約 9 分鐘

目標

理解 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