15 电气 李少振 十进制化二进制程序代码

Private Sub Command1_Click()

   Me.Font.Size = 60     

   Print erjinzhi(120)              /输出函数名（要转换数）

End Sub

Private Function erjinzhi(m As Byte) AsString

   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)          / i 从余数的上边界开始取

   shang = n \ er

   yushu(i) = n Mod er

   returnS = 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