? 計算機是采用二進制存儲的，計算機的二進制編碼方式也分為原碼，反碼，補碼方法。這是一個把十進制數字轉換到它的二進制原碼的算法，希望能給大家一些啟發(fā)吧！這個算法我是用VB6寫的，其中用到了函數遞歸調用和函數可選參數(個人感覺功能和C++中的函數重載差不多)。
--------------------------------------------------------------------------------
Option Explicit
Option Base 1

Dim S() As String * 1, i As Integer

Public Function BinaryConvertA(ByVal iNum As Integer, Optional ByVal iLength As Integer = 8) As String
'//***************************************? Design By 0412Rainbow?**********************************************//
'功能:用于將一個二進制數轉換為二進制原碼,計算思想是除二取余,iNum為所要轉換的十進制數,iLength為機器字長(即二進制數
'???? 的位數),可選,默認傳遞8,iNum的轉換范圍-2^(n-1) 到 +2^(n-1),返回值為二進制的字符串形式.
'說明:本算法可以很容易的轉換成除R取余,只要在函數中加個參數即可.另原碼簡介(引自程序員教程):設機器字長為n(即采用n個
'???? 二進制位表示數據),則最高位是符號位,0表示正號,1表示負號;其余的n-1位表示數值的絕對值。
'函數調用 二進制原碼 = BinaryConvertA(十進制數,二進制字長)
'//*******************************************************************************************************************//

ReDim S(iLength) As String * 1
Dim sResult As String: i = 1: Dim j As Integer
If Abs(iNum) > 2 ^ (iLength - 1) Then
??? MsgBox "十進制數表示溢出", , "進制轉換算法"
??? Exit Function
End If

'修正當十進制數為0的bug,但只處理了+0的問題，并沒有特殊處理-0的問題,最好在調用函數之前進行一個判斷
If CStr(iNum) = "0" Then
??? For j = 1 To iLength
??????? sResult = sResult & 0
??? Next
??? BinaryConvertA = sResult: Exit Function

End If

If Abs(iNum) <> iNum Then
?? S(iLength) = 1
Else
??? S(iLength) = 0
End If

Call ConvertToBinary(Abs(iNum), i)

For j = i + 1 To iLength - 1
??? S(j) = 0
??? 'Debug.Print j, S(j)
Next

For i = iLength To 1 Step -1
??? sResult = sResult & S(i)
??? 'Debug.Print sResult
Next
BinaryConvertA = sResult

End Function

Private Sub ConvertToBinary(ByVal iNums As Integer, ByVal iCount As Integer)
If iNums <> 1 Then
?? S(i) = iNums Mod 2
?? Debug.Print i, S(i)
?? i = i + 1
?? Call ConvertToBinary(iNums / 2, i)
Else
?? S(i) = 1
??
End If
End Sub

--------------------------------------------------------------------------------
函數調用范例：

新建一個工程，添加一個模塊，將上面的代碼復制到模塊中，在窗體中添加一個textbox,三個command控件，自己調整位置。

然后將下面的代碼復制到窗體的代碼頁中.

Private Sub Command1_Click()
Text1.Text = Text1.Text & BinaryConvertA(111) & vbCrLf

End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text & BinaryConvertA(-222, 9) & vbCrLf

End Sub

Private Sub Command3_Click()
Text1.Text = ""

End Sub

Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "第一種調用方式"
Command2.Caption = "第二種調用方式"
Command3.Caption = "&clear"
End Sub

--------------------------------------------------------------------------------

這樣就實現了函數的調用，需要說的還有，我沒有在函數中添加對調用參數類型的判斷，這個判斷應該加到調用函數前，比如說，如果你調用的參數來自一個文本框的文本。那么，你在調用函數前要先判斷文本是否可以轉換到一個integer類型的整數(cInt函數),可以采用IsNumeric 函數進行判斷文本中的內容是否為數，具體實現過程就很簡單了，在此就不多加解釋了。我會在接下來的日子里寫出反碼和補碼的代碼，也有可能給出C++版的代碼，如果對此有興趣，請關注我的BLOG!Thank you~

--------------------------------------------------------------------------------