VB简单算法

Option Explicit

Private Sub Command1_Click()
Dim r As Integer, n As Integer
Dim strBin As String
strBin = ""
n = Val(Text1)
Do
r = n Mod 2
strBin = r & strBin '十进制转二进制
n = n \ 2
Loop While n <> 0
MsgBox strBin
End Sub

Private Sub Command2_Click()
Dim i As Integer
Dim numDec As Long
For i = 1 To Len(Text1) '二进制转十进制
If Mid(Text1, i, 1) <> "0" And Mid(Text1, i, 1) <> "1" Then MsgBox "不是二进制数值": Exit Sub
Next
numDec = 0
For i = 1 To Len(Text1)
numDec = numDec + Val(Mid(Text1, i, 1)) * 2 ^ (Len(Text1) - i)
Next
MsgBox numDec
End Sub

基础代码，通俗易懂，哈哈！！

Private Sub command1_click()
Dim nk As String
Dim n As Integer
Dim k As Integer
If Command1.Caption = "转换" Then
n = Val(Text1.Text)
Do While n <> 0
k = n Mod 2
n = n