Visual Basic.NET不同进制数相互转换

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

结果：