国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 網站 > 建站經驗 > 正文

asp do while 循_環語法與do while實例教程

2019-11-02 15:21:38
字體:
來源:轉載
供稿:網友

在do while循環的另一種常用后... Next循環的循環。在do while循環語句重復語句

塊的次數不定。重復的陳述或者當條件為真或直到條件變為True。語法如下所示:

Do [While|Until] condition
  statements
Loop

Do 
  statements
Loop [While|Until] condition

在這方面,這個循環內的代碼將執行至少一次的情況。在有一個例子:

下面的例子定義了一個循環,開始與i = 0。循環將繼續運行,因為我只要小于或等于

10。我將增加1每次循環運行。
Select ActionSelect AllTry It<%
Dim i 'use i as a counter
i = 0 'assign a value to i

Do While i<=10 'Output the values from 0 to 10
  response.write(i & "<br >")
  i = i + 1 'increment the value of i for next time loop executes
Loop
%>
現在,讓我們考慮一個更有用的例子,創建下拉幾天,幾個月或幾年清單。您可以使

用此登記表的代碼,例如。

<%
'creates an array
Dim month_array(11)
month_array(0) = "January"
month_array(1) = "February"
month_array(2) = "March"
month_array(3) = "April"
month_array(4) = "May"
month_array(5) = "June"
month_array(6) = "July"
month_array(7) = "August"
month_array(8) = "September"
month_array(9) = "October"
month_array(10) = "November"
month_array(11) = "December"

Dim i

response.write("<select name=""day"">" & vbCrLf)
i = 1
Do While i <= 31 
   response.write("<option value=" & i & ">" & i & "</option>" & vbCrLf)
   i = i + 1
Loop
response.write("</select>")

response.write("<select name=""month"">" & vbCrLf)
i = 0
Do While i <= 11
   response.write("<option value=" & i & ">" & month_array(i) & "</option>"

& vbCrLf)   
   i = i + 1
Loop
response.write("</select>")

response.write("<select name=""year"">")
i = 1900
Do Until i = 2005   
   response.write("<option value=" & i & ">" & i & "</option>" & vbCrLf)   
   i = i + 1
Loop
response.write("</select>")
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 郯城县| 和龙市| 阿城市| 宁德市| 舒城县| 武安市| 习水县| 吕梁市| 廊坊市| 白沙| 邹城市| 武城县| 平泉县| 周至县| 常宁市| 锡林浩特市| 米林县| 永嘉县| 叶城县| 贞丰县| 仙居县| 商洛市| 台北县| 龙江县| 阿城市| 拉孜县| 日喀则市| 澄江县| 苍南县| 石阡县| 齐齐哈尔市| 久治县| 通州区| 砀山县| 丹东市| 通河县| 沙田区| 台北市| 黄龙县| 敦煌市| 马龙县|