VB 条件学习笔记

1. 条件语句

Visual Basic 中的条件语句用于根据某个条件执行不同的代码块。在 VB 中有两种条件语句：If 语句和 Select Case 语句。

1.1 If 语句

If 语句根据一个条件执行或者不执行代码块，它的基本语法如下：

Copy Code
If condition Then
    ' 如果条件成立执行的代码
Else
    ' 如果条件不成立执行的代码
End If

例如，下面的代码演示了如何使用 If 语句来判断一个数是否为正数：

vbCopy Code
Dim num As Integer
num = InputBox("请输入一个整数")
If num > 0 Then
    MsgBox(num & "是正数")
ElseIf num < 0 Then
    MsgBox(num & "是负数")
Else
    MsgBox(num & "既不是正数也不是负数")
End If

1.2 Select Case 语句

Select Case 语句可以根据一个变量的值执行不同的代码块，它的基本语法如下：

Copy Code
Select Case expression
    Case value1
        ' 如果 expression 等于 value1，则执行的代码
    Case value2
        ' 如果 expression 等于 value2，则执行的代码
    Case Else
        ' 如果 expression 不等于任何一个值，则执行的代码
End Select

例如，下面的代码演示了如何使用 Select Case 语句来判断一个数的范围：

vbCopy Code
Dim num As Integer
num = InputBox("请输入一个整数")
Select Case num
    Case 1 To 10
        MsgBox(num & "在1到10之间")
    Case 11 To 20
        MsgBox(num & "在11到20之间")
    Case Is > 20
        MsgBox(num & "大于20")
    Case Else
        MsgBox(num & "小于1")
End Select

2. 逻辑运算符

在条件语句中，我们可以使用逻辑运算符来组合不同的条件。VB 中的逻辑运算符包括以下几种：

• And：与运算，所有条件都为 True 才返回 True。
• Or：或运算，任意一个条件为 True 就返回 True。
• Not：非运算，取反操作。

例如，下面的代码演示了如何使用逻辑运算符来判断一个数是否为正数并且小于 100：

vbCopy Code
Dim num As Integer
num = InputBox("请输入一个整数")
If num > 0 And num < 100 Then
    MsgBox(num & "是一个小于100的正数")
Else
    MsgBox(num & "不是一个小于100的正数")
End If

3. 实例

假设你需要编写一个程序来判断用户输入的年份是否为闰年。根据闰年的定义，每四年一闰，每百年不闰，每四百年再闰。我们可以使用以下代码来实现：

vbCopy Code
Dim year As Integer
year = InputBox("请输入一个年份")
If year Mod 400 = 0 Then
    MsgBox(year & "是闰年")
ElseIf year Mod 100 = 0 Then
    MsgBox(year & "不是闰年")
ElseIf year Mod 4 = 0 Then
    MsgBox(year & "是闰年")
Else
    MsgBox(year & "不是闰年")
End If

在上面的代码中，我们使用了 Mod 运算符来判断年份是否能被 4、100、400 整除。如果能够整除，则表示是闰年，否则就不是闰年。

4. 总结

本文介绍了 VB 中条件语句和逻辑运算符的用法，并且给出了一个实例来展示如何应用条件语句和逻辑运算符。掌握了这些知识点，你就可以写出更加高效、可读性更好的程序了。