asp For Each Next 用法与For Each实例教程

  次阅读 来源:互联网(转载协议) 2016-03-01 11:11 我要评论(0)

在For Each ... Next循环类似,对于... Next循环。而不是重复陈述的指定的次数,

每名... Next循环重复的对象集合为数组中的每个元素的声明(或每个项目)。

下面的代码片断创建下拉列表中选择其中一个数组元素:

Select ActionSelect AllTry It<%

Dim bookTypes(7) 'creates first array

bookTypes(0)="Classic"

bookTypes(1)="Information Books"

bookTypes(2)="Fantasy"

bookTypes(3)="Mystery"

bookTypes(4)="Poetry"

bookTypes(5)="Humor"

bookTypes(6)="Biography"

bookTypes(7)="Fiction"

Dim arrCars(4) 'creates second array

arrCars(0)="BMW"

arrCars(1)="Mercedes"

arrCars(2)="Audi"

arrCars(3)="Bentley"

arrCars(4)="Mini"

Sub createList(some_array) 'takes an array and creates drop-down list

dim i

response.write("<select name=""mylist"">" & vbCrLf) 'vbCrLf stands for

Carriage Return and Line Feed

For Each item in some_array

response.write("<option value=" & i & ">" & item & "</option>" &

vbCrLf)

i = i + 1

Next 'repeat the code and move on to the next value of i

response.write("</select>")

End Sub

'Now let's call the sub and print out our lists on the screen

Call createList(bookTypes) 'takes bookTypes array as an argument

Call createList(arrcars) 'takes arrCars array as an argument

%>

本站部分文章来源于网络以及网友投稿,本站只负责对文章进行整理、排版、编辑,是出于传递更多信息之目的,并不意味着赞同其观点或证实其内容的真实性。如果您有什么意见或建议,请联系QQ28-1688-302!

人工智能实验室
相关文章相关文章
  • 第一批国家重点研发计划公布,旷视科技开启“五年行动”

    第一批国家重点研发计划公布,旷视科技开启“五年行动”

  • 让AI触手可及  Qualcomm携手创通联达推出全新终端侧AI开发套件

    让AI触手可及 Qualcomm携手创通联达推出全新终端侧AI开发套件

  • 品友互动为Digital Travel APAC2018 唯一受邀中国AI企业

    品友互动为Digital Travel APAC2018 唯一受邀中国AI企业

  • 长虹新款智能语音空调,告诉你空调也能玩Siri

    长虹新款智能语音空调,告诉你空调也能玩Siri

网友点评网友点评
阅读推荐阅读推荐

据外媒报道,STEER打造了首款完全自动驾驶停车技术,旨在使常规车辆转变为无人驾驶车辆。STEER的首款技术应用是4级自动驾驶及网络安全停车...

近日,美国软性机器抓手制造商 Soft Robotics 宣布,获得 2000 万美元的融资,本轮投资者包括 Scale Venture Partners,Calibrate Ventures...

据外媒报道,加州车管局发布了《2017自动驾驶脱离报告(California Autonomous Vehicle Disengagement Reports)》,其中谈及了脱离的具体...

用人机语音交互,来解决智能家居适老的问题;通过家庭门禁与安防套件、空气净化套件、可燃气体与有害气体监控套件等相互联动,在不同生活情...