DEC_to_HEX = "" ' 變量DEC_to_HEX是存放十進制轉化為十六進制是結果,初值為空串 Do While Dec > 0 ' 如果要轉化的十進制數Dec大於0,則進入循環
a = CStr(Dec Mod 16) ' 將Dec對16的余數轉換成字符型後賦給變量a
Select Case a ' 若a為串10則重新賦值為A;若a為串11則重新賦值為B........若a為串15則重新賦值為F;
Case "10": a = "A"
Case "11": a = "B"
Case "12": a = "C"
Case "13": a = "D"
Case "14": a = "E"
Case "15": a = "F"
End Select
DEC_to_HEX = a & DEC_to_HEX ' 將余數a與DEC_to_HEX連接,a在前的目的是余數倒序的原則Dec = Dec \ 16 ' 將轉化的十進制數Dec除16,為下壹次求余做準備,若不大於0則循環結束 Loop