Private Function tran(ByVal m As Integer, ByVal r As Integer) As String Dim n As Integer Do While m <> 0 n = m Mod r m = m \ r If n > 9 Then tran = Chr(65 = n - 10) & tran Else tran = n & tran End If Loop End Function
by: 发表于:2017-11-27 11:25:51 顶(0) | 踩(0) 回复
??
by: 发表于:2017-11-27 11:25:51 顶(0) | 踩(0) 回复
??
回复评论