.版本 2
.支持库 iext
 
.子程序 取项目索引, 整数型
.参数 搜寻对象, 文本型
.参数 树形框对象, 树型框
.局部变量 i, 整数型
 
.计次循环首 (树形框对象.取项目数 (), i)
    .如果真 (树形框对象.取项目文本 (i － 1) ＝ 搜寻对象)
        返回 (i － 1)
    .如果真结束
 
.计次循环尾 ()
返回 (-1)