会python真的可以为所欲为0(回)
353天前
这里还有人吗1(回)
538天前这里还有人吗0(回)
538天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
763天前到处都是羊，不想上班0(回)
843天前
鸽子
0(回)
847天前Private Function tran(ByVal s As String, ByVal r As Integer) As Integer |
Dim n As Integer, i As Integer |
s = UCase(Trim(s)) |
For i = 1 To Len(s) |
If Mid(s, i, 1) >= "a" Then |
n = Asc(Mid(s, i, 1)) - Asc("a") + 10 |
Else |
n = Val(Mid(s, i, 1)) |
End If |
tran_dec = tran_dec + n * r ^ (Len(s) - i) |
Next i |
End Function |
by: 发表于：2017-11-27 11:25:43 顶(0) | 踩(0) 回复
？？
回复评论