二进制八进制十进制十六进制间转换

Private Sub Command1_Click() X = Text1.Text If Text1.Text = "" Then MsgBox "输入源数据", 0, "" If Option1 = True And Option5 = True Then MsgBox "请选不同的进制", 0, "" If Option2 = True And Option6 = True Then MsgBox "请选不同的进制", 0, "" If Option3 = True And Option7 = True Then MsgBox "请选不同的进制", 0,