编写程序，利用sub过程把任意一个十进制整数n分别转化为二进制，八进制，十六进制数。

Private Sub Text1_Change() Dim n If Len(Text1) > 0 And IsNumeric(Text1) Then n = Val(Text1) DEC_to_BIN n DEC_to_OCT n DEC_to_HEX n Else Text1 = "" End If End Sub Sub DEC_to_BIN(ByVal Dec