VB.NET 控制语句

2025年3月17日 | 阅读 12 分钟

在VB.NET中，控制语句是根据指定的条件控制程序执行的语句。它对于确定条件是否为真很有用。如果条件为真，则执行单个或一组语句。在控制语句中，我们将使用if-Then、if-Then-Else、if-Then-ElseIf和Select case语句。

我们可以定义多个条件供程序使用语句进行评估。如果定义的条件为真，则语句或块将根据条件执行；如果条件为假，则执行另一个语句。

下图显示了用于验证和执行语句的决策控制语句的通用格式

上图表明，如果定义的条件为真，则执行 statement_1；如果条件为假，则执行 statement_2。

VB.NET 提供了以下条件或决策语句。

If-Then 语句
If-Then Else 语句
If-Then ElseIf 语句
Select Case 语句
嵌套 Select Case 语句

If-Then 语句

If-Then 语句是一种控制语句，它定义一个或多个条件，如果满足特定条件，它将执行一部分信息或语句。

语法

If condition Then
[Statement or block of Statement]
End If

在If-Then语句中，条件可以是布尔型、逻辑型或关系型条件，而语句可以是单个语句或一组语句，当条件为真时执行。

示例 1：编写一个简单的程序在 VB.NET 中打印一条语句。

Module1.vb

Module Module1
	' Declaration of variable str
    Dim str As String = "JavaTpoint"
    Sub Main()
        ' if str equal to "JavaTpoint", below Statement will be executed.
        If str = "JavaTpoint" Then
            Console.WriteLine("Welcome to the JavaTpoint")
        End If
	Console.WritLine("press any key to exit?")
	Console.ReadKey()
    End Sub
End Module

现在通过单击“开始”或按 F5 键来编译和执行上述程序，它将显示以下输出

正如我们在上面的示例中看到的，如果 str 的值等于 JavaTpoint，则条件为 true，它将打印该语句。

示例 2：编写一个程序，在 VB.NET 中打印一个数字大于另一个数字。

if_statment2.vb

Module if_statement2
    Sub Main()
        ?Definition of variables
        Dim no1, no2 As Integer
        Console.WriteLine("Enter any two number:")
        no1 = Console.ReadLine() ?read no1 from user
        no2 = Console.ReadLine() ?read no2 from user
        If no1 > no2 Then
            Console.WriteLine("First number is greater than second number")
        End If
        If no1 < no2 Then
            Console.WriteLine("Second number is greater than First number")
        End If
        Console.WriteLine("press any key to exit...")
        Console.ReadKey() 
End Sub
End Module

现在通过单击“开始”或按 F5 键来编译和执行上述程序，它将显示以下输出

在上面的程序中，我们输入两个数字来找到较大的数字，使用关系运算符。如果第一个数字大于另一个数字，则执行第一个语句；否则，执行第二个语句。

If-Then-Else 语句

If-Then 语句可以在条件为真时执行单个或多个语句，但当表达式求值为 false 时，它什么也不做。因此，这里出现了 If-Then-Else 语句。IF-Then-Else 语句告诉我们当条件为假时，If 语句做什么，它执行 Else 语句。以下是在 VB.NET 中 If-Then-Else 语句的语法如下：

语法

If (Boolean_expression) Then
'This statement will execute if the Boolean condition is true
Else
'Optional statement will execute if the Boolean condition is false
End If

流程图

上图表示，如果布尔表达式（条件）为true，则执行 if 语句；如果布尔表达式为 false，则执行Else 代码或语句。之后，控制转移到紧跟在 If-Then-Else 控制语句之后的下一个语句。

示例 1：编写一个程序来检查数字是偶数还是奇数。

If_Else_statment.vb

Module If_Else_statement
    Sub Main()
        Dim num As Integer
        Console.WriteLine("Enter the Number")
        num = Console.ReadLine() 'read data from console

        If (num Mod 2 = 0) Then ' if condition is true, print the if statement
            Console.WriteLine("It is an even number")

        Else 'otherwise, Else statement is executed.
            Console.WriteLine("It is an odd number")
        End If

	Console.WriteLine("press any key to exit...")
        Console.ReadKey()
    End Sub
End Module

现在通过单击“开始”或按 F5 键来编译和执行上述程序，它将显示以下输出

示例 2：编写一个程序来打印两个数字中的较大者和较小者。

if_else_statment2.vb

