private sub text1_change()
dim a as string
dim b as string
a=label1.caption
b=ucase(text1.text)
pos=instr(a,b)
label4.caption=b & "" & pos
end sub
ucase会变成大写
处于选中状态：
text1.set focus
text1.selstart=0
text1.sellength=len(text1.text)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024