订阅vb十六进制转十进制
来源：网络收集 点击： 时间：2024-06-22运行“Microsoft Visual Studio 2010”。
2/8”vs“的窗口弹出后，找到菜单栏，鼠标左键单击标题为”文件（f）“的选项。
3/8在弹出的列表中鼠标左键单击标题为”新建项目（p）“的项。
4/8在弹出的标题为”新建项目“，鼠标左键选择标题为”Visual Basic“项，在选择标题为”WIndows“的项。
再在右边的列表中选择标题为”Windows 窗体应用程序“。
再鼠标左键单击标题为”确定“的按钮。
5/8在一个背景为”白色的窗口，且标题为“ForM1”的窗口中的空白处鼠标左键双击。
6/8在新切换到的“代码编辑页面”的 “
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/8再在 “
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
”
下写代码：
ME.TEXT=STR(十六到十（“FFFFF”）)
测试一下效果喽~~！呵呵！
8/8如果您高兴的的话，就投个票票喽~~
注意事项注意循环代码不要弄混
注意文本要分区大小写
编程语言版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_913221.html
