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

结果：