十六进制转换十进制程序

Question

如何十六进制转换十进制程序？？        For a = 1 To Len(clips)
        str = str + Val(Mid(clips, a, 1)) * 16 ^ (Len(clips) - a)
        Next a上面这样行不行？？？

Answer 1

使用VAL函数直接把十六进制数转换成十进制数.

Answer 2

VB内能自行转换:
Option Explicit
Dim a As Long
Private Sub Command1_Click()
    a = &H7F010255
    Text1 = a
End Sub

Answer 3

用VAL函数是正解。如果十6进制数输入在TEXT1中，则如下语句即可完成转换！
D=VAL("&H" &Text1.Text)

Answer 4

#include<stdio.h>
#include"math.h"
int main()
{
printf("请输入一个四位十六进制数\n");//否则用ffff进行判断位数,i的最大值为4*位数
    int a;
    scanf("%x",&a);
int c=1,p,n;
int i,m=0,sum=0;
for(i=0;i<16;i++)
{
        m++;
n=c&a;
a=a>>1;
p=n*(int)(pow(2,m-1));
        sum+=p;

}
printf("%d\n",sum);
return 0;
}