Blog

VB.Net program to demonstrate the CByte() function

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

Module Module1

    Sub Main()
        Dim num As Byte = 0

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

        num = CByte(n1)
        Console.WriteLine("Byte Number: {0}", num)

        num = CByte(n2)
        Console.WriteLine("Byte Number: {0}", num)

        num = CByte(n3)
        Console.WriteLine("Byte Number: {0}", num)

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

Output

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