vb编写程序，利用Sub过程实现将任意一个十进制数n分别转换成2进制、8进制和16进制数。 要求

Private Sub Command1_Click() a = CInt(Text1.Text) s = "" dec2n a, 2, s Print a; "=("; s; ")2" dec2n a, 8, s Print a; "=("; s; ")8" dec2n a, 16, s Print a; "=("; s; ")16"