技术论坛

 • 产品分类
 • 咱工程师的故事
 • 培训与认证答疑专区
 • 服务合作伙伴专区

回复:求一VBS 算法

城外之人

版主

  • 帖子

    8686

  • 精华

    18

  • 被关注

    218

论坛等级：至圣

注册时间：2003-09-23

钻石 钻石 如何晋级?

发布于 2006-07-17 11:54:20

0楼

VBS中不是有len、trim函数吗？结合一个就行了。
if Len(Trim(M(i))=0 then
另外也可以用循环啊。
Dim Index(8),i
Index(1)=7
Index(2)=8
Index(3)=5
Index(4)=6
Index(5)=3
Index(6)=4
Index(7)=1
Index(8)=2

for i=1 to 8
if Len(Trim(M(i))<>0 then
M(0)=M(0)+M(Index(i))
endif
next i
无论成与败，无论甜与苦，我还是我。
评论
编辑推荐： 关闭

请填写推广理由：

活动公告 查看全部公告>

AI 小西智伴登场，7×24 小时权威支援，让技术支持告别等待！

热门视频，猜你喜欢

本版热门话题

SIMATIC WinCC / Panel

共有32569条技术帖

更多

评选标准

相关推荐

换一换

热门标签

换一换

相关帖子推荐

换一换
guzhang

恭喜，你发布的帖子

被评为精华帖！

快扫描右侧二维码晒一晒吧！

再发帖或跟帖交流2条，就能晋升VIP啦！开启更多专属权限！

  • 分享

  • 只看
    楼主

top
您收到0封站内信：
×
×
信息提示
很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。