请高手解释以下代码，谢谢
<Script Language=VBScript><!--
dim strUserList(3)
strUserList(1)="1"
strUserList(2)="2"
strUserList(3)="3"
strTargetUser="3"
msgbox intFindUser(strUserList,strTargetUser)
'*********************************************************
'目的： 返回指定用户在 UserList 数组中第一次出现的位置。
'输入： strUserList(): 所查找的用户列表。
' strTargetUser: 要查找的用户名。
'返回： strTargetUser 在 strUserList 数组中第一次出现时的索引。
' 如果目标用户未找到，返回 -1。
'********************************************************
Function intFindUser (strUserList(), strTargetUser)
Dim i '循环计数器。
Dim blnFound '发现目标的标记。
intFindUser = -1
i = 0 '初始化循环计数器。
Do While i <= Ubound(strUserList) and Not blnFound
If strUserList(i) = strTargetUser Then
blnFound = True '标记设为 True。
intFindUser = i '返回值设为循环计数器。
End If
i = i + 1 '循环计数器加 1
Loop
End Function
-->
</Script>
