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

CSng() 函数用于将不同数据类型的值转换为单一类型。

用法:

CSng(val)

参数：

• val: 可能是不同数据类型的变量。

返回值：

CSng() 函数将返回一个转换后的单个数字。

程序/源代码：

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

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

Module Module1

    Sub Main()
        Dim num As Single = 0

        Dim n1 As Double = 10.25
        Dim n2 As Integer = 12
        Dim n3 As Decimal = 25.35
        Dim n4 As String = "122"

        num = CSng(n1)
        Console.WriteLine("Single Number:{0}", num)

        num = CSng(n2)
        Console.WriteLine("Single Number:{0}", num)

        num = CSng(n3)
        Console.WriteLine("Single Number:{0}", num)

        num = CSng(n4)
        Console.WriteLine("Single Number:{0}", num)
    End Sub
    
End Module

输出：

Single Number:10.25
Single Number:12
Single Number:25.35
Single Number:122
Press any key to continue . . .

说明：

在上面的程序中，我们创建了一个包含 Main() 方法的模块 Module1。在 Main() 方法中，我们创建了五个变量 num、n1、n2、n3 和 n4，它们被初始化为 0、10.25、12、25.35 和 "122"。

num = CSng(n1)
Console.WriteLine("Single Number:{0}", num)

num = CSng(n2)
Console.WriteLine("Single Number:{0}", num)

num = CSng(n3)
Console.WriteLine("Single Number:{0}", num)

num = CSng(n4)
Console.WriteLine("Single Number:{0}", num)

在上面的代码中，我们将指定变量的值转换为单个数字并将它们打印在控制台屏幕上。

---