MK
摩柯社区 - 一个极简的技术知识社区
AI 面试

Visual Basic条件语句编程技巧

2021-10-176.3k 阅读

Visual Basic条件语句基础

在Visual Basic编程中，条件语句是控制程序流程的重要组成部分。条件语句允许程序根据特定条件的真假来决定执行不同的代码块。最基本的条件语句是If...Then语句。

If...Then语句

If...Then语句用于根据条件执行一段代码。其最简单的形式为：

If condition Then
    '当条件condition为真时执行这里的代码
    statement
End If

例如，我们要判断一个整数是否大于10：

Dim num As Integer
num = 15
If num > 10 Then
    MsgBox "该数字大于10"
End If

在这个例子中，变量num的值为15，满足num > 10这个条件，所以会弹出消息框显示“该数字大于10”。

If...Then...Else语句

If...Then...Else语句在条件为真和为假时分别执行不同的代码块。语法如下：

If condition Then
    '当条件为真时执行这里的代码
    trueStatement
Else
    '当条件为假时执行这里的代码
    falseStatement
End If

例如，判断一个学生的成绩是否及格：

Dim score As Integer
score = 55
If score >= 60 Then
    MsgBox "及格"
Else
    MsgBox "不及格"
End If

这里，变量score的值为55，不满足score >= 60这个条件，所以会弹出消息框显示“不及格”。

If...Then...ElseIf语句

当需要根据多个条件进行判断时，可以使用If...Then...ElseIf语句。语法如下：

If condition1 Then
    '当条件1为真时执行这里的代码
    statement1
ElseIf condition2 Then
    '当条件1为假且条件2为真时执行这里的代码
    statement2
Else
    '当所有条件都为假时执行这里的代码
    statement3
End If

比如，根据学生的成绩给出不同的评价：

Dim score As Integer
score = 85
If score >= 90 Then
    MsgBox "优秀"
ElseIf score >= 80 Then
    MsgBox "良好"
ElseIf score >= 70 Then
    MsgBox "中等"
ElseIf score >= 60 Then
    MsgBox "及格"
Else
    MsgBox "不及格"
End If

在这个例子中，score的值为85，满足score >= 80这个条件，所以会弹出消息框显示“良好”。

条件语句的嵌套

在实际编程中，经常会遇到需要在一个条件语句中再嵌套另一个条件语句的情况。这可以让程序进行更复杂的逻辑判断。

简单嵌套示例

Dim num1 As Integer
Dim num2 As Integer
num1 = 10
num2 = 20
If num1 > 5 Then
    If num2 < 30 Then
        MsgBox "num1大于5且num2小于30"
    End If
End If

在这个例子中，首先判断num1 > 5，如果为真，再在这个条件块内判断num2 < 30。只有当两个条件都满足时，才会弹出消息框。

多层嵌套注意事项

嵌套层次过多可能会使代码变得难以阅读和维护。因此，在编写嵌套条件语句时，要尽量保持逻辑清晰。可以通过适当的缩进和添加注释来提高代码的可读性。

'判断学生成绩和性别
Dim score As Integer
Dim gender As String
score = 88
gender = "男"
If score >= 90 Then
    If gender = "男" Then
        MsgBox "男生优秀"
    Else
        MsgBox "女生优秀"
    End If
ElseIf score >= 80 Then
    If gender = "男" Then
        MsgBox "男生良好"
    Else
        MsgBox "女生良好"
    End If
End If

这里通过缩进和注释，能较清晰地看出代码的逻辑，即先根据成绩判断等级，再根据性别给出不同提示。

使用Select Case语句

Select Case语句是If...Then...ElseIf语句的一种替代形式，它在处理基于一个表达式的多种可能值的情况时更加简洁明了。

Select Case语句基本语法

Select Case testExpression
    Case expressionList1
        '当testExpression的值与expressionList1匹配时执行这里的代码
        statements1
    Case expressionList2
        '当testExpression的值与expressionList2匹配时执行这里的代码
        statements2
    Case Else
        '当testExpression的值与前面的表达式都不匹配时执行这里的代码
        statements3
End Select

例如，根据用户选择的数字显示相应的颜色名称：

Dim choice As Integer
choice = 2
Select Case choice
    Case 1
        MsgBox "红色"
    Case 2
        MsgBox "蓝色"
    Case 3
        MsgBox "绿色"
    Case Else
        MsgBox "无效选择"
End Select

这里，变量choice的值为2，所以会弹出消息框显示“蓝色”。

表达式列表的多种形式

  1. 单个值：如上述例子中的Case 1、Case 2等，直接匹配具体的值。
  2. 值的范围：可以使用To关键字来指定范围。例如：
