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

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

用法:

CShort(val)

参数：

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

返回值：

CShort() 函数将返回一个转换后的短整数。

程序/源代码：

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

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

Module Module1

    Sub Main()
        Dim num As Short = 0

        Dim n1 As Double = 10.25
        Dim n2 As Single = 12.25
        Dim n3 As Integer = 25
        Dim n4 As String = "122"

        num = CShort(n1)
        Console.WriteLine("Short integer Number:{0}", num)

        num = CShort(n2)
        Console.WriteLine("Short integer Number:{0}", num)

        num = CShort(n3)
        Console.WriteLine("Short integer Number:{0}", num)

        num = CShort(n4)
        Console.WriteLine("Short integer Number:{0}", num)
    End Sub
    
End Module

输出：

Short integer Number:10
Short integer Number:12
Short integer Number:25
Short integer Number:122
Press any key to continue . . .

说明：

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

num = CShort(n1)
Console.WriteLine("Short integer Number:{0}", num)

num = CShort(n2)
Console.WriteLine("Short integer Number:{0}", num)

num = CShort(n3)
Console.WriteLine("Short integer Number:{0}", num)

num = CShort(n4)
Console.WriteLine("Short integer Number:{0}", num)

在上面的代码中，我们将指定变量的值转换成一个短整数并打印在控制台屏幕上。

---