十进制转化成十六进制

/******************************************************************************/ //函数名： dec_to_Hex //功能说明：十进制转化成十六进制 //输入参数：1、decnum  呆转化十进制数 //return：转化后的16进制 //函数完成：woods /******************************************************************************/ string a string Dec_to_hex

Do While DecNum > 0    a = string(mod(DecNum,16))    choose Case a        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 choose     DEC_to_HEX = a + DEC_to_HEX     DecNum = DecNum / 16 Loop

return dec_to_hex