随风V随梦2013-03-27超过44用户采纳过TA的回答关注LineInput#1,s从文件中读取一行放到s的变量中，所以Text1.Text=s的意思为把读取的那行**（也就是放在s里的**）输入到text1中DimnAsIntegers=Text1.Text'把text1的**放到s中s1=RTrim(Text2.Text)'去掉text2中文字右边所有空格，并将处理后的**放到s1中Do'p=InStr(?)'p=instr(s,s1)的意思是从s1中找是否含有s，如果有返回s中第一个字在s1中的位置（如instr("C","ABCDEF")返回的是3）如果找不到返回的是0Ifp<>0Thenn=n+1'记录找到了几次s=Mid(s,p+1)'这个比较难解释，给个例子：mid("ABC",2)结果返回"BC"就是去掉"ABC"第二位前所有**，Mid(s,p+1)的意思就是去掉p+1前的所有**'LoopWhilep?0'LoopWhilep<>0'如果之前的instr(s,s1)找不到**则退出，如果有则继续循环'Label3.Caption=?'显示找到的次数呵呵，这是题目把，挺有意思的。