在 Visual Basic 中，变量将表示存储位置，每个变量将具有特定的数据类型，以确定变量可以保存的值类型。

Visual Basic 是一种强类型编程语言。在对变量执行任何作之前，必须使用所需的数据类型定义变量，以指示变量可以在应用程序中保存的数据类型。

1. 什么是变量

变量 =「可变的盒子」，有名字、有类型、有值，存在内存里。
VB 是强类型语言，先声明后使用（除非开启 Option Strict Off + Option Explicit Off，不推荐）。

Visual Basic 变量示例

下面是在 Visual Basic 中使用变量的示例。

Module Module1
  Sub Main()
   Dim id As Integer
   Dim name As String = "Suresh Dasari"
   Dim percentage As Double = 10.23
   Dim gender As Char = "M"c
   Dim isVerified As Boolean
   id = 10
   isVerified = True
   Console.WriteLine("Id:{0}", id)
   Console.WriteLine("Name:{0}", name)
   Console.WriteLine("Percentage:{0}", percentage)
   Console.WriteLine("Gender:{0}", gender)
   Console.WriteLine("Verfied:{0}", isVerified)
   Console.ReadLine()
  End Sub
End Module

上面的例子表明，我们定义了多个具有不同数据类型的变量，并根据我们的要求分配了值。

当我们执行上面的例子时，我们将得到如下所示的结果。

Id:10
Name:Suresh Dasari
Percentage:10.23
Gender:M
Verfied:True

这就是我们如何根据我们的要求在 Visual Basic 应用程序中声明和初始化变量。

2. 声明语法（3 种）

写法	说明	示例
Dim	过程/模块级通用	Dim age As Integer = 18
Private	模块/类内部私有	Private counter As Long
Const	常量，运行期不可改	Const PI As Double = 3.1415926

Dim [Variable Name] As [Data Type]
Dim [Variable Name] As [Data Type] = [Value]

新版支持一次多变量：

Dim x, y As Integer   ' x 被推断为 Integer
Dim name As String = "VB", price As Decimal = 9.9D

3. 命名规则

1. 必须以字母或下划线开头，不能用数字或空格
2. 只能含字母、数字、下划线（汉字也行，但别用）
3. 大小写不敏感：name 与 NAME 是同一个变量
4. 禁止系统关键字：If、Integer、End 等
5. 见名知义：用 CamelCase 或下划线均可，统一即可

✅ 推荐

Dim totalScore As Integer
Dim _count As Long

❌ 错误

Dim 2ndName As String   ' 数字开头
Dim End As Boolean      ' 关键字冲突

4. 作用域与生命周期

声明位置	关键字	作用域	生命周期
过程内部	Dim	当前过程	过程结束即释放
模块/类级	Private	当前模块/类	程序结束才释放
全局	Public	整个项目	程序结束才释放
静态过程级	Static	当前过程	程序结束才释放，但值保持

Static 示例：统计按钮被点击次数

Private Sub btnCount_Click(sender As Object, e As EventArgs) Handles btnCount.Click
    Static cnt As Integer = 0   ' 只初始化 1 次
    cnt += 1
    MessageBox.Show($"已点击 {cnt} 次")
End Sub

5. 类型推断 + 初始化

只要打开 Option Infer On（默认开启），就可让编译器自动推断：

Dim price = 9.9        ' 推断为 Double
Dim flag = True        ' 推断为 Boolean
Dim today = #2025-09-29# ' 推断为 Date

注意：

① 必须同时赋初值，否则编译错误

② 推断后类型不可变：price = "abc" 会报错

6. 只读变量（ReadOnly）

Const 要求编译期就能算出值，不能用函数；
ReadOnly 允许运行期赋值，只能赋一次：

Public Class Config
    Public ReadOnly StartTime As Date
    Sub New()
        StartTime = Date.Now   ' 构造函数里可改
    End Sub
End Class

7. 实战 1：控制台「年龄计算器」

Module AgeCalc
    Sub Main()
        Const CURRENT_YEAR As Integer = 2025
        Console.Write("请输入出生年份：")
        Dim birth As Integer
        If Not Integer.TryParse(Console.ReadLine(), birth) Then
            Console.WriteLine("输入不是整数！")
            Return
        End If


        Dim age As Integer = CURRENT_YEAR - birth
        Console.WriteLine($"到 {CURRENT_YEAR} 年，你的年龄是 {age} 岁")
        Console.ReadKey()
    End Sub
End Module

运行示例：

请输入出生年份：2005
到 2025 年，你的年龄是 20 岁

8. 小结口诀

变量先声明，类型要写清；

过程 Dim 临时的，模块 Private 长寿命；

常量用 Const，运行不改 ReadOnly；

命名见意思，下划线 Camel 随你意！