急求：后面的sr初始值是多少？
Function sr(ByVal zh As String) As String

Dim wz, x As Double
wz = 1: x = 1

Do Until wz = 0
wz = InStr(x, sjk, zh)
If wz > 0 Then sr = sr + CStr(wz) + " ": x = wz + 1

Loop

sr = Trim(sr)

End Function

其中 sr = sr + CStr(wz) + " " 实现的什么功能？
若用 sr = CStr(wz) + " " 最终的值又有什么区别？请高手赐教？



[解决办法]
最好的方法就是试验一下

两个的区别就是前者sr在不断原有的基础上不断加长append的作用，后者是赋值
[解决办法]
写个小循环楼主就看出来了：
str=0
for i=0 to 2
str=str+1
next

for i=0 to 2
str=1
next
[解决办法]
sr= " "