Visual Basic语法基础与编程环境配置

Visual Basic 语法基础

变量与数据类型

数据类型
- 数值类型
  - 整数类型：Visual Basic 中有多种整数类型，如 Byte（无符号 8 位整数，范围是 0 到 255）、Integer（16 位有符号整数，范围是 - 32,768 到 32,767）和 Long（32 位有符号整数，范围是 - 2,147,483,648 到 2,147,483,647）。在处理较小范围的整数且需要节省内存时，Byte 类型很有用，例如表示颜色分量（因为颜色分量通常在 0 - 255 之间）。而 Integer 适用于一般的整数运算，当需要处理更大范围的整数时则使用 Long。
  - 浮点数类型：Single（单精度浮点数，4 字节）和 Double（双精度浮点数，8 字节）用于表示带有小数部分的数值。Single 适用于一般精度要求的计算，其精度大约为 7 位有效数字。Double 则用于更高精度的计算，精度大约为 15 位有效数字。例如，在科学计算和金融计算中，如果需要高精度的小数运算，Double 类型更为合适。
- 字符串类型：String 类型用于存储文本数据。它可以是定长字符串，也可以是变长字符串。定长字符串在声明时指定长度，例如 Dim strFixed As String * 10，表示 strFixed 是一个长度为 10 个字符的定长字符串。如果赋值的字符串长度小于 10，Visual Basic 会用空格填充；如果大于 10，则会截断超出部分。变长字符串声明时不指定长度，如 Dim strVariable As String，它可以根据实际存储的字符串长度动态分配内存。
- 布尔类型：Boolean 类型只有两个值：True 和 False。常用于逻辑判断，例如在条件语句 If...Then...Else 中，判断条件的结果通常是一个 Boolean 值。
变量声明
- 在 Visual Basic 中，变量必须先声明后使用。声明变量使用 Dim 关键字，语法为 Dim variableName As dataType。例如：

Dim num As Integer
Dim strMessage As String
Dim isDone As Boolean

也可以在一行中声明多个变量，但每个变量都需要指定数据类型，如 Dim num1 As Integer, num2 As Double, str As String。
变量的作用域决定了变量在程序中的可见性和生命周期。在过程（如 Sub 或 Function）内部声明的变量是局部变量，其作用域仅限于该过程。在模块级别（模块的声明部分）声明的变量是模块级变量，其作用域是整个模块。在窗体级别声明的变量类似模块级变量，对该窗体内的所有过程可见。例如：

'模块级变量声明
Dim moduleVar As Integer

Public Class Form1
    '窗体级变量声明
    Dim formVar As String

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '局部变量声明
        Dim localVar As Double
    End Sub
End Class

运算符

算术运算符
- 基本算术运算符：包括 +（加法）、-（减法）、*（乘法）、/（除法）。例如：

Dim a As Integer = 5
Dim b As Integer = 3
Dim resultAdd As Integer = a + b
Dim resultSub As Integer = a - b
Dim resultMul As Integer = a * b
Dim resultDiv As Double = a / b '结果为 1.66666666666667

整除运算符 \：执行整除运算，返回商的整数部分。例如 Dim resultIntDiv As Integer = a \ b，此时 resultIntDiv 的值为 1。
取模运算符 Mod：返回除法运算的余数。例如 Dim resultMod As Integer = a Mod b，resultMod 的值为 2。

比较运算符
- 比较运算符用于比较两个值，并返回一个 Boolean 结果。常见的比较运算符有 =（等于）、<>（不等于）、<（小于）、>（大于）、<=（小于等于）、>=（大于等于）。例如：

Dim num1 As Integer = 10
Dim num2 As Integer = 20
Dim isEqual As Boolean = num1 = num2 'False
Dim isLess As Boolean = num1 < num2 'True

逻辑运算符
- And：逻辑与运算符，当两个操作数都为 True 时，结果为 True，否则为 False。例如 Dim resultAnd As Boolean = True And False，resultAnd 的值为 False。
- Or：逻辑或运算符，只要两个操作数中有一个为 True，结果就为 True。例如 Dim resultOr As Boolean = True Or False，resultOr 的值为 True。
- Not：逻辑非运算符，对操作数进行取反。例如 Dim resultNot As Boolean = Not True，resultNot 的值为 False。
字符串运算符
- &：用于连接两个字符串。例如：

Dim str1 As String = "Hello"
Dim str2 As String = " World"
Dim resultStr As String = str1 & str2 '结果为 "Hello World"

