反序取余 和10转2一样的方法

两个语句解决
input n
print hex$(n)

这个很简单！
CLS
INPUT A
PRINT HEX$(A)
END

我通常10 to 16 是这样的:

function TenToHex(TenDig as long)as string
    const strhex as string="0123456789ABCDEF"
    dim k as long,i as lon 
    dim strTemp as string
    k=tendig
    while tendig>0
        strtemp=strtemp+mid(strhex,(k mod 16)+1,1)
        k=int(k/16)
    wend
    TenToHex=strTemp
end function