Question

VB程序编写：二进制转换为十进制的函数

数编写进制转换函数BinToDec，单击“转换”按钮，调用该函数，将输入的二进制数据转换成十进制据，将转换结果显示出来。界面如图所示。

Answer 1

示例附件中

Private Sub Command1_Click()

Text2 = BinToDec(Text1)

End Sub

Private Function BinToDec(ejz As String) As Long

BinToDec = 0

Dim w As Long

For i = 0 To Len(ejz) - 1

If Mid(ejz, Len(ejz) - i, 1) = "1" Then

BinToDec = BinToDec + 2 ^ w

w = w + 1

ElseIf Mid(ejz, Len(ejz) - i, 1) = "0" Then

w = w + 1

End If

Next

End Function

Answer 2

Private Sub Form_Load()
Debug.Print b2d("1101")
End Sub

Private Function b2d(src As String) As Integer
Dim i As Integer
Dim out As Integer

out = 0

For i = 1 To Len(src)
out = out * 2 + CInt(Mid(src, i, 1))
Next

b2d = out
End Function