vb十六进制转十进制

1、运行“Microsoft Visual Studio 2010”。

2、”vs“的窗口弹出后，找到菜单栏，鼠标左键单击标题为”文件（f）“的选项。

3、在弹出的列表中鼠标左键单击标题为”新建项目（p）“的项。

4、在弹出的标题为”新建项目“，鼠标左键选择标题为”Visual Basic“项，在选择标题为”WIndows“的项。

再在右边的列表中选择标题为”Windows 窗体应用程序“。

再鼠标左键单击标题为”确定“的按钮。

5、在一个背景为”白色"的窗口，且标题为“ForM1”的窗口中的空白处鼠标左键双击。

6、在新切换到的“代码编辑页面”的 “

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

”

写代码：

    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、如果您高兴的的话，就投个票票喽~~