vb.net进制互转

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

 

十进制转到二进制

代码如下

Public Class Form1

   

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i As Integer
        i = TextBox1.Text
        TextBox2.Text = Convert.ToString(i, 2)
        TextBox5.Text = Convert.ToString(i, 16)

    End Sub

  

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim i1 As String
        i1 = TextBox3.Text
        TextBox4.Text = Convert.ToInt32(i1, 2)

    End Sub
End Class
运行测试：