一、模块功能
    1、将字符串mapdata按text2。text中的字符生成数组maparray；
    2、查找字符串数组maparray中有多少个road。txt中的字符（我用分号分隔）。

二、问题
    1、统计从road。txt中第二字符开始结果为0（统计结果应该不为0）；
    2、输出到text3。text时，从第二行开始一行内的文字分两行排列；
       例如正确输出为  AB3
                       BB4
           错误输出为  AB3
                       B
                       B4
    3、想将统计结果追加到text3。text不成功。

三、已尝试过的方法
    1、第一个问题我尝试改变road。txt中字符的排列顺序，结果还是一样；
    2、第二个问题我尝试用输出简单的数字（即代码中的x，y），输出结果正确；
    3、第三个问题我尝试增加了wordstr变量，结果还是一样。

四、原代码
Private Sub Command1_Click()
maparray = Split(mapdata, Text2.Text)
maploop = UBound(maparray)
Open "road.txt" For Binary As #1
roaddata = StrConv(InputB(LOF(1), 1), vbUnicode)
roadname = Split(roaddata, ";")
roadloop=ubound(roadname)
For y = 0 To roadloop
objsum = 0
For x = 1 To maploop
    p = InStr(maparray(x), roadname(y))
    If p > 0 And p < 2100 Then
       objsum = objsum + 1
    End If
Next x
wordstr = wordstr + roadname(y) & Text2.Text & objsum & vbCrLf
Text3.Text = wordstr
Next y
Close #1
End Sub