十进制转换成二进制怎么调用

z26351910 发布于 2016-09-30 15:29， 1091 次点击

Public Function DEC_to_BIN(Dec As Long) As String
DEC_to_BIN = ""
Do While Dec > 0
DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
Dec = Dec \ 2
Loop
End Function

Private Sub Command5_Click(）这样调用不对
Dim d As String
DEC_to_BIN(d) = 8
d = Text1.Text
End Sub

这函数能多次调用吗？谢谢大家

1 回复

HVB62016-09-30 15:45

回复楼主 z26351910

试试：
Public Function DEC_to_BIN(Dec As Long) As String
DEC_to_BIN = ""
Do While Dec > 0
DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
Dec = Dec \ 2
Loop
End Function

Private Sub Command5_Click(）这样调用不对
Dim d As String
d=DEC_to_BIN(8)
Text1.Text=d
End Sub

十进制转换成二进制 怎么调用

十进制转换成二进制怎么调用