007十进制到二进制的转换

原创于 2020-05-12 23:22:58 发布 · 375 阅读

0 ·

CC 4.0 BY-SA版权

Visual Basic 2010 基础专栏收录该内容

84 篇文章

订阅专栏

本文提供了两个使用VB.NET编写的子程序示例，用于将十进制数字转换为二进制表示。通过读取控制台输入的十进制数，程序运用循环和算术运算实现转换，并输出相应的二进制结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Module Module1

    Sub Main()
        'Dec2Bin1()
        dec2bin2()

        Console.ReadLine()
    End Sub
    '十进制to二进制
    Private Sub Dec2Bin1()
        Dim dec As Integer
        Dim bin As String = ""
        Dim result As Integer
        Console.WriteLine("输入转换为为二进制形式的十制数：")
        dec = Console.ReadLine
        Do
            result = dec Mod 2
            bin = result & bin
            dec = dec \ 2

        Loop While dec <> 0
        Console.WriteLine(bin)
    End Sub
    '十进制to二进制
    Private Sub Dec2Bin2()
        Dim dec As Integer
        Dim bin As String = ""
        Dim result As Integer
        Console.WriteLine("输入转换为为二进制形式的十制数：")
        dec = Console.ReadLine
        Do
            result = dec Mod 2
            bin = result & bin
            dec = dec \ 2

        Loop Until dec = 0
        Console.WriteLine(bin)

    End Sub
End Module