vb进制转换代码.doc

《vb进制转换代码.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、PrivateSubCommand1_Click()DimsAsString,iAsInteger,tAsString,sumAsInteger,jAsIntegers=Text1IfLen(s)Mod3<>0Thens=String(3-Len(s)Mod3,"0")&sFori=1ToLen(s)Step3t=Mid(s,i,3)sum=0Forj=1ToLen(t)'二进制到八进制sum=sum+Mid(t,j,1)*2^(Len(t)-j)NextjText2=Text2&sumNextiEndSubPrivateSubCommand2

2、_Click()DimsAsString,iAsInteger,tAsString,sumAsInteger,jAsIntegers=Text3IfLen(s)Mod4<>0Thens=String(4-Len(s)Mod4,"0")&sFori=1ToLen(s)Step4t=Mid(s,i,4)sum=0Forj=1ToLen(t)'二进制到十进制sum=sum+Mid(t,j,1)*2^(Len(t)-j)NextjText4=Text4&sumNextiEndSubPrivateSubCommand3_Click()DimsAsStri

3、ng,iAsInteger,tAsString,sumAsInteger,jAsInteger,s1AsStrings=Text5IfLen(s)Mod4<>0Thens=String(4-Len(s)Mod4,"0")&sFori=1ToLen(s)Step4t=Mid(s,i,4)sum=0'二进制到十六进制Forj=1ToLen(t)sum=sum+Mid(t,j,1)*2^(Len(t)-j)NextjIfsum>9Thens1=Chr(sum+55)Elses1=sumText6=Text6&s1NextiEndSub