Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Byte a = 1230: b = 16 While a <> 0 yushu = a Mod b s = yushu & s a = a \ b Wend Print s End Sub