请高手解释以下代码，谢谢

<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>