用vb编写一个简易“模拟电话”使之具有拨号、重拨、号码记忆等功能

unction bin2dec(inputdata As String) As Double
Dim decout As Double
Dim i As inter
Dim lenbin As Double
Dim jone As String

lenbin = Len(inputdata)

For i = 1 To lenbin
jone = Mid(inputdata, i, 1)
If jone <> "0" And jone <> "1" Then
MsgBox "不是合法的二进制数", vbCritical
Exit Function
End If
Next i

decout = 0
For i = Len(inputdata) To 1 Step -1
If Mid(inputdata, i, 1) = "1" Then
decout = decout + 2 ^ (Len(inputdata) - i)
End If
Next i
bin2dec = decout

End Function
Function dec2bin(inputdata As Double) As String

End Function