(资料图片仅供参考)
1、dim x as integer,y as string,c(100) as integer,q as string,w as integer,s as integery=str(inputbox"请输入16进制数")x=len(trim(y))for i= 1 to x q=mid(y,i,1) if q<="9"then s=s+val(q)*(16^(i-1)) else s=s+(asc(q)-55)*(16^(i-1)) end ifnext iy=trim(str(s))x=len(y)for i= x to 1 step -1 c(i)=val(mid(y,i,1))next iexd。
本文分享完毕,希望对大家有所帮助。