UC知道VB里 帮我看看
来源：百度知道 编辑：UC知道 时间：2024/05/14 04:13:44
能不能帮我看看
Function fun(s As Integer) As Integer
Dim s1 As String
For i = 1 To Len(s)
s1 = UCase(Mid(s, i, 1)) + s1
Next i
fun = s1
End Function
这个过程是求倒序的 我怎么没看出来呢 帮我分析一下啦 谢谢
Function fun(s As Integer) As Integer
Dim s1 As String
For i = 1 To Len(s)
s1 = UCase(Mid(s, i, 1)) + s1
Next i
fun = s1
End Function
这个过程是求倒序的 我怎么没看出来呢 帮我分析一下啦 谢谢
Function fun(s As Integer) As Integer
Dim s1 As String
For i = 1 To Len(s) '从1循环到s的长度
s1 = UCase(Mid(s, i, 1)) + s1 '从i的位置取1个字符，并且取这个字符的大写。
'假设s="1234"
'开始，s1=""
'循环一次，s1="1"
'循环两次，s1="2"+s1="2"+"1"="21"
'……
'应该能明白吧。
Next i
fun = s1
End Function