中科新闻网莱蒙湖别墅地址:谁帮我编个2进制转换成10进制的vb程序#55 写下代码就行
来源：百度文库 编辑：中科新闻网 时间：2024/05/17 04:45:41
作业没完成#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