Module if_else_statement2
    Sub Main()
        Dim a As Integer
        Dim b As Integer
        Console.WriteLine("Enter the first number : ")
        a = Console.ReadLine()

        Console.WriteLine("Enter the second number : ")
        b = Console.ReadLine()

        If a > b Then
            Console.WriteLine(" larger number = {0} and smaller number = {1} ", a, b)
        Else
            Console.WriteLine(" larger number = {0} and smaller number = {1} ", b, a)
        End If

        Console.WriteLine("press any key to exit...")
        Console.ReadKey()
    End Sub
End Module

现在通过单击“开始”或按 F5 键来编译和执行上述程序，它将显示以下输出

VB.NET If-Then-ElseIf 语句

If-Then-ElseIf 语句提供了一个从多个语句中仅执行一个条件或语句的选项。执行从上到下开始，并检查每个 If 条件。如果满足条件，则执行 If 语句块。如果没有一个条件为真，则执行最后的块。以下是 VB.NET 中 If-Then-ElseIf 语句的语法如下：

语法

If(condition 1)Then
   ' Executes when condition 1 is true 
ElseIf( condition 2)Then
   ' Executes when condition 2 is true 
ElseIf( boolean_expression 3)Then
   ' Executes when the condition 3 is true 
Else 
   ' executes the default statement when none of the above conditions is true. 
End If

流程图

下图表示 VB.NET 编程语言中 If-Else-If 语句的功能。

在 if-else-if 语句的流程图中，如果此条件为真，则在 if 块内执行语句。如果条件不为真，则将控制权转移到下一个 ElseIf 条件以检查条件是否匹配。如果所有条件都不匹配，则执行 else 块。

示例 1：编写一个程序来演示 If... ElseIf 语句的用法。

if_elseIf.vb

Module if_elseIf
    Sub Main()
        Dim var1 As Integer

        Console.WriteLine(" Input the value of var1: ")
        var1 = Console.ReadLine()
        If var1 = 20 Then
            'if condition is true then print the following statement'
            Console.WriteLine(" Entered value is equal to 20")
        ElseIf var1 < 50 Then
            Console.WriteLine(" Entered value is less than 50")
        
         ElseIf var1 >= 100 Then
            Console.WriteLine(" Entered value is greater than 100")
        Else
            'if none of the above condition is satisfied, print the following statement
            Console.WriteLine(" Value is not matched with above condition")
        End If
        Console.WriteLine(" You have entered : {0}", var1)
        Console.WriteLine(" press any key to exit...")
        Console.ReadKey()
    End Sub
End Module

现在通过单击“开始”或按 F5 键来编译和执行上述程序，它将显示以下输出

示例 2：编写一个程序，使用 If-Then-ElseIf 语句计算学生获得的学位。同时，从键盘上输入学生在 5 门不同科目中获得的分数。

if_elseIf2.vb

Module If_elseIf2  
    Sub Main()      ' execution start from Main() method
        Dim m1, m2, m3, m4, m5, per As Integer
        Console.WriteLine("Enter marks in five subjects ")
        ' Read the marks of five subject
        m1 = Console.ReadLine()
        m2 = Console.ReadLine()
        m3 = Console.ReadLine()
        m4 = Console.ReadLine()
        m5 = Console.ReadLine()
        per = (m1 + m2 + m3 + m4 + m5) / 5
        If (per >= 70) Then
            'if condition is true, print the first division
            Console.WriteLine(" First division")
        ElseIf (per >= 60) Then
            'if ElseIf condition is true, print the second division
            Console.WriteLine(" Second division")
        ElseIf (per >= 50) Then
            'if ElseIf condition is true, print the third division
            Console.WriteLine(" Third division")
        ElseIf (per >= 40) Then
            'if ElseIf condition is true, print only pass with grace 
            Console.WriteLine(" Only Pass with Grace")
        Else
            'if none of the condition is true, print the Failed
            Console.WriteLine(" Failed")
        End If
        Console.WriteLine("press any key to exit...")
        Console.ReadKey()
    End Sub

End Module

现在通过单击“开始”或按 F5 键来编译和执行上述程序，它将显示以下输出

Select Case 语句

在 VB.NET 中，Select Case 语句是多个 case 语句的集合，它允许从语句列表中执行单个 case 语句。选定的 case 语句使用一个变量来测试与程序中的多个 case 或语句的相等性。如果变量与任何测试用例匹配，则执行该语句。如果条件与任何 case 不匹配，则执行默认语句。

使用 VB.NET 编程中的 select case 语句，您可以替换程序中多个 If-Then-Else If 语句的用法，以获得更好的可读性和易用性。

语法

以下是 VB.NET 中 Select Case 语句的语法，如下所示：

Select Case [variable or expression]
Case value1 'defines the item or value that you want to match.
// Define a statement to execute

Case value2 'defines the item or value that you want to match.
// Define a statement to execute

