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) 回复
??
回复评论