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

概述Note: 本次调试使用的工具为VS2010. 1.Val()函数--将十六进制数转换为十进制数 该函数用于返回包含于字符串内的数字，字符串中是一个适当类型的数值，语法如下： Val(string) 例如： Numval = Val("2457") '变量 Numval 的返回值是2457 Numval = Val("2 4 5 7") '变量 Numval 的返回值是2457 Numval =

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

结果：

总结

以上是内存溢出为你收集整理的Visual Basic.NET不同进制数相互转换全部内容，希望文章能够帮你解决Visual Basic.NET不同进制数相互转换所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。