编写VB程序 编写Sub过程 把任意一个十进制数N分别转换成二进制八进制十六进制表示的数

设计界面： 代码： Private Sub Command1_Click() Dim IntegerPart As Long, DecimalPart As Double Dim Carry(), CharacterCode(15) As String Carry = Array(2, 8, 16) IntegerPart = Int(Val(Text1.Text)) DecimalPart = Val(Text1.Text) - Int(Val(Text1.Text)) For i = L