(资料图片)

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。

本文就为大家分享到这里，希望小伙伴们会喜欢。