+：也可用于连接字符串，但如果其中一个操作数是数值类型，会尝试进行类型转换。如果转换失败则会出错。例如 Dim num As Integer = 10，Dim str3 As String = "Number: "，Dim resultStr2 As String = str3 + num（成功，结果为 "Number: 10"）。但如果 Dim nonNum As String = "abc"，Dim badResult As String = str3 + nonNum 会导致类型转换错误。

流程控制语句

条件语句
- If...Then...Else 语句：用于根据条件执行不同的代码块。基本形式为：

Dim num As Integer = 10
If num > 5 Then
    Console.WriteLine("The number is greater than 5")
Else
    Console.WriteLine("The number is less than or equal to 5")
End If

可以有多个 ElseIf 子句来处理更多的条件分支，例如：

Dim score As Integer = 85
If score >= 90 Then
    Console.WriteLine("A")
ElseIf score >= 80 Then
    Console.WriteLine("B")
ElseIf score >= 70 Then
    Console.WriteLine("C")
Else
    Console.WriteLine("D or below")
End If

Select Case 语句：适用于根据一个表达式的值来选择执行不同的代码块，比多个 ElseIf 更清晰。例如：

Dim day As Integer = 3
Select Case day
    Case 1
        Console.WriteLine("Monday")
    Case 2
        Console.WriteLine("Tuesday")
    Case 3
        Console.WriteLine("Wednesday")
    Case Else
        Console.WriteLine("Other day")
End Select

循环语句
- For...Next 循环：用于执行指定次数的循环。例如，计算 1 到 10 的和：

Dim sum As Integer = 0
For i As Integer = 1 To 10
    sum = sum + i
Next i
Console.WriteLine("The sum is: " & sum)

Do...Loop 循环：有两种形式，先判断条件再执行循环体（Do While...Loop）和先执行循环体再判断条件（Do...Loop While）。例如，使用 Do While 循环计算 1 到 10 的和：

Dim sum2 As Integer = 0
Dim j As Integer = 1
Do While j <= 10
    sum2 = sum2 + j
    j = j + 1
Loop
Console.WriteLine("The sum is: " & sum2)

使用 Do...Loop While 循环计算 1 到 10 的和：

Dim sum3 As Integer = 0
Dim k As Integer = 1
Do
    sum3 = sum3 + k
    k = k + 1
Loop While k <= 10
Console.WriteLine("The sum is: " & sum3)

While...End While 循环：与 Do While...Loop 类似，但语法略有不同。例如：

Dim sum4 As Integer = 0
Dim m As Integer = 1
While m <= 10
    sum4 = sum4 + m
    m = m + 1
End While
Console.WriteLine("The sum is: " & sum4)

数组

一维数组
- 声明和初始化一维数组。例如，声明一个包含 5 个整数的数组：

Dim intArray(4) As Integer '声明一个包含 5 个元素（下标从 0 到 4）的整数数组
intArray(0) = 10
intArray(1) = 20
intArray(2) = 30
intArray(3) = 40
intArray(4) = 50

也可以在声明时初始化数组：

Dim strArray() As String = {"apple", "banana", "cherry"}

多维数组
- 声明二维数组，例如一个 3 行 4 列的整数数组：

Dim twoDArray(2, 3) As Integer '下标从 0 到 2（3 行），从 0 到 3（4 列）
twoDArray(0, 0) = 1
twoDArray(0, 1) = 2
'... 依次赋值

动态数组
- 动态数组在声明时不指定大小，可在运行时根据需要重新调整大小。例如：

Dim dynArray() As Integer
ReDim dynArray(4) '重新调整大小为包含 5 个元素
dynArray(0) = 100
'... 赋值操作

如果需要保留数组中的数据，可使用 ReDim Preserve。例如：

ReDim Preserve dynArray(9) '重新调整大小为包含 10 个元素，保留原数据

过程与函数

Sub 过程
- Sub 过程是执行一组语句但不返回值的代码块。定义一个简单的 Sub 过程：

Public Sub DisplayMessage()
    Console.WriteLine("This is a Sub procedure")
End Sub

调用 Sub 过程：

DisplayMessage()

带参数的 Sub 过程：

Public Sub AddNumbers(ByVal num1 As Integer, ByVal num2 As Integer)
    Dim sum As Integer = num1 + num2
    Console.WriteLine("The sum is: " & sum)
End Sub

调用带参数的 Sub 过程：

AddNumbers(5, 3)

