首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

急求:后面的sr初始值是多少?该怎么解决

2012-02-09 
急求:后面的sr初始值是多少?Functionsr(ByValzhAsString)AsStringDimwz,xAsDoublewz1:x1DoUntilwz0wzI

急求:后面的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= " "

热点排行