mand1_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&mand2_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&mand3_Click()DimsAsString,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
vb进制转换代码 来自淘豆网m.daumloan.com转载请标明出处.
