Note: 本次调试使用的工具为VS2010.
1.Val()函数--将十六进制数转换为十进制数
该函数用于返回包含于字符串内的数字，字符串中是一个适当类型的数值，语法如下：
Val(string)
例如：
Numval = Val("2457") '变量 Numval 的返回值是2457
Numval = Val("2 4 5 7") '变量 Numval 的返回值是2457
Numval = Val("24 and 57") '变量 Numval de 返回值是 24
将十六进制的的FF转换为十进制，
Dim covInt As Integer '申明covInt为整形变量
covInt = Val("&HFF") ‘十六进制转换为十进制
Debug.writeline covInt ’输出窗口中结果为 255
2.十进制转换为其他进制
这里介绍的是将一个十进制整数转换为二进制、八进制、或十六进制任意进制的数值，
进制转换的算法思想是：将十进制正整数n不断除进制数r取余数，直到商为0，将得到的值反序连接，即最后得到的余数在最高位。
Public Class Form1
Private Sub Button1_Click(sender As System.Object,e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("请输入正确数值！",vbInformation,"信息提示")
Exit Sub
End If
TextBox3.Text = TrDec(TextBox1.Text,TextBox2.Text)
End Sub
Private Function TrDec(idec As Integer,ibase As Integer) As String
Dim strDecR$
Dim iDecR%
strDecR = ""
Do While idec <> 0
iDecR = idec Mod ibase
If iDecR >= 10 Then
strDecR = Chr(65 + iDecR - 10) & strDecR
Else
strDecR = iDecR & strDecR
End If
idec = idec \ ibase
Loop
TrDec = strDecR
End Function
End Class
结果：