在vb 中怎样将16进制转换为10进制数据
1、运行“Microsoft Visual Studio 2010”。
2、”vs“的窗口弹出后，找到菜单栏，鼠标左键单击标题为”文件（f）“的选项。
3、在弹出的列表中鼠标左键单击标题为”新建项目（p）“的项。
4、在弹出的标题为”新建项目“，鼠标左键选择标题为”Visual Basic“项，在选择标题为”WIndows“的项。再在右边的列表中选择标题为”Windows 窗体应用程序“。再鼠标左键单击标题为”确定“的按钮。
5、在一个背景为”白色"的窗口，且标题为“ForM1”的窗口中的空白处鼠标左键双击。
6、在新切换到的“代码编辑页面”写代码：
Function 十六到十(ByVal 转换文本 As String) As Long 'string 文本型 str 将整数转字符串 val 将字符串转换为整数
Dim i, b As Long
转换文本 = UCase(转换文本)
For i = 1 To Len(转换文本)
Select Case Mid(转换文本, Len(转换文本) - i + 1, 1)
Case "0" : b = b + 16 ^ (i - 1) * 0
Case "1" : b = b + 16 ^ (i - 1) * 1
Case "2" : b = b + 16 ^ (i - 1) * 2
Case "3" : b = b + 16 ^ (i - 1) * 3
Case "4" : b = b + 16 ^ (i - 1) * 4
Case "5" : b = b + 16 ^ (i - 1) * 5
Case "6" : b = b + 16 ^ (i - 1) * 6
Case "7" : b = b + 16 ^ (i - 1) * 7
Case "8" : b = b + 16 ^ (i - 1) * 8
Case "9" : b = b + 16 ^ (i - 1) * 9
Case "A" : b = b + 16 ^ (i - 1) * 10
Case "B" : b = b + 16 ^ (i - 1) * 11
Case "C" : b = b + 16 ^ (i - 1) * 12
Case "D" : b = b + 16 ^ (i - 1) * 13
Case "E" : b = b + 16 ^ (i - 1) * 14
Case "F" : b = b + 16 ^ (i - 1) * 15
End Select
Next i
十六到十 = b
End Function '进制转换
7、再在 “Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load”下写代码：
ME.TEXT=STR(十六到十（“FFFFF”）)
8、完成效果图。
Dim str As String
str=Text2.Text
Text10.Text=CLng("&H"&str)
‘----------------------------------------------
十进制转八进制：Oct(num)
十六进制转八进制：oct("&H"&num)
十进制转十六进制：hex(num)
八进制转十六进制：hex("&O"&num)
‘----------------------------------------------
这些是VB自带的，希望对你有帮助
dim str as string ="4C"
10进制 = Val("&H" & str & “&”)
