void 十进制转化为二进制(int 数)
{//缘由https://bbs.csdn.net/topics/394910474
	string 二进制;
	while (数)二进制 = to_string(数 % 2) + 二进制, 数 /= 2;
	cout << 二进制 << endl;
}

Module Module1

    Sub Main()

        Dim a = 47, er = 0
        While a > 0
            er = a Mod 2
            a -= er
            a /= 2
            Console.Write(er)
        End While
        Console.WriteLine(0)

        a = 47
        er = a
        While a > 0
            If er >= 2 Then
                er -= 2
            Else
                Console.Write(er)
                a \= 2
                er = a
            End If
        End While
        Console.WriteLine(0)

        a = 47
        er = a
        While a > 0
            If er > 10 Then
                er \= 10 '取整
                er *= 10
                er = a - er '拆分整数取个位
            ElseIf er >= 2 Then
                er -= 2 '取余
            Else
                Console.Write(er)
                a \= 2
                er = a
            End If
        End While
        Console.WriteLine(0)
        Console.ReadKey()
    End Sub

End Module