vb进制转换代码

Private Sub Command1_Click() Dim s As String, i As Integer, t As String, sum As Integer, j As In