Function 函数
- Function 函数执行一组语句并返回一个值。定义一个简单的 Function 函数：

Public Function MultiplyNumbers(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
    Dim result As Integer = num1 * num2
    Return result
End Function

调用 Function 函数：

Dim product As Integer = MultiplyNumbers(4, 6)
Console.WriteLine("The product is: " & product)

Visual Basic 编程环境配置

安装 Visual Studio Community Edition

下载安装包
- 访问微软官方网站的 Visual Studio 下载页面。在该页面中，找到 Visual Studio Community Edition 版本。这是一款免费且功能丰富的开发工具，适用于初学者和小型项目开发。点击下载按钮，根据提示选择合适的下载选项，例如选择适合你操作系统版本（32 位或 64 位）的安装包。下载完成后，得到一个可执行文件，通常命名为 vs_community.exe 之类的名称。
运行安装程序
- 双击下载的安装包，启动安装程序。安装程序会首先进行一些初始化操作，如检查系统要求和准备安装环境。之后，会弹出安装向导界面。在向导界面中，你可以选择安装位置。建议选择一个磁盘空间充足且系统性能较好的分区，例如 C:\Program Files\Microsoft Visual Studio\2022\Community 这样的路径。但如果 C 盘空间紧张，也可选择其他磁盘分区。
- 接着，选择要安装的工作负载。对于 Visual Basic 开发，需要勾选 “.NET 桌面开发” 工作负载。这个工作负载包含了开发 Visual Basic 应用程序所需的核心组件，如编译器、设计器等。此外，还可以根据个人需求勾选其他相关的工作负载，例如 “数据存储和处理” 工作负载，如果你的项目涉及到数据库操作；“通用 Windows 平台开发” 工作负载，如果要开发 UWP 应用等。选择好工作负载后，点击 “安装” 按钮。
等待安装完成
- 安装过程可能需要一些时间，具体时长取决于你的计算机性能和网络速度。在安装过程中，安装程序会显示安装进度条和各个组件的安装状态。安装完成后，会提示安装成功。此时，可以点击 “启动” 按钮启动 Visual Studio Community Edition。

创建 Visual Basic 项目

启动 Visual Studio
- 在桌面上找到 Visual Studio Community Edition 的快捷方式图标，双击打开 Visual Studio。如果是首次启动，Visual Studio 可能会进行一些配置和初始化操作，如设置默认开发环境主题、加载扩展等。这个过程可能需要几分钟时间。
新建项目
- 启动成功后，在 Visual Studio 的起始页面中，点击 “创建新项目”。这会弹出 “创建新项目” 对话框。在该对话框中，筛选器默认选择 “所有语言”，你需要在下拉菜单中选择 “Visual Basic”。然后，会列出各种可用的项目模板。
- 对于初学者，常见的项目模板有 “Windows 窗体应用(.NET Framework)”，用于开发传统的 Windows 桌面应用程序，具有图形用户界面（GUI）；“控制台应用(.NET Framework)”，适用于开发基于控制台的命令行应用程序，主要用于简单的文本输入输出和算法测试。选择你想要创建的项目模板，例如 “Windows 窗体应用(.NET Framework)”，然后点击 “下一步”。
配置项目
- 在接下来的 “配置新项目” 对话框中，为项目命名。项目名称应简洁明了且具有描述性，例如 “MyFirstVBApp”。同时，选择项目的位置，即项目文件将存储在计算机上的路径。可以点击 “浏览” 按钮选择一个合适的文件夹。此外，还可以选择项目的解决方案名称。解决方案是一个或多个项目的容器，通常情况下，项目名称和解决方案名称可以相同。配置完成后，点击 “创建” 按钮。
项目结构介绍
- 创建项目后，Visual Studio 会打开项目的开发环境。在解决方案资源管理器中，可以看到项目的结构。对于 Windows 窗体应用项目，主要包含一个或多个窗体文件（.vb 和 .designer.vb），其中 .vb 文件包含窗体的代码逻辑，.designer.vb 文件由 Visual Studio 自动生成，用于管理窗体的可视化设计元素，如按钮、文本框等控件的布局和属性设置。还有一个 My Project 文件夹，其中包含项目的属性设置，如应用程序图标、启动对象等。此外，References 文件夹用于管理项目所依赖的外部库和组件。

设置开发环境选项

代码编辑器设置
- 字体和颜色：在 Visual Studio 的菜单栏中，选择 “工具” -> “选项”。在弹出的 “选项” 对话框中，展开 “环境” 节点，选择 “字体和颜色”。在这里，可以自定义代码编辑器中各种元素的字体、字号和颜色，如关键字、注释、字符串等。例如，将关键字的颜色设置为蓝色，以提高代码的可读性。
- 代码缩进：仍然在 “选项” 对话框中，展开 “文本编辑器” 节点，选择 “Basic”。在右侧的设置区域中，可以设置代码的缩进方式，如选择 “自动缩进”，这样在输入代码时，Visual Studio 会根据代码结构自动调整缩进。还可以设置缩进的大小，如 4 个空格或 1 个制表符。
调试设置
- 断点设置：在代码编辑器中，要设置断点，只需在代码行的左侧边距处单击。断点以红点标识，当程序运行到断点处时，会暂停执行，以便开发者检查变量的值、执行流程等。例如，在一个循环语句中设置断点，可以观察每次循环时变量的变化情况。
- 调试选项：在 “选项” 对话框中，展开 “调试” 节点。在这里，可以设置调试相关的选项，如是否显示调试信息、如何处理异常等。例如，选择 “启用 Just My Code”，这样调试时只关注开发者自己编写的代码，忽略系统库和框架代码，使调试过程更聚焦。
项目属性设置
- 应用程序属性：在解决方案资源管理器中，右键单击项目名称，选择 “属性”。在弹出的项目属性窗口中，选择 “应用程序” 选项卡。在这里，可以设置应用程序的图标、启动对象（即程序启动时首先执行的窗体或方法）、目标框架版本等。例如，选择一个自定义的图标文件，使应用程序在桌面上显示独特的图标。
- 编译属性：在项目属性窗口中，选择 “编译” 选项卡。可以设置编译相关的选项，如优化代码、生成调试信息等。对于发布版本，可以选择优化代码以提高程序性能；对于调试版本，可以保留调试信息以便于排查错误。

引用外部库

添加引用的方式
- 通过解决方案资源管理器：在解决方案资源管理器中，右键单击项目名称下的 “References” 文件夹，选择 “添加引用”。这会弹出 “引用管理器” 对话框。在对话框左侧，可以选择引用的类型，如 “程序集”、“COM” 等。如果要引用.NET 框架的程序集，在 “程序集” 下的 “框架” 节点中，找到并勾选需要的程序集，例如要使用数据访问功能，可勾选 System.Data 程序集。然后点击 “确定” 按钮，即可将该程序集添加到项目中。
- 通过 NuGet 包管理器：在 Visual Studio 的菜单栏中，选择 “工具” -> “NuGet 包管理器” -> “管理解决方案的 NuGet 包”。这会打开 NuGet 包管理器窗口。在窗口中，可以搜索并安装各种开源库和工具。例如，要使用 Newtonsoft.Json 库进行 JSON 数据处理，在搜索框中输入 “Newtonsoft.Json”，选择合适的版本，然后点击 “安装” 按钮。NuGet 会自动下载并将该库添加到项目中，并处理好相关的依赖关系。
使用引用的库
- 添加引用后，在代码中就可以使用库中的类、方法等。例如，添加了 System.Data 引用后，在代码中可以这样使用：

Imports System.Data
Imports System.Data.SqlClient

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim connectionString As String = "Data Source=YOUR_SERVER_NAME;Initial Catalog=YOUR_DATABASE_NAME;User ID=YOUR_USERNAME;Password=YOUR_PASSWORD"
        Using connection As New SqlConnection(connectionString)
            connection.Open()
            Dim command As New SqlCommand("SELECT * FROM YourTable", connection)
            Dim reader As SqlDataReader = command.ExecuteReader()
            While reader.Read()
                Console.WriteLine(reader.GetString(0))
            End While
        End Using
    End Sub
End Class

如果是通过 NuGet 安装的 Newtonsoft.Json 库，使用方式如下：

Imports Newtonsoft.Json

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim person As New Person()
        person.Name = "John"
        person.Age = 30
        Dim json As String = JsonConvert.SerializeObject(person)
        Console.WriteLine(json)
    End Sub
End Class

Public Class Person
    Public Property Name As String
    Public Property Age As Integer
End Class

通过以上对 Visual Basic 语法基础和编程环境配置的详细介绍，开发者可以初步掌握 Visual Basic 的开发技能，为进一步开发各种类型的应用程序奠定基础。在实际开发过程中，还需要不断实践和学习，以深入理解和运用 Visual Basic 的强大功能。