16进制转换10进制代码

会的发个代码，我测试可以就给积分。

这个更简单

Private Sub Command1_Click()
   MsgBox CDec("&h" & InputBox("请输入单个十六进制数"))
End Sub

#include <stdio.h> #define M sizeof(unsigned int)*8

void trans(unsigned int n,unsigned int d, char s[]) {     static char digits[] ="0123456789ABCDEF";     char buf[M+1];     int j, i = M;     buf[i]='\0';     do     {     buf[--i]=digits[n%d];     n/=d;     }while(n);

    for(j=0;(s[j]=buf[i])!='\0';j++,i++); }

void main() {     unsigned int num;     int scale[]={16};     char str[33];     int i;     printf("Please input a Number:\n");     scanf("%d",&num);     for(i=0;i<sizeof(scale)/sizeof(scale[0]);i++)     {     trans(num,scale[i],str);     printf("%5d = %s(%d)\n",num,str,scale[i]);

    }     printf("\n Press any key to quit...\n");     getch(); }

#include<stdio.h> void main() {  int x;  printf("input hex:");  scanf("%x",&x);  printf("output dec:%d\n",x); }

最简单的VB代码来了：

Private Sub Command1_Click() Dim a As String a = InputBox("请输入十六进制数") Print Val("&H" + a) End Sub