标题:(求帮忙看看)编译器错误 (0x800A041F) 错误的'next'
只看楼主
jocket12
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-12-25
结帖率:50%
已结贴  问题点数:10 回复次数:3 
(求帮忙看看)编译器错误 (0x800A041F) 错误的'next'
程序代码:
dim kword
kword=split("fuck,傻逼,他妈的,我靠,我操,去死,我叼,or,and,exec,insert,select,delete,update,count,%22,%27,chr,mid,master,truncate,char,declare,eval",",")        '屏蔽字符,用逗号“,”隔开
function killWord(s)
dim KwC,kw,kstr
for each kw in kword
  kstr=""
  KwC = instr(s,kword(kw-1))
  if kwc>0 then
    kstr=kstr+kword(kw)+","
next
killWord=kstr
end function
这函数有问题???循环应该没错吧?  总说:错误的NEXT  高手帮忙改改。
搜索更多相关主题的帖子: 编译器 
2011-01-01 00:08
zmh886
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:12
帖 子:238
专家分:1305
注 册:2010-6-2
得分:5 
  if kwc>0 then
    kstr=kstr+kword(kw)+","
 end if
没有“关闭”if

http://www./
2011-01-01 13:26
wangjy500
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:13
帖 子:457
专家分:2569
注 册:2010-7-11
得分:5 
kw-1?这个可以这样做?

QQ:63572063
2011-01-01 13:33
zmh886
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:12
帖 子:238
专家分:1305
注 册:2010-6-2
得分:0 
以下是引用wangjy500在2011-1-1 13:33:53的发言:

kw-1?这个可以这样做?
眼力真犀利

的确搭配错了
for each a in b
 c=a
next

for i = 0 to ubound(b)
 c=b(i)
next

http://www./
2011-01-02 14:52



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-330396-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.089800 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved