Sub f(n, r As Integer)If r = 2 Or r = 8 ThenIf no Thenf = f(n \ r, r)Print n Mod r;End IfEnd IfIf r = 16 ThenIf no Thenf = f(n \ r, r)t = n Mod rSelect Case tCase 10 t = "A" Case 11 t = "B" Case 12 t = "C" Case 13 t = "D" Case 14 t = "E" Case 15 t = "F" Case Elset =