Function intFindUser (strUserList(), strTargetUser) Dim i ' 循環(huán)計數(shù)器。 Dim blnFound ' 發(fā)現(xiàn)目標的標記。 intFindUser = -1 i = 0 ' 初始化循環(huán)計數(shù)器。 Do While i = Ubound(strUserList) and Not blnFound If strUserList(i) = strTargetUser Then blnFound = True ' 標記設(shè)為 True。 intFindUser = i ' 返回值設(shè)為循環(huán)計數(shù)器。 End If i = i + 1 ' 循環(huán)計數(shù)器加 1。 Loop End Function