VB 编写一个程序进行进制转换：当在十进制文本框中输入数时,在下面的文本框中分别显示二进制和十六进制

Question

（Label1）十进制：（Text1）
（Label2）二进制：（Text2）
（Label3）十六进制：（Text3）
Form界面是这样排的 求大神帮助！！！！！并且十六进制转换用Hex函数 二进制转换用自定义函数完成

Answer 1

Private Sub Text1_Change()
    a% = Val(Text1.Text)
    Text2.Text = Dec2Bin(a%)
    
    a% = Val(Text1.Text)
    Text3.Text = Hex(a%)
End Sub
 Public Function Dec2Bin(a As Integer) As String
    tmp = ""
    Do
        tmp = (a Mod 2) & tmp
        If a < 2 Then Exit Do
        a = a \ 2
    Loop
    Dec2Bin = tmp
End Function