VB.NET CBool()用法及代码示例

CBool() 函数用于将不同数据类型的值转换为整数类型。

用法:

CBool(val)

参数：

• val: 它是一个给定的整数值。

返回值：

CBool() 函数将返回一个转换后的布尔值。

程序/源代码：

下面给出了演示 CBool() 函数的源代码。给定的程序已成功编译并执行。

'VB.Net program to demonstrate the CBool() function.

Module Module1

    Sub Main()
        Dim result As Boolean = False

        Dim n1 As Integer = 10
        Dim n2 As Integer = 0
        Dim n3 As Integer = -1
        
        result = CBool(n1)
        Console.WriteLine("Boolean value:{0}", result)

        result = CBool(n2)
        Console.WriteLine("Boolean value:{0}", result)

        result = CBool(n3)
        Console.WriteLine("Boolean value:{0}", result)
    End Sub
    
End Module

输出：

Boolean value:True
Boolean value:False
Boolean value:True
Press any key to continue . . .

说明：

在上面的程序中，我们创建了一个包含 Main() 方法的模块 Module1。在 Main() 方法中，我们创建了四个变量 result，n1、n2 和 n3，它们被初始化为 False、10、0 和 -10。

result = CBool(n1)
Console.WriteLine("Boolean value:{0}", result)

result = CBool(n2)
Console.WriteLine("Boolean value:{0}", result)

result = CBool(n3)
Console.WriteLine("Boolean value:{0}", result)

在上面的代码中，我们将指定变量的值转换为布尔值，这里将非零值转换为 True，零转换为 False，然后将它们打印在控制台屏幕上。

---