8年网站建设、推广经验!服务客户2000+
微信关注
扫一扫,享优惠!
咨询电话:400-888-2014;座机:029-81627176;手机/微信:153 5370 4270
建站技术

您现在的位置:主页 > 心海资讯 > 建站技术 >

  • 推荐文章
  • vb中的replace函数怎么用
    vb中的replace函数怎么用 replace函数有六个参数 Replace(expression, find, replacewith[, compare[, count[, start]]]) 前三个是必选参数,后三个是可选参数 下面是一个......
    201201/13
  • 400电话实名制认证
    400电话实名制认证......
    201710/20
  • 网站优化绝对是一个耐心+
    网站优化绝对是一个耐心+实干的活 西安热镀锌 这个关键词我们已经优化了两年的时间了,以后优化的都是在第一位,不知道为啥这段时间排名一下子掉了下来,真是很无奈,这几......
    201404/10
  • vbscript中步长值为负数
    vbscript中步长值为负数的for循环 关键词: vbscript中步长值为负数的for循环 %@LANGUAGE=VBSCRIPT CODEPAGE=936% !DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transition......
    201201/12
  • 织梦dedev5.7tag静态化方
    织梦带有tag标签,这个功能很好,但是里面的页面都是动态的,生成的tag列表页的命名出现中文,这种在url中出现中文的地址是几乎不可能被搜索引擎收录的,所以说即时你把网......
    201205/01
  • 西安软件培训公司有哪些
    西安软件培训公司有哪些? 西安好的软件培训培训机构有哪些 1. 和盈-杭州Java培训_杭州IT培训_软件培训学校_软件工程师培训机构_计算机培训班_软件编程培训_杭州Android培......
    201112/29
  • 相关文章

vbscript中的for循环

心海网络:2012-01-12 16:07     阅读数:

vbscript中的for循环

关键词:vbscript中for循环怎么用

vbscript中的for循环和c语言的for循环是一样的,这是语法结构稍有不同而已,习惯就好了

For...Next 语句

语法:

For counter = start To end [Step step]         

[statements]

[Exit For]

[statements]

Next

步长值是一个可选参数,如果不写默认就是1

例1:
Sub DoMyProc50Times()
     Dim x ,y
     For x = 1 To 50
     y=y+x
     Next
     msgbox(y)
End Sub


例2:
Sub TwosTotal()
Dim j, total
Total=0
For j = 2 To 10 Step 2
total = total + j
Next
 MsgBox "总和为 " & total & "。"
End Sub



例3
Sub NewTotal()
 Dim myNum, total
For myNum = 16 To 2 Step -2
 total = total + myNum
Next
MsgBox "总和为 " & total & "。"
End Sub


例4:
Sub TwosTotal()
Dim j, total
For j = 2 To 10 Step 2
total = total + j
If j=8 then
Exit for
End if
Next
 MsgBox "总和为 " & total & "。"
End Sub

 

以上由西安网站制作公司西安心海网站建设提供

在线客服
热线电话
400-888-2014
029-81627176
153 5370 4270

扫一扫微信咨询
男人到天堂a2019