10转8，10转2，10转16进制等进制转换

Function hex1(dec,k) 
    dim temp,b,x
    b=""
    Do Until dec=0
        temp = Int(dec / k)
        x = dec Mod k
        Select Case x
        Case 10 
            x = "a"
        Case 11
            x = "b"
        Case 12
            x = "c"
        Case 13
            x = "d"
        Case 14
            x = "e"
        Case 15
            x = "f"
        End Select
    b=x&b
    dec=temp
Loop
hex1 =b
End Function