※ 引述《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