时间: 2021-07-31 作者:daque
兄弟迩来枯燥,接洽了一下进制变换,创造普遍人运用的本领都是用来除一个数的本领获得的,感触很是没有创新意识,所以我就凭着咱们华夏人的聪慧以及抵抗不饶,努力求爱的精力,毕竟获得其余一种特殊的本领.谁人本领开始要运用两个function:function blength(x as long) as long 解释:用来获得要变换的数字变换后的二进制长度blength = int(log(x) / log(2))end functionfunction bbit(x as long, pos as long) as string 解释:获得指定位的字符dim ltmp as longltmp = 2 ^ posbbit = iif((x and ltmp) = ltmp, "1", "0")end function以次是主步调:function dectobin(x as long) as stringdim sbuf as string, llength as long, lpos as longsbuf = ""llength = blength(x)for lpos = 0 to llengthsbuf = bbit(x, lpos) & sbufnextdectobin = sbufsbuf = ""end functionx是要变换的dec,归来值即是变换后的bin了.然而不过枯燥的功夫写的,以是也就没有接洽关系的反因变量和其它的变换本领.