当前位置：首页 -> 技术开发 -> Script -> VBScript教程第八课使用循环语句

VBScript教程第八课使用循环语句

时间： 2021-07-31 作者：daque

运用轮回反复实行代码

轮回用来反复实行一组语句。轮回可分为二类：一类在前提变为 false 之前反复实行语句，一类在前提变为 true 之前反复实行语句，另一类依照指定的度数反复实行语句。在 vbscript 中可运用下列轮回语句： ·do...loop：当（或直到）前提为 true 时轮回。 ·while...wend：当前提为 true 时轮回。 ·for...next：指定轮回度数，运用计数珍视复运转语句。 ·for each...next：对于汇合中的每项或数组中的每个元素，反复实行一组语句。运用 do 轮回不妨运用 do...loop 语句屡次（度数大概）运转语句块。当前提为 true 时或前提变为 true 之前，反复实行语句块。当前提为 true 时反复实行语句while 要害字用来查看 do...loop 语句中的前提。有两种办法查看前提：在加入轮回之前查看前提（如底下的 chkfirstwhile 示例）；大概在轮回起码运转完一次之后查看前提（如底下的 chklastwhile 示例）。在 chkfirstwhile 进程中，即使 mynum 的初始值被树立为 9 而不是 20，则长久不会实行轮回体中的语句。在 chklastwhile 进程中，轮回体中的语句只会实行一次，由于前提在查看时仍旧为 false。 sub chkfirstwhile()dim counter, mynumcounter = 0mynum = 20do while mynum > 10mynum = mynum - 1counter = counter + 1loopmsgbox "轮回反复了 " & counter & " 次。"end subsub chklastwhile()dim counter, mynumcounter = 0mynum = 9domynum = mynum - 1counter = counter + 1loop while mynum > 10msgbox "轮回反复了 " & counter & " 次。"end sub反复实行语句直到前提变为 trueuntil 要害字用来查看 do...loop 语句中的前提。有两种办法查看前提：在加入轮回之前查看前提（如底下的 chkfirstuntil 示例）；大概在轮回起码运转完一次之后查看前提（如底下的 chklastuntil 示例）。只有前提为 false，就会举行轮回。 sub chkfirstuntil()dim counter, mynumcounter = 0mynum = 20do until mynum = 10mynum = mynum - 1counter = counter + 1loopmsgbox "轮回反复了 " & counter & " 次。"end subsub chklastuntil()dim counter, mynumcounter = 0mynum = 1domynum = mynum + 1counter = counter + 1loop until mynum = 10msgbox "轮回反复了 " & counter & " 次。"end sub退出轮回exit do 语句用来退出 do...loop 轮回。由于常常不过在某些特出情景下要退出轮回（比方要制止死轮回），以是可在 if...then...else 语句的 true 语句块中运用 exit do 语句。即使前提为 false，轮回将照常运转。在底下的示例中，mynum 的初始值将引导死轮回。if...then...else 语句查看此前提，提防展示死轮回。 sub exitexample()dim counter, mynumcounter = 0mynum = 9do until mynum = 10mynum = mynum - 1counter = counter + 1if mynum < 10 then exit doloopmsgbox "轮回反复了 " & counter & " 次。"end sub运用 while...wend while...wend 语句是为那些熟习其用法的用户供给的。然而因为 while...wend 缺乏精巧性，以是倡导最佳运用 do...loop 语句。运用 for...nextfor...next 语句用来将语句块运转指定的度数。在轮回中运用计数器变量，该变量的值随每一次轮回减少或缩小。比方，底下的示例将进程 myproc 反复实行 50 次。for 语句指定计数器变量 x 及其开始值与中断值。next 语句使计数器变量历次加 1。 sub domyproc50times()dim xfor x = 1 to 50myprocnextend sub要害字 step 用来指定计数器变量历次减少或缩小的值。在底下的示例中，计数器变量 j 历次加 2。轮回中断后，total 的值为 2、4、6、8 和 10 的总和。 sub twostotal()dim j, totalfor j = 2 to 10 step 2total = total + jnextmsgbox "总和为 " & total & "。"end sub要使计数器变量减产，可将 step 设为负值。此时计数器变量的中断值必需小于开始值。在底下的示例中，计数器变量 mynum 历次减 2。轮回中断后，total 的值为 16、14、12、10、8、6、4 和 2 的总和。 sub newtotal()dim mynum, totalfor mynum = 16 to 2 step -2total = total + mynumnextmsgbox "总和为 " & total & "。"end subexit for 语句用来在计数器到达其中断值之前退出 for...next 语句。由于常常不过在某些特出情景下（比方在爆发缺点时）要退出轮回，以是不妨在 if...then...else 语句的 true 语句块中运用 exit for 语句。即使前提为 false，轮回将照常运转。运用 for each...nextfor each...next 轮回与 for...next 轮回一致。for each...next 不是将语句运转指定的度数，而是对于数组中的每个元素或东西汇合中的每一项反复一组语句。这在不领会汇合中元素的数量时特殊有效。在以次示例中，dictionary 东西的实质用来将文天职别安置在多个文本框中： <html><head><title>窗体与元素</title></head><script language="vbscript"></script><body><center><form name="frmform"<input type = "text"><p><input type = "text"><p><input type = "text"><p><input type = "text"><p><input type = "button" name="cmdchange" value="单击此处"><p></form></center></body></html>