中秋帖的意思:谁帮我编个2进制转换成10进制的vb程序#55 写下代码就行

来源:百度文库 编辑:高考问答 时间:2024/03/28 22:41:27
作业没完成#15 只好来这找高手了#15

OptionExplicit
Private Function TenturnTwo(ByVal varNum As Long)
Dim returnString As String , ModNum As Integer
Do While varNum > 0
ModNum=varNum Mod 2
varNum=varNum \ 2
returnString=Trim(Str(ModNum))+returnString
Loop
TenturnTwo=returnString
End Function
Private Function TwoturnTen(ByVal varString As String)
Dim SLen As Long, I As Long , returnNum As Long
SLen=Len(varString)
For I = 0 To SLen -1
returnNum=returnNum+Val(Mid(varString,I+1,1))*(2^(SLen-I-1))
Next
TwoturnTen=returnNum
End Function