十进制转换为二进制:
Dim Dec As Integer '用于存储十制的变量
Dec = Integer.Parse(txtValue.Text)
Dim t As Integer
Dim iArray(50) As Integer '储存二进制序列
Dim str As String
While Dec <> 0 '一直整除以二直到商为0
iArray(t) = (Dec Mod 2)
Dec = Dec \ 2
t += 1
End While
t -= 1
While t >= 0 '逆序输出,即为转换后的二进制序列
str &= iArray(t)
t -= 1
End While
Me.Label1.Text = ""
Me.Label1.Text = str
十进制转换为八进制,只需要把上面While循环中的2改为8即可以.
十进制转换为十六进制:
Dim Dec As Integer
Dec = Integer.Parse(txtValue.Text)
Dim t As Integer
Dim iArray(50) As String '注意区别于上面的INTEGER类型
Dim str As String
While Dec <> 0
iArray(t) = (Dec Mod 16).ToString("x") '这是转换为十六进制的关键字符转换."x"表示转换为16进制的格式
Dec = Dec \ 16
t += 1
End While
t -= 1
While t >= 0
str &= iArray(t)
t -= 1
End While
Me.Label1.Text = ""
Me.Label1.Text = str
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
二进制,八进制,十六进制转换为十进制:
Convert.ToInt32(value, frombase) 'value as string, frombase的取值只能为:2,8,10,16
这个函数含义是: 把frombase格式的value转换为Int32格式的数值.
例如:
二进制转换为十进制:
txtResult.text=convert.toint32(txtValue.text,2)
十六进制转换为十进制:
txtResult.text=convert.toint32(txtValue.text,16)
八进制转换为十进制:
txtResult.text=convert.toint32(txtValue.text,8)