Case Else
// Define the default statement if none of the conditions is true.
End Select 

此外，您还可以在单个 case 语句中设置多个条件，例如：

Select Case Variable / expression
Case value1
Statement1

Case value2, value3
Statement2

Case Else
// define the default statement if none of the condition is true
End Select 

Select Case 语句的流程图

下图表示 VB.NET 编程语言中 Select Case 语句的功能。

在流程图中，Select Case 语句表示从上到下评估过程。如果表达式或值与第一个 select case 匹配，则执行 statement -1；否则，控制转移到下一个 case 以检查表达式是否匹配。同样，它会检查所有 Select case 语句进行评估。如果没有任何 case 匹配，则将执行 Else 块语句，最后，Select Case 语句将结束。

示例 1：编写一个程序，使用 select case 语句在 VB.NET 中显示星期几的名称。

Select_case.vb

Imports System
Module Select_case
    Sub Main()
        'define a local variable. 
        Dim Days As String
        Days = "Thurs"
        Select Case Days
            Case "Mon"
                Console.WriteLine(" Today is Monday")
            Case "Tue"
                Console.WriteLine(" Today is Tuesday")
            Case "Wed"
                Console.WriteLine("Today is Wednesday")
            Case "Thurs"
                Console.WriteLine("Today is Thursday")
            Case "Fri"
                Console.WriteLine("Today is Friday")
            Case "Sat"
                Console.WriteLine("Today is Saturday")
            Case "Sun"
                Console.WriteLine("Today is Sunday")
            Case Else
                Console.WriteLine(" You have typed Something wrong")

        End Select
        Console.WriteLine("You have selected : {0}", Days)
        Console.WriteLine("Press any key to exit...")
        Console.ReadLine()
    End Sub
End Module

现在通过单击“开始”或按 F5 键来编译和执行上述程序，它将显示以下输出

在 select case 语句中，Days 的值“Thurs”将与程序中所有可用的select cases的值进行比较。如果某个值与任何条件匹配，则打印特定语句；如果该值与任何 select case 语句不匹配，则打印默认消息。

示例 2：编写一个程序，使用 Select case 语句在 VB.NET 中执行算术运算。

Operation.vb

Imports System
Module Operation
    Sub main()
        'declaration of the variables
        Dim num1, num2, sum As Integer
        Dim def As Char
        'initialization of num1 and num2 variable
        num1 = 2
        num2 = 6
        Console.WriteLine(" Want to perform any operation?")
        Console.WriteLine(" A for Addition")
        Console.WriteLine(" S for Subtraction")
        Console.WriteLine(" M for Multiplication")
        Console.WriteLine(" D for Division")
        Console.WriteLine(" Please enter any input")
        def = Console.ReadLine()
        Select Case def
            Case "A"
                'perform Addition
                sum = num1 + num2
                Console.WriteLine(" Addition of two number is :{0}", sum)
            Case "S"
                'perform Subtraction
                sum = num2 - num1
                Console.WriteLine(" Subtraction of two number is :{0}", sum)
            Case "M"
                'perform Multiplication
                sum = num1 * num2
                Console.WriteLine(" Multiplication of two number is :{0}", sum)
            Case "D"
                'Peform Division
                sum = num2 / num1
                Console.WriteLine(" Division of two number is :{0}", sum)
            Case Else
                'If none of the operation matched, call default statement
                Console.WriteLine(" Please enter only define operation With Capital letter")
        End Select
        Console.WriteLine("Press any key to exit...")
        Console.ReadKey()
    End Sub
End Module 

现在通过单击“开始”或按 F5 键来编译和执行上述程序，它将显示以下输出

在上面的示例中，我们定义了带有多个 case 语句的 Select，如果用户定义的输入与任何定义的 case 语句匹配，则执行该语句。如果条件与任何 case 不匹配，则在 VB.NET 中执行默认语句。

在这里，我们输入'M'，它会检查所有 case 语句，如果任何 case 与 M 匹配，则执行相应 Case 语句中的语句。

VB.NET 嵌套 Select Case 语句

当一个Select Case语句写在另一个Select Case语句的正文中时，称为嵌套 Select Case 语句。

语法

Select Case "num"
' code to be executed if num = 1
Case 1
' nested Select case
 	 Select Case n
 		
                                 ' code to be executed if n = 5
                                  Case 5
                                 Statement 1
                                
                                ' code to be executed if n = 10
                                 Case 10
                                 Statement 2
                                 
                                  ' code to be executed if n = 15
                                  Case 15
                                 Statement 3

                               ' code to be executed if n doesn't match with any cases.
                               Case Else
                                Statement

           ' code to be executed if num = 2
            Case 2
            Statement 2
           
            ' code to be executed if num = 3
            Case 3
           Statement 3
           
            ' code to be executed if num doesn't match with any cases.
            Case Else
           Statement

