简单问题送100分!在线等待!!!急!!UP给分
Dim strArray() As String
strArray = Split(strTmp, " ") '存到数组中,一个数组元素是你要的一个词组~~
Dim i As Integer
For i = 0 To UBound(strArray)
Select Case i
Case 0
jh(m) = strArray(i)
Case 1
zrr(m) = strArray(i)
Case 2
wh(m) = strArray(i)
Case 3
tm(m) = strArray(i)
Case 4
rq(m) = strArray(i)
Case 5
ys(m) = strArray(i)
Case 6
bz(m) = strArray(i)
End Select
Next i
只能找到前六项最后一项就是找不到不知道为什么
我其他的都看过了
文件没有问题 命名也没有问题可就是找不到
up给分