主题：把十六进制数转换成十进制数！急！！
xgf0
[专家分：60] 发布于 2007-02-17 16:46:00
把十六进制数转换成十进制数！
回复列表 （共22个回复）
11 楼
爱丽斯LING [专家分：560] 发布于 2007-03-23 19:23:00
CLS
INPUT "n=", n
DIM i AS LONG
i = 1
DO UNTIL i = 0
i = INT(n / 10)
j = n MOD 10
p$ = p$ + STR$(j)
n = i
LOOP
FOR a = 0 TO LEN(p$) - 1
PRINT MID$(p$, LEN(p$) - a, 1);
NEXT a
END
12 楼
爱丽斯LING [专家分：560] 发布于 2007-03-23 19:25:00
CLS
INPUT "n=", n
DIM i AS LONG
i = 1
DO UNTIL i = 0
i = INT(n / 10)
j = n MOD 10
p$ = p$ + STR$(j)
n = i
LOOP
FOR a = 0 TO LEN(p$) - 1
PRINT MID$(p$, LEN(p$) - a, 1);
NEXT a
END
13 楼
小精灵LS [专家分：580] 发布于 2007-03-30 16:51:00
CLS
INPUT N$
FOR I = LEN(N$) TO 1 STEP -1
A$ = MID$(N$, LEN(N$) + 1 - I, 1)
IF ASC(A$) > 57 THEN A = ASC(A$) - 57 ELSE A = VAL(A$)
X = X + A * 16 ^ (I - 1)
NEXT I
PRINT X
END
14 楼
黑白猪-- [专家分：420] 发布于 2007-04-01 16:52:00
CLS
INPUT N$
FOR I = LEN(N$) TO 1 STEP -1
A$ = MID$(N$, LEN(N$) + 1 - I, 1)
IF ASC(A$) > 57 THEN A = ASC(A$) - 55 ELSE A = VAL(A$)
X = X + A * 16 ^ (I - 1)
NEXT I
PRINT X
15 楼
黑白猪-- [专家分：420] 发布于 2007-04-01 16:53:00
CLS
INPUT N$
FOR I = LEN(N$) TO 1 STEP -1
A$ = MID$(N$, LEN(N$) + 1 - I, 1)
IF ASC(A$) > 57 THEN A = ASC(A$) - 55 ELSE A = VAL(A$)
X = X + A * 16 ^ (I - 1)
NEXT I
PRINT X
16 楼
黑白猪-- [专家分：420] 发布于 2007-04-01 16:53:00
CLS
INPUT N$
FOR I = LEN(N$) TO 1 STEP -1
A$ = MID$(N$, LEN(N$) + 1 - I, 1)
IF ASC(A$) > 57 THEN A = ASC(A$) - 55 ELSE A = VAL(A$)
X = X + A * 16 ^ (I - 1)
NEXT I
PRINT X
[em5][em7][em6][em2]
17 楼
游戏之王 [专家分：540] 发布于 2007-04-04 16:41:00
CLS
INPUT N$
FOR I = LEN(N$) TO 1 STEP -1
A$ = MID$(N$, LEN(N$) + 1 - I, 1)
IF ASC(A$) > 57 THEN A = ASC(A$) - 55 ELSE A = VAL(A$)
X = X + A * 16 ^ (I - 1)
NEXT I
PRINT X
END
18 楼
游戏之王 [专家分：540] 发布于 2007-04-04 16:42:00
CLS
INPUT N$
FOR I = LEN(N$) TO 1 STEP -1
A$ = MID$(N$, LEN(N$) + 1 - I, 1)
IF ASC(A$) > 57 THEN A = ASC(A$) - 55 ELSE A = VAL(A$)
X = X + A * 16 ^ (I - 1)
NEXT I
PRINT X
END
19 楼
V2战警2 [专家分：390] 发布于 2007-07-29 16:41:00
input n$
l=len(n$)
dim a(l).a$(i)
for i=1to l
a$(i0=mid$(n$,l-i,1)
select case a$(i)
case is="a"
a$(i)="10"
case is ="b"
a$(i)="11"
case is="c"
a$(i)="12"
case is="d"
a$(i)="13"
case is="e"
a$(i)="14"
case is="f"
a$(i)="15"
case else a$(i)=a4(i)'此句可省略
end select
a(i)=val(a$(i))^i:s=s+a(i)
next i
print s
end
[em54][em54][em54][em54][em54][em54][em54][em54][em54][em54][em54[em54][em54]
[em54
20 楼
yaoyusheng [专家分：460] 发布于 2007-07-29 18:39:00
input "a=";a$
print "(";a$;")16=(";
if left$(a$,1)="-" then print "-"
n=len(a$)
for i=1 to n
b=val(mid(a$,i,1))
s=s+b*16^(n-i)
next i
print s;")16"
end
这个很简单,快给我加分呀.
我来回复
您所在位置：