十进制转换为二进制:
        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)