回 帖 发 新 帖 刷新版面

主题:QB将10进制数转化为16进制数

INPUT N
DIM A$(10)
DO
  I=I+1
  T=______________
  IF T>=0 AND T<=9 THEN A$(I)=____________________
  IF T>=10 AND T<=15 THEN A$(I)=____________________
  N=________________
LOOP UNTIL N=0
FOR J=I TO 1 STEP-1
  PRINT A$(I),
NEXT J
END


回复列表 (共6个回复)

沙发

?hex$(N)

板凳


[em13]看不懂

3 楼

我会!后年再找偶!

4 楼


T=N MOD 16

A$=STR$(T)

A$=CHR$(ASC("A")+T-10)

N=(N-T)/16


应该是正确的,LZ给俺加分哦

5 楼

老师讲过任意进制的转换。
反序取余

6 楼


t=n mod 16
mid$(str$(t),2)
chr$(64+t)
n=n\16

我来回复

您尚未登录,请登录后再回复。点此登录或注册