VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB中的进制转换是怎样的
发表评论(0)作者:, 平台:, 阅读:10536, 日期:2000-03-29
VB中的进制转换是怎样的?

答:用函数Oct()将十进制位数转换为八进制,用Hex()将十进制位数转换为十六进制,不过值得注意的是转换后数字型变为字符型。如果是一个变量我们可以用如下代码完成十进制向其他进制转换的目的。

dim ANumaslong

ANum=&O10′&O是八进制的表示符号ANum自行转换为8。

ANum=&HA′&H是十六进制的表示符号ANum自行转换为10。

如果我们有一个字符变量Astring为八进制的或十六进制的,用ANum=″&O″+Astring和ANum=″&H″+Astring能将它转换为十进制。

VB中我没有找到二进制的转换函数,用如下代码可以实现十进制到二进制的转换。

OptionExplicit

Private Function TenturnTwo(ByValvarNumAsLong)

Dim returnStringAsString,ModNumAsInteger

Do WhilevarNum>0

ModNum=varNumMod2

varNum=varNum\2

returnString=Trim(Str(ModNum))+returnString

Loop

TenturnTwo=returnString

End Function

Private Function TwoturnTen(ByValvarStringAsString)

DimSLenAsLong,I As Long,returnNumAsLong

SLen=Len(varString)

ForI=0ToSLen-1

returnNum=returnNum+Val(Mid(varString,I+1,1))*(2^(SLen-I-1))

Next

TwoturnTen=returnNum

End Function