下载源程序

●逐步说明：
　　1）该实例总共有两个关键帧。

每一帧的Actions为：stop。
　　2）选中第1个关键帧，工作区中有两个文本框，小文本框的属性为：

表示在此输入想保存的信息。大文本框的属性为：

即输出已保存的信息。用鼠标双击提交按钮，进入按钮属性对话框，切换到Actions选项卡，里面的程序为： On (Release) Set Variable: "namecount" = namecount + 1 Set Variable: "name" & namecount = entered Set Variable: "temp" = Eval("name" & namecount) Set Variable: "names" = names & namecount & ". " & temp & newline Set Variable: "entered" = "" End On 表示当执行该按钮时，输入的信息即保存起来，并显示在大文本框中。打开查找按钮属性对话框，切换到Actions选项卡，里面的程序为：

即跳转到第2帧。

小文本框的属性为：

表示在此输入想查找的内容，大文本框的属性为：

表示在此输出查找结果。打开提交按钮属性对话框，切换到Actions选项卡，里面的程序为：
On (Release)
　Set Variable: "Index" = 1
　Set Variable: "found" = false
　Loop While (Index <= namecount and not found)
　　If (Eval ("name" & Index) eq nametofind)
　　　Set Variable: "found" = true Set Variable: "searchresults" = "您要找的数据在第 " & Index & newline & newline & ( Index - 1) & ". " & (Eval("name" & (Index - 1))) & newline & Index & ". " & (Eval("name" & Index)) & newline & ( Index + 1) & ". " & (Eval("name" & (Index + 1)))
　　Else
　　　Set Variable: "Index" = Index + 1
　　End If
　End Loop
　If (found = false)
　　Set Variable: "searchresults" = "没有您要找的数据……"
　End If
　Set Variable: "nametofind" = ""
End On
　　该段程序表示查寻输入的信息，如找到了，则在大文本框中显示，如找不到，则显示“没有您要找的数据……”信息。打开后退按钮属性对话框，切换到Actions选项卡，里面的程序为如图所示：

表示回到第1帧。