二进制数的表示

吐槽一下，今天网真慢，等了半天才进去

二进制的表示，先举个实例吧

一、23用二进制表示

       Private Sub Command1_Click()
        Dim n As Byte
        n = 23
       Const er As Byte = 2
       Dim shang As Byte
       Dim yushu(1 To 5) As Byte
       Dim i As Byte
       i = 5
       shang = n \ er
       yushu(i) = n Mod er
       While shang <> 0
         i = i - 1
        n = shang
        shang = n \ er
        yushu(i) = n Mod er
     Wend
        Print yushu(1); yushu(2); yushu(3); yushu(4); yushu(5);
     End Sub

二，任意数求二进制

       Private Sub Command1_Click()
       Print erjinzhi(200)
       End Sub
       Private Function erjinzhi(m As Byte) As String
       Dim n As Byte
       n = m
       Const er As Byte = 2
       Dim returns As String
       Dim shang As Byte
       Dim yushu(1 To 8) As Byte
       Dim i As Byte
       i = UBound(yushu)
       shang = n \ er
       yushu(i) = n Mod er
       returns = yushu(i)
       While shang <> 0
             i = i - 1
            n = shang
            shang = n \ er
            yushu(i) = n Mod er
           returns = yushu(i) & returns
      Wend
            erjinzhi= returns
   End Function

终于做完了，好煎熬。。。。。。好像还有一道附加题呢