导读 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
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。
版权声明：转载此文是出于传递更多信息之目的。若有来源标注错误或侵犯了您的合法权益，请作者持权属证明与本网联系，我们将及时更正、删除，谢谢您的支持与理解。