设一个人员名册，编写一个程序，对该名册进行检索。

[limenghao2]

你好，谢谢你帮助我
程序运行后，只要在键盘上输入一个人名就可以在屏幕上显示出这个人的情况。
例如：输入“张得功”，则显示：
张得功 男 24 大学本科 河北
这个程序要求：
（1）使用动太数组。输入的人数可以根据实际情况改变。
（2）当检索名册中不存在的人名时，输出相应的信息。
（3）每次检索结束后，询问是否继续检索，根据输入的信息确定是否结束程序。
option base 1
private sub form_click()
dim arr()
dim s
s=Array("姓名","性别","年龄","文化程度","地方")
n=inputbox("请输入人数")
n=val(n)
Redim arr(n,5)
print
for i=1 to n
for j=1 to 5
arr(i,j)=inputbox("请输入第"& i & "个人" & s(j))
next j
next i
print "输入的人员名册"
fori=1 to n
for j=1 to 5
print arr(i,j);"";
next j
next i
print
print"检索情况"
do
sn=inputbox("请输入要查找的名字")
for i=1 to n
for j=1 to 5
if sn=arr(i,j)then
row=i
exit for
else
row=0
end if
next j
if row<>0 then exit for 这里是我不太知道，但我调试了，这句是检索人员的重要地方。请你告诉我好吗？谢谢
next i
print "要检索的字符串为："；sn
print
if row<>0 then
for j=1 to 5
print arr(row,j);"";
next j
else
print"没有要查找的信息"
end if
print
a=msgbox("是否继续检索？"，19)
if a<>6 then 这里我不知道什么意思。我上机调试了，把a<>6改为a=2 也可以
exit do
end if
loop
end sub

[limenghao2]

敲入一个字就要开始查询操作，肯定是用到实时的查询，也就是说一旦文本框里的内容改变，就开始模糊查询文本框里的内容～并将查到的结果实时的显示在另一数据或是窗体中，，，我想关键还是一个改变文本的事件的定义吧～～

[ddbean]

就是在Text_Change事件中进行查询，每当有新的输入就进行查询，只需把查询的语句放到Text_Change中就可以了。

[深渊的水影]

text_change事件

[limenghao2]

text_change中主要定义查找条件
ls_find = "string("+") like " + "'" + this.text + "%" //查找条件
然后在相应的列里面查询，将查询的结果加亮显示或是全部显示到另窗口或...