示例 1：编写一个程序来演示 VB.NET 中的嵌套 select case 语句。

Module1.vb

Module Module1

    Sub Main()

        Dim x As Integer = 10, y As Integer = 5
        Select Case x

            Case 10
                Console.WriteLine("X Value: 10")


                Select Case y
                    Case 5
                        Console.WriteLine("Nested Switch Value: 5")

 
                        Select Case y - 2
                            Case 3
                                Console.WriteLine("Another Nested Switch Value: 3")

                        End Select
                End Select
 
            Case 15
                Console.WriteLine("X Value: 15")

            Case 20
                Console.WriteLine("X Value: 20")

            Case Else
                Console.WriteLine("Not Known")

        End Select
        Console.WriteLine("Press Enter Key to Exit..")
        Console.ReadLine()
    End Sub
End Module

现在通过单击“开始”或按 F5 键来编译和执行上述程序，它将显示以下输出

示例 2：编写一个程序来演示 VB.NET 中的嵌套 select case 语句。

nested_selectcase.vb

Imports System
Module nested_selectcase
    Sub Main()
        Dim num As Integer
        Dim str As String
        str = "F"

        Console.WriteLine(" Enter only First three number like 1, 2, 3")
        num = Console.ReadLine() 'take input from the user
        Select Case num
            Case 1
                Console.WriteLine(" You are in block 1")
                Console.WriteLine("Only First two letter such as A and B")

                str = Console.ReadLine()
                Select Case str
                    Case "A", "a"
                        Console.WriteLine(" This is a VB.NET Tutorial")
                    Case "B", "b"
                        Console.WriteLine(" Welcome to the JavaTpoint")
                    Case Else
                        Console.WriteLine(" Something is wrong")
                End Select

            Case 2
                Console.WriteLine(" You are in block 2")
                Console.WriteLine("Only First two letter such as C and D")
                str = Console.ReadLine()
                Select Case str
                    Case "C", "c"
                        Console.WriteLine(" Welcome to the World!")
                    Case "D", "d"
                        Console.WriteLine(" Want to go in Heaven")
                    Case Else
                        Console.WriteLine(" Something is wrong")
                End Select

            Case 3
                Console.WriteLine(" You are in block 3")
                Console.WriteLine("Only First two letter such as E and F")
                str = Console.ReadLine()
                Select Case str
                    Case "E", "e"
                        Console.WriteLine(" VB.NET is a programming language to develop web, window, and console-based application. ")
                    Case "F", "f"
                        Console.WriteLine(" You have to basic knowledge of c and c++")
                    Case Else
                        Console.WriteLine(" Something is wrong")
                End Select
            Case Else
                Console.WriteLine(" Something is wrong")
        End Select
        Console.ReadLine()
    End Sub
End Module

现在通过单击“开始”或按 F5 键来编译和执行上述程序，它将显示以下输出

在上面的示例中，我们只定义了前三个数字 1-3，如果数字与任何 case 语句匹配，则执行 select 语句。这里，我们输入了 2，它与 case 2 匹配，并执行了如上所示的块。该块执行语句“只有前两个字母，如 C 和 D”。因此，我们输入字母 D，字母 D 与嵌套的 select case 语句匹配，如果找到匹配项，则执行如上所示的 select case 语句。

下一主题VB.NET Do Loop

VB.NET 控制语句

If-Then 语句

If-Then-Else 语句

VB.NET If-Then-ElseIf 语句

Select Case 语句

VB.NET 嵌套 Select Case 语句

联系信息

关注我们

教程

面试题

在线编译器

Python

Java

.Net Framework

AI, ML and Data Science

Cloud Technology

B.Tech and MCA

Web Technology

PHP

Software Testing

Technical Interview

Java Interview

Python

Web Interview

Database Interview

B.Tech / MCA

Important Interview

Software Testing Interview

Company Interviews

Online Compilers

Multiple Choice Questions

VB.NET 教程

VB.NET 控制语句

If-Then 语句

If-Then-Else 语句

VB.NET If-Then-ElseIf 语句

Select Case 语句

VB.NET 嵌套 Select Case 语句

相关帖子

VB.NET Sub

For Next 循环

PictureBox 控件

VB.NET 日期 & 时间

VB.NET vs Java

下载 & 安装 Visual Studio

VB.NET vs C#

VB.NET 标签控件

With & With 语句

VB.NET 数据类型

订阅 Tpoint Tech

联系信息

关注我们

教程

面试题

在线编译器