作者rocksan (Rocksan)
看板Visual_Basic
标题Re: [.NET] 十进位值转换成二进位值可用的函式
时间Thu Apr 27 15:17:39 2006
※ 引述《wuoldcat (迈向程式设计达人之路)》之铭言：
: 有个问题想向诸位版上的前辈请教：我写了一个简单的工具可以把十进位值换算成
: 十六进位、八进位，目前少一个二进位的功能，不知道要把十进位转成二进位可以用
: VB.NET的那个函式？（以下列出转换成十六进位与八进位的程式码）
: 烦请回答，谢谢～
: dim my_dec,my_hex,my_oct,my_binary as integer
: my_dec=val(TXT_dec.text)
: my_hex=hex(my_dec) '十六进位值的转换方式
: my_oct=oct(my_dec) '八进位值的转换方式
: my_binary=?
好像是没有吧!!!
用递回做做看吧!!!
Function DecToBin(ByVal n As Long) As String
If n = 0 Then Exit Function
DecToBin = DecToBin(n \ 2) & (n Mod 2)
End Function
呵呵!!! 有内建函式的话是最好啦!@@
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.94.115