1、&16進制數VB編程序實現十進制數轉換成2、十進制轉二進制PublicFunctionDECtoBIN(DecAsLong)AsStringDECtoBIN=""DoWhileDec>0DECtoBIN=DecMod2&DECtoBINDec=Dec2LoopEndFunction十進制轉八進制：VB自帶函數：Oct(num)十進制轉十六進制：VB自帶函數：hex(num)轉換成十六進制Hex()如：10(十進制):Hex(10)=A轉換成8進制Oct()如：10(十進制):Oct(10)=12轉換成2進制，使用下面的方法'采用連除2取余數，將

2、一個十進制數轉換為二進制數DimDecAsInteger'輸入一個十進制數DimBinAsString'轉換為二進制表示DimresAsIntegerDimiAsIntegerDec=Val(InputBox("x=")Form1.Print"十進制數：”；DecDores=DecMod2'求出除以2的余數Bin=res&BinDec=Dec2LoopWhileDec<>0Form1.Print"轉換為二進制數為："BinPrivateSubCommand1_Click()Printbin(Text1

3、.Text)EndSubFunctionbin(nAsLong)AsStringDoUntiln=0bin=(nMod2)&binn=n2LoopEndFunction十六進制：Hex(number)或使用&H前綴八進制：Oct(number)或使用&0前綴二、八、十六進制轉為十進制：參數sdate為要進行轉換的數，stype為此數的類型。如要將十六進制的"7b"轉為十進制：msgboxOtherToShi("7b",16)PrivateFunctionOtherToShi(ByValSdateAsString,ByVaiStyp

4、eAsLong)AsStringDimAAsString,KAsLong,PAsLongIftrim(sdate)=""thenmsgbox"請輸入要轉換的數！”:ExitfunctionOnErrorGoToExitsubP=Len(Sdate)SelectCaseStypeCase2ForK=1ToPIfMid(Sdate,K,1)>1ThenGoToExitsubNextCase8IfIsNumeric(Sdate)=FalseThenGoToExitsubSdate=Round(Sdate)p=len(sdate)Case16ForK=1ToPA=A

5、sc(LCase(Mid(Sdate,K,1)IfA<48Or(A>49AndA<97)OrA>102ThenGoToExitsubNextCaseElse按你說的操作，此句好象可免MsgBox"指定轉換的類型不正確，請重新輸入！":ExitFunctionEndSelectK=0DoWhileK<PK=K+1A=Mid(Sdate,K,1)IfStype=16ThenSelectCaseLCase(A)Case"a"A="10"Case"b"A="11"Case&

6、quot;c"A="12"Case"d"A="13"Case"e"A="14"Case"f"A="15"EndSelectEndIfOtherToShi=LTrim(Str(Val(OtherToShi)+Val(A)*StypeA(P-K)LoopExitFunctionExitsub:MsgBox"要轉化為”&Stype&”進制的數據不合法，請重新輸入!EndFunction'十進制轉為二、八、十六進制用法與

7、上類似PrivateFunctionShiToOther(ByValSdateAsString,ByValStypeAsLong)AsStringDimSAsStringIftrim(sdate)=""thenmsgbox"請輸入要轉換的數！":ExitfunctionIfIsNumeric(Sdate)=FalseThenGoToExitsub'要轉換的對象非數值型，跳出不執行OnErrorGoToExitsubSdate=Round(Val(Sdate)進行四舍五入DoWhileSdate>0S=LTrim(Str(SdateModStype)IfStype=16ThenSelectCaseSCase"10"S="A"Case"11"S="B"Case"12"S="C"Case"13"S="D"Case"14"S="E"Case"15"S="F"E