Dim age As Integer
age = 25
Select Case age
    Case 18 To 25
        MsgBox "青年"
    Case 26 To 40
        MsgBox "中年"
    Case Else
        MsgBox "其他"
    End Select

这里，age的值为25，满足18 To 25这个范围，所以会弹出消息框显示“青年”。 3. 多个值：可以使用逗号分隔多个值。例如：

Dim day As Integer
day = 6
Select Case day
    Case 1, 2, 3, 4, 5
        MsgBox "工作日"
    Case 6, 7
        MsgBox "周末"
End Select

这里，day的值为6，满足6, 7这个值列表，所以会弹出消息框显示“周末”。

条件语句中的逻辑运算符

在条件语句中，逻辑运算符用于组合多个条件，使判断更加灵活。Visual Basic中的逻辑运算符有And、Or、Not。

And运算符

And运算符用于连接两个条件，只有当两个条件都为真时，整个表达式才为真。

Dim num1 As Integer
Dim num2 As Integer
num1 = 15
num2 = 25
If num1 > 10 And num2 < 30 Then
    MsgBox "num1大于10且num2小于30"
End If

在这个例子中，num1 > 10为真，num2 < 30也为真，所以整个And表达式为真，会弹出消息框。

Or运算符

Or运算符用于连接两个条件，只要其中一个条件为真，整个表达式就为真。

Dim num1 As Integer
Dim num2 As Integer
num1 = 5
num2 = 25
If num1 > 10 Or num2 < 30 Then
    MsgBox "num1大于10或者num2小于30"
End If

这里，num1 > 10为假，但num2 < 30为真，所以整个Or表达式为真，会弹出消息框。

Not运算符

Not运算符用于对一个条件取反。如果原条件为真，则Not后的条件为假；反之亦然。

Dim num As Integer
num = 15
If Not num > 20 Then
    MsgBox "数字不大于20"
End If

这里，num > 20为假，Not num > 20就为真，所以会弹出消息框。

条件语句与函数的结合使用

在Visual Basic编程中，条件语句常常与函数一起使用，以实现更复杂的功能。

使用自定义函数进行条件判断

'自定义函数判断一个数是否为偶数
Function IsEven(ByVal num As Integer) As Boolean
    If num Mod 2 = 0 Then
        IsEven = True
    Else
        IsEven = False
    End If
End Function

Dim testNum As Integer
testNum = 8
If IsEven(testNum) Then
    MsgBox testNum & "是偶数"
Else
    MsgBox testNum & "是奇数"
End If

在这个例子中，我们定义了一个IsEven函数来判断一个数是否为偶数。然后在If语句中调用这个函数进行条件判断。

使用内置函数结合条件语句

Visual Basic提供了许多内置函数，如Len（获取字符串长度）、UCase（将字符串转换为大写）等。我们可以结合这些函数使用条件语句。

Dim str As String
str = "hello"
If Len(str) > 5 Then
    MsgBox "字符串长度大于5"
Else
    MsgBox "字符串长度不大于5"
End If

这里使用Len函数获取字符串str的长度，然后在If语句中根据长度进行条件判断。

条件语句在实际项目中的应用场景

数据验证

在用户输入数据时，常常需要进行数据验证。例如，验证用户输入的年龄是否在合理范围内。

Dim ageInput As String
Dim age As Integer
ageInput = InputBox("请输入年龄")
If IsNumeric(ageInput) Then
    age = CInt(ageInput)
    If age >= 0 And age <= 120 Then
        MsgBox "年龄输入有效"
    Else
        MsgBox "年龄不在合理范围内"
    End If
Else
    MsgBox "输入的不是有效的数字"
End If

这里，首先使用IsNumeric函数判断用户输入是否为数字，然后再判断年龄是否在0到120之间。

菜单选择

在开发具有菜单功能的应用程序时，Select Case语句常用于根据用户的菜单选择执行相应的操作。

Dim menuChoice As Integer
menuChoice = InputBox("请选择菜单选项：1.新建 2.打开 3.保存")
Select Case menuChoice
    Case 1
        MsgBox "执行新建操作"
    Case 2
        MsgBox "执行打开操作"
    Case 3
        MsgBox "执行保存操作"
    Case Else
        MsgBox "无效选择"
End Select

通过Select Case语句，根据用户输入的菜单选项编号执行不同的操作。

游戏开发中的条件判断

在游戏开发中，条件语句用于判断游戏角色的状态、碰撞检测等。例如，判断游戏角色是否碰到了障碍物。

'假设角色的x坐标为charX，障碍物的x坐标范围为obstacleX1到obstacleX2
Dim charX As Integer
Dim obstacleX1 As Integer
Dim obstacleX2 As Integer
charX = 50
obstacleX1 = 40
obstacleX2 = 60
If charX >= obstacleX1 And charX <= obstacleX2 Then
    MsgBox "角色碰到障碍物"
