实现各种进制转换产生随机数。'十进制转八进制:Oct(num)'十六进制转八进制:Oct("&H"&num)'十进制转十六进制:Hex(num)'八进制转十六进制:Hex("&O"&num)