End If

这里通过比较角色和障碍物的坐标，使用条件语句判断是否发生碰撞。

优化条件语句的性能

在编写条件语句时，尤其是在处理大量数据或复杂逻辑时，性能优化是很重要的。

合理安排条件顺序

对于And连接的条件，将最有可能为假的条件放在前面。对于Or连接的条件，将最有可能为真的条件放在前面。这样可以在尽可能少的判断后就得出结果，提高效率。

'假设条件1比条件2更有可能为假
If condition1 And condition2 Then
    '执行代码
End If

'假设条件1比条件2更有可能为真
If condition1 Or condition2 Then
    '执行代码
End If

避免不必要的嵌套

如前文提到，过多的嵌套会使代码复杂且性能降低。尽量将复杂的嵌套逻辑进行重构，使其更简洁。例如，可以通过逻辑运算将嵌套条件合并。

'重构前
If num1 > 10 Then
    If num2 < 20 Then
        MsgBox "满足条件"
    End If
End If
'重构后
If num1 > 10 And num2 < 20 Then
    MsgBox "满足条件"
End If

使用Select Case替代复杂的If...Then...ElseIf

在处理基于一个表达式的多种可能值时，Select Case语句通常比If...Then...ElseIf语句执行效率更高，因为它采用了类似跳转表的机制，而不是顺序判断每个条件。

条件语句与错误处理

在编程过程中，错误处理是必不可少的一部分。条件语句可以与错误处理机制结合，使程序更加健壮。

使用On Error语句结合条件判断

On Error Resume Next
Dim fileNum As Integer
fileNum = FreeFile
Open "nonexistentfile.txt" For Input As #fileNum
If Err.Number <> 0 Then
    MsgBox "文件打开失败：" & Err.Description
    Resume Next
Else
    '文件操作代码
    Close #fileNum
End If

这里使用On Error Resume Next使程序在遇到错误时继续执行下一行代码。然后通过Err.Number判断是否发生错误，如果发生错误，弹出错误提示并继续执行。

自定义错误与条件语句

在某些情况下，我们可以自定义错误并使用条件语句进行处理。

'定义自定义错误号
Const ERR_MYERROR = 513
On Error Resume Next
Dim result As Integer
result = 10 / 0 '故意制造一个错误
If Err.Number <> 0 Then
    Err.Raise ERR_MYERROR, , "自定义错误：除数不能为0"
End If
If Err.Number = ERR_MYERROR Then
    MsgBox "捕获到自定义错误：" & Err.Description
End If

这里首先制造一个除零错误，然后将其转换为自定义错误并进行捕获和处理。

条件语句在面向对象编程中的应用

在Visual Basic的面向对象编程中，条件语句用于对象状态判断、方法调用控制等方面。

根据对象属性进行条件判断

'定义一个类
Class Person
    Public Name As String
    Public Age As Integer
End Class

Dim p As New Person
p.Name = "张三"
p.Age = 20
If p.Age >= 18 Then
    MsgBox p.Name & "是成年人"
Else
    MsgBox p.Name & "是未成年人"
End If

这里通过判断Person对象的Age属性，来决定输出不同的信息。

多态与条件语句

在多态的场景下，条件语句可以根据对象的实际类型来执行不同的操作。

'定义基类
Class Shape
    Public Function Area() As Double
        Area = 0
    End Function
End Class

'定义子类Rectangle
Class Rectangle
    Inherits Shape
    Public Width As Double
    Public Height As Double
    Public Overrides Function Area() As Double
        Area = Width * Height
    End Function
End Class

'定义子类Circle
Class Circle
    Inherits Shape
    Public Radius As Double
    Public Overrides Function Area() As Double
        Area = 3.14 * Radius * Radius
    End Function
End Class

Dim s1 As New Rectangle
s1.Width = 5
s1.Height = 10
Dim s2 As New Circle
s2.Radius = 3

Dim shapes() As Shape
ReDim shapes(1)
shapes(0) = s1
shapes(1) = s2

For Each s In shapes
    If TypeOf s Is Rectangle Then
        MsgBox "矩形面积：" & s.Area()
    ElseIf TypeOf s Is Circle Then
        MsgBox "圆形面积：" & s.Area()
    End If
Next

这里通过TypeOf关键字判断对象的实际类型，然后根据类型调用相应的Area方法。

通过对Visual Basic条件语句的深入学习，我们可以更好地控制程序流程，开发出功能丰富、健壮且高效的应用程序。无论是简单的判断还是复杂的业务逻辑，条件语句都是编程中不可或缺的工具。在实际编程中，要根据具体需求灵活运用各种条件语句的技巧，以达到最佳的编程效果。