澳门新葡萄京官网注册 4

使用循环语句

应用循环重复执行代码
循环用于重复试行意气风发组语句。循环可分为三类:黄金时代类在规范化成为 False 以前再一次实施语句,风华正茂类在尺度成为 True 早先再次实践语句,另后生可畏类根据钦点的次数重复推行语句。
在 VBScript 中可使用下列循环语句: 

1、描述性编制程序

1.变量 的 声明 赋值 使用
2.单词和文件:使用字符串变量来公司单词
3.数组:表示五个值的变量
4.算法:创制富含变量和平运动算符的表明式
5.比较:使用表达式比较值
6.使计算机实施某种操作:编写您的率先个经过
7.使顺序重复实行操作:用 For…Next , Do…While, Do…Until
循环推行循环
8.使主次在三种大概的动静之间接选举用:If…Then , Select Case 语句
9.出错时如何是好:管理错误 Try…Catch…Finally 块

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, myNum
     counter = 0
澳门新葡萄京官网注册 ,     myNum = 20
     Do While myNum > 10
         myNum = myNum – 1
         counter = counter + 1
     Loop
     MsgBox “循环重复了 ” & counter & ” 次。”
 End Sub

class(“描述性属性1:=值”,”描述性属性2:=值”State of Qatar

========================

 Sub ChkLastWhile()
     Dim counter, myNum
     counter = 0
     myNum = 9
     Do
         myNum = myNum – 1
         counter = counter + 1
     Loop While myNum > 10
     MsgBox “循环重复了 ” & counter & ” 次。”
 End Sub

如输入姓名,使用对象属性方法:

1.变量 的 声明 赋值 使用

再也实行语句直到条件成为 True
Until 关键字用于检查 Do…Loop 语句中的条件。有二种方式检查标准:在进入循环在此之前检查标准(如下边的 ChkFirstUntil 示例);可能在循环最少运维完二遍未来检查典型(如上面包车型地铁 ChkLastUntil 示例)。只要条件为 False,就博览会开巡回。 
 Sub ChkFirstUntil()
     Dim counter, myNum
     counter = 0
     myNum = 20
     Do Until myNum = 10
         myNum = myNum – 1
         counter = counter + 1
     Loop
     MsgBox “循环重复了 ” & counter & ” 次。”
 End Sub

澳门新葡萄京官网注册 1

a.申明变量

  注脚变量时,必须决定其名目和为其分配什么样的“数据类型”。
  使用 Dim 和 As“关键字”来声称变量,如下所示。

  Dim aNumber As Integer

  那行代码告诉程序您要使用一个名称叫 aNumber
的变量,
  并且愿意它是储存整数(Integer 数据类型)的变量。

  因为 aNumber 是贰个Integer,所以它只可以存储整数。
  比方要存款和储蓄 42.5,需采取 Double 数据类型。
  若是要存款和储蓄一个单词,需利用 String 数据类型。
  此外后生可畏种在这里值得大器晚成提的数据类型是 Boolean,它可存储 True 或 False 值。

 Sub ChkLastUntil()
     Dim counter, myNum
     counter = 0
     myNum = 1
     Do
         myNum = myNum + 1
         counter = counter + 1
     Loop Until myNum = 10
     MsgBox “循环重复了 ” & counter & ” 次。”
 End Sub

澳门新葡萄京官网注册 2

b.给变量赋值

  使用 =
符号(该符号一时称作“赋值运算符”)给变量赋值,如下例所示。

  aNumber = 42

  那行代码的值为
42,它存储在原先宣称的名字为 aNumber 的变量中。

退出循环
Exit Do 语句用于退出 Do…Loop 循环。因为经常只是在有个别特殊情状下要分离循环(比如要制止死循环),所以可在 If…Then…Else 语句的 True 语句块中应用 Exit Do 语句。假若基准为 False,循环将照常运作。
在上边包车型地铁亲自去做中,myNum 的早先值将产生死循环。If…Then…Else 语句检查此条件,幸免出现死循环。 

 

c.注明变量和用暗许值给变量赋值

  如上所示,您能够在风度翩翩行代码上宣示变量,然后在另大器晚成行上赋值。
  然则,借使尝试在赋值前应用变量,这会变成错误。

 
由此,最佳在风姿罗曼蒂克行上宣示变量和给变量赋值。
  固然还不理解变量要存款和储蓄什么值,也得以赋私下认可值。
  对于日前展现的那个变量,注明和赋值代码能够是底下那样。
  Dim aDouble As Double = 0
  Dim aName As String = “default string”
  Dim YesOrNo As Boolean = True

======================================

 Sub ExitExample()
     Dim counter, myNum
     counter = 0
     myNum = 9
     Do Until myNum = 10
         myNum = myNum – 1
         counter = counter + 1
         If myNum < 10 Then Exit Do
     Loop
     MsgBox “循环重复了 ” & counter & ” 次。”
 End Sub

 

2.单词和文书:使用字符串变量来组织单词

“字符串”是不管三七八十风姿洒脱生龙活虎种类文件字符,比方字母、数字、特殊字符和空格。

 String 变量的开创方法与别的变量同样:
 首先注明变量,然后为其赋值,如下所示。

 Dim aString As String = “This is a
string”
 
 将实际文本(也叫做“字符串”)赋值给 String 变量时,
 文本必需用双引号 (“”卡塔尔国 括起来。
 也可应用 = 字符将叁个 String 变量赋值给另贰个 String 变量,
 如下例所示。
 
 Dim aString As String = “This is a string”
 …
 Dim bString As String = “”
 bString = aString

 后边的代码将 bString 的值设置为与 aString
(This is a string卡塔尔(قطر‎ 相似的值。
 能够行使“and”符 (&卡塔尔按梯次将多少个或三个字符串归总成八个新字符串,如下所示。
 Dim aString As String = “Across the Wide”
 Dim bString As String = “Missouri”
 Dim cString As String = “”
 cString = aString & bString
 包括在 cString 中的文本以后突显为 Across the Wide Missouri。

========================

使用 While…Wend
While…Wend 语句是为那多少个掌握其用法的顾客提供的。不过出于 While…Wend 贫乏灵活性,所以提出最佳使用 Do…Loop 语句。 
使用 For…Next
For…Next 语句用于将语句块运转内定的次数。在循环中央银行使流速计变量,该变量的值随每叁次巡回扩大或调整和缩小。
比方说,上边包车型地铁演示将经过 MyProc 重复施行 50 次。For 语句内定流速計变量 x 及其初叶值与终止值。Next 语句使流量计变量每趟加 1。 

Dialog("Login").WinEdit("Agent Name:").Set "hhzq"

3.数组:表示多少个值的变量

 在上生龙活虎课中,大家上学了利用变量存款和储蓄分歧品类的数额以供程序行使。
 还会有另风流洒脱种名为“数组”的变量,
 它提供了朝气蓬勃种方便人民群众的方式来存款和储蓄同生机勃勃品种的几个值。

 Sub DoMyProc50Times()
     Dim x
     For x = 1 To 50
         MyProc
     Next
 End Sub

 使用描述性编制程序

a.声美素佳儿数组

 比方,借使您要为少年老成支棒球队设计程序,并想存款和储蓄场上全部队员的真名。
 您能够成立八个独立的字符串变量,每一个队员一个,
 或许声美赞臣(MeadjohnsonState of Qatar(Nutrilon卡塔尔(قطر‎个像样于以下代码的数组变量。

 Dim players() As String

 您能够经过在变量名称从今今后加括号来声称二个数组变量。
 假如你理解需求仓库储存多少个值,也得以按如下所示在证明中钦定数组的分寸。

 Dim players(8) As String

 您或者会发觉双方不相配,数组大小是 8
而棒球队有 9 个队员。
 那是由于数组是由众多值或“成分”所结合,以成分 0 早先,
 以宣称中钦定的数字截止。
 在本例中,数组包括成分 0 到 8,总共 9 个要素。

驷比不上舌字 Step 用于内定计数器变量每一回扩张或回落的值。在底下的演示中,流量计变量 j 每回加 2。循环结束后,total 的值为 2、4、6、8 和 10 的总量。 
 Sub TwosTotal()
     Dim j, total
     For j = 2 To 10 Step 2
         total = total + j
     Next
     MsgBox “总和为 ” & total & “。”
 End Sub

澳门新葡萄京官网注册 3

b.为数组赋值

 与别的项目的值同样,您要求为数组赋值。
 为此,需引用成分编号作为赋值的风流罗曼蒂克局部,如下所示。

 players(0) = “John”
 players(3) = “Bart”
 
 在以上代码中,值 John 赋给数组的第三个因素(元素 0),
 值 Brett 赋给第多个因素(成分 3)。
 数组成分没有必要按序赋值,任何未赋值的要素都将有一个私下认可值,
 在本例中为空字符串。

 与别的品种的值同样,您可以在单身的生机勃勃行上宣示三个数组并为它赋值,
 如下所示。

 Dim players() As Integer = {1, 2, 3, 4,
5, 6, 7, 8, 9}

 在本例中,大括号表示值列表。
依据所列顺序给成分赋值。
 注意,未钦点数组的分寸——它决意于所列项的多少。

要使流速计变量依次减少,可将 Step 设为负值。那个时候流速計变量的停下值必需低于初叶值。在底下的演示中,流速計变量 myNum 每一回减 2。循环截至后,total 的值为 16、14、12、10、8、6、4 和 2 的总额。

澳门新葡萄京官网注册 4

c.从数组中检索值

 正如在数组中用数字内定某大器晚成项之处同样,用成分编号来钦命所要检索的值。

 Dim AtBat As String
 AtBat = players(3)

 以上代码检索数组中的第多个要素并将它赋给字符串变量
AtBat。

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

Dialog("text:=Login").WinEdit("nativeclass:=Edit","attached text:=Agent Name:").Set "htest"

d.示例 在数组中存放值

 Dim players() As String = {“Dan”, “Fred”, “Bart”, “Carlos”, _
     “Ty”, “Juan”, “Jay”, “Sam”, “Pedro”}
 Dim i As Integer = CInt(Textbox1.Text)
 MsgBox(players(i) & ” is on first base.”)

 注意,上边的代码应用 CInt 函数将 String
值 (TextBox1.Text卡塔尔(قطر‎
                       转换为 Integer (i)。

====================================

Exit For 语句用于在计数器达到其终止值早前退出 For…Next 语句。因为平时只是在有些特殊情形下(举例在发生错误时)要退出循环,所以能够在 If…Then…Else 语句的 True 语句块中动用 Exit For 语句。假使基准为 False,循环将照常运作。

2、函数(转自

4.算法:创设富含变量和平运动算符的表明式

 表明式”是生机勃勃段代码,它试行运算并重临值。
 比方,上面突显一个简约的加法表明式。

 5 + 4

 表明式 5 + 4 在思量时重临值 9,
 它由两有的组成:
 试行运算的值即“操作数”(5 和 4),
 以至钦点要施行的演算的“运算符”(+卡塔尔(قطر‎。

使用 For Each…Next
For Each…Next 循环与 For…Next 循环相像。For Each…Next 不是将语句运转钦命的次数,而是对于数组中的每一个成分或对象集结中的每风流洒脱项重复风姿洒脱组语句。那在不知底群集兰秋素的数码时十三分实惠。
在以下示例中,Dictionary 对象的从头到尾的经过用于将文件分别放置在五个文本框中: 

一、Function与Sub概述:
Sub(子进度):
sub是Subroutines的缩写,它的野趣是子程序,它是将生龙活虎段具有某种特定作用的语句区块单独编写成三个独门的主次,给与一定名称

a.使用由说明式再次回到的值

 要使表明式有用,必需对回到的值实行部分拍卖。
 最广泛的做法是将它赋给有些变量,如下所示。

 Dim anInteger As Integer = 5 + 4

 本示例评释了多个名称叫 anInteger 的新的
Integer 变量,
 并将 5 + 4 再次来到的值赋给它。

 <HTML>
 <HEAD><TITLE>窗体与成分</TITLE></HEAD>
 <SCRIPT LANGUAGE=”VBScript”>
 <!–
 Sub cmdChange_OnClick
    Dim d                   ‘创造一个变量
    Set d = CreateObject(“Scripting.Dictionary”)
    d.Add “0”, “Athens”     ‘增加键和种类
    d.Add “1”, “Belgrade”
    d.Add “2”, “Cairo”

Function(函数):表示各种输入值对应唯大器晚成输出值的后生可畏种对应提到
,具有 Sub 的职能。

b.算术运算符

 表达式常用于对变量实践运算:加法、减法、乘法或除法。
 下表描述了常用的算术运算符。

 运算符             说明               
示例 

“+”(加)  重返三个操作数之和         5 +
4
 
“-”(减)  再次来到七个操作数之差         5 – 4
 
“*”(乘)  重回七个操作数之积         5 * 4
 
“/”(除)  再次来到七个操作数之商         5 / 4
 
 推行运算时行使的变量类型可影响结果。
 将四个数相除平常招致再次来到的值不是整数。
 例如,3 除以 2,结果是 1.5。
 如若将此表明式的回来值赋给四个 Integer 变量,
 它将会舍入为与其最相像的整数 2。
 实行除法时,应该接收 Double 变量存储再次回到的值。

========================

    For Each I in d
        Document.frmForm.Elements(I).Value = D.Item(I)
    Next
 End Sub
 –>
 </SCRIPT>
 <BODY>
 <CENTER>
 <FORM NAME=”frmForm”

二、Function与Sub异同
相同点:
1)Sub和Function都是 vbscript 的过程,
2)能够传递参数,
3)是事情操作或业务管理的卷入,都能够被另行调用。

5.相比较:使用表明式相比值

 在本课中,您将学习如何利用“相比运算符”来创立相比值的表明式。

 在上意气风发课中,您读书了怎么利用算术运算符成立数值表明式并赶回数值。
 另风流倜傥种运算符,也便是“比较运算符”,
 可用于相比数值并赶回 Boolean(True 或 False)值。

 相比运算符最常用于值的可比,并经过比较作出决定。
 使程序在二种只怕的情事之直接受:
 If…Then 语句司令员会深刻研商怎样在程序中作出决定。

 下表总结了比较运算符:

运算符                    
说明                            示例 

=(等于)   
假设左侧包车型客车数字相当于侧面的数字,重返 True。      5 = 4 (falseState of Qatar
                                                         4 = 5 (false)
                                                         4 = 4 (true)
 
<>(不对等) 要是左侧包车型地铁数字不等于左侧的数字,重返 True。    5
<> 4 (trueState of Qatar
                                                         4 <> 5
(true)
                                                         4 <> 4
(false)
 
>(大于)    假若左边的数字高于左边的数字,重返 True。      5 > 4
(trueState of Qatar
                                                         4 > 5
(false)
                                                         4 > 4
(false)
 
<(小于)     假如侧面的数字小于左侧的数字,再次来到 True。     5 < 4
(falseState of Qatar
                                                         4 < 5
(true)
                                                         4 < 4
(false)
 
>=(大于或等于)
          假如左侧的数字高于或等于左边的数字,重临 True。    5 >= 4
(true卡塔尔
                                                          4 >= 5
(false)
                                                          4 >= 4
(true)
 
<=(小于或等于)
          要是侧边的数字小于或等于右侧的数字,重返 True。    5 <= 4
(falseState of Qatar
                                                          4 <= 5
(true)
                                                          4 <= 4

 <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>

不同点:

(true)

1)Sub无再次来到值,而Function可以有再次回到值。
2)调用Sub 和 Function也不同

6.使Computer推行某种操作:编写您的首先个进度

三、举例[援引在此以前互连网看的一个事例]:
世家应该都通晓的谈恋爱的进度。某人只想知道她谈恋爱的进度(Call
SubState of Qatar。有些人既想明白进程,又要了然最终结果有未有成婚(Call
Function卡塔尔国

a.什么是经过?

  进度是可以从其余轮代理公司码块中运作的自身饱含的代码块。
  经常来说,每种进度都包蕴完成风流浪漫项职分所需的代码。
  举例,您也有二个名叫 PlaySound
的长河,此进度包蕴播放波形文件所需的代码。
  即令你能够编写制定代码以便在历次程序需求发出声音时播放声音,
  但创建能够从程序中的任何职分调用的二个经过更有意义。

 
进程是经过在代码中调用它来运营或实践的。
  举个例子,若要运转 PlaySound
进度,只需向程序中增加风流倜傥行李包裹蕴进程名称的代码,如下所示。

  PlaySound

 
那样就足以了!当程序运转到该行时,它将跳至 PlaySound
进程并执行这里所蕴涵的代码。
  然后程序将跳回至紧跟在 PlaySound 调用后的下一行。

 
您能够恣意调用放肆三个经过。进程将按调用的次第运转。
  举例,您恐怕还应该有多少个名称为 DisplayResults 的进程;
  若要在实行 PlaySounds
进度后进行它,请按如下所示调用那八个经过。

  PlaySounds
  DisplayResults

譬如:谈恋爱这一个历程,由给MM打电话、陪MM逛街、给MM送礼物等等动作结合。

b.函数和 Sub

  有二种过程:函数和子例程(不时也可以称作“Sub”)。
  函数对调用它的历程再次来到二个值,而 Sub 则只进行代码。
  如下例所示,当向程序中增添意气风发行包罗 Sub 的名目标代码时,将调用对应的
Sub。

  DisplayResults

 
函数则差别,因为函数不独有施行代码,还要回来叁个值。
  比如,设想二个名称为 GetDayOfWeek 的函数,它回到贰个 Integer
以提醒当天是星期几。
  可以按如下所示的秘诀调用此函数:
 
先声爱他美(Beingmate卡塔尔(قطر‎个存款和储蓄重临值的变量,然后将重临值赋给该变量以供之后选用。

  Dim Today As Integer
  Today = GetDayOfWeek

  在本示例中,将函数重回的值复制到名字为Today 变量中并蕴藏以便稍后使用。

那么,Sub 谈恋爱(卡塔尔(قطر‎和Function
谈恋爱(卡塔尔有怎么着不相同啊?

c.编写进程

  通过先编写制定进程注明来编排进程。
  进度表明施行以下几项职责:建议进程是三个函数仍旧二个 Sub,命名经过,
  并详细表达经过或许有所的此外参数(本课前面将详细商酌参数)。
  上面是二个轻易易行进程注明的亲自去做。

  Sub MyFirstSub()
  End Sub

  Sub 关键字通告顺序此进度是二个 Sub
並且不重返值。
  紧接着是 Sub 的名称 (MyFirstSub卡塔尔,空括号表示此进度并未有别的参数。
  最终,End Sub 关键字表示此例程的最后。
  此 Sub 要实践的有所代码都位居这两行以内。

 
表明函数与此相近,但还或者有八个附加的步骤,
  即必需内定再次回到类型(举个例子 Integer、String 等)。
  比如,再次来到三个 Integer 的函数或许如下所示。

  Function MyFirstFunction() As Integer
  End Function

  As Integer 关键字表示此函数将赶回三个Integer 值。
  要从函数中重返值,请使用 Return 关键字,如下例所示。

  Function GetTheNumberOne() As Integer
    Return 1
  End Function

  此进程将重回数字 1。

1)Sub 谈恋爱
Sub 谈恋爱()
   给MM打电话
   陪MM逛街
   给MM送礼物
End Sub

d.函数和 Sub 中的参数

  有的时候你要求为经过提供任何音信。
  举例,在 PlaySound 进程中,您可能想要播放三种不一样声音中的大器晚成种。
  您可以经过动用参数提供要播放的鸣响的音讯。

  参数与变量特别相像。
  它们有档案的次序和名称,并像变量相符存款和储蓄音讯。
  它们能够像变量相通在经过中接收。
 
  参数和变量的四个重点差距是:
  参数是在经过申明中声称的,并非在单个代码行中申明的。
  参数只可以在宣称它们的经过中应用。

 
在经过证明中,参数在跟随进度名的括号中扬言。
  As 关键字用来声称类型,并且各个参数前边日常都有 ByVal 关键字。
  若是你不加多此主要字,Visual Basic 会自动抬高它

  下面展现了八个暗含参数的 Sub
的演示。

  Sub PlaySound(ByVal SoundFile As String,
ByVal Volume As Integer)
  My.Computer.Audio.Play(SoundFile, Volume)
  End Sub
 
  您随后就可以按如下所示用那几个参数的值调用此 sub。

  PlaySound(“Startup.wav”, 1)

  也得以用与申明 sub
参数完全肖似的方法宣示函数参数。

===========================================================
7.使程序重复施行操作:用 For…Next , Do…While, Do…Until

调用方法:因为Sub未有再次回到值,只要在代码中:
Call 谈恋爱(State of Qatar

循环实践循环

2)Function谈恋爱
Function 谈恋爱()
   给MM打电话
   陪MM逛街
   给MM送礼物
   If (mm愿意和他成婚State of Qatar Then
       谈恋爱 = 成功
   Else
       谈恋爱 = 失败
   End If
End Function

a.For…Next 语句

  编写程序时,日常供给再行操作。
  举例,要是您要编写制定多少个在显示屏上呈现生龙活虎多元数字的法子。
  您愿意根据须要数次重复显示数字的那行代码。
 
  For…Next
循环允许钦赐二个数字,然后按钦赐的次数重复该循环内蕴涵的代码。
  下边包车型大巴身体力行表明 For…Next 循环在代码中怎么着冒出。

  Dim i As Integer = 0
  For i = 1 To 10
    DisplayNumber(i)
  Next
 
  For…Next 循环以“流速计变量”i 先河。
  该循环使用此变量来估测计算它早就举行的次数。
  下风姿洒脱行 (For i = 1 to 10State of Qatar 告诉程序该循环的双重次数以至 i 将有着的值。

  代码步向 For…Next
循环时,它将从满含第贰个值(本例中为 1)的 i 开首。
  然后程序实施 For 行和 Next 行之间的代码行,
  本例中是用 i 的有些参数(本例中仍是 1)调用 DisplayNumber 方法。

  当达到 Next 行时,将 1 增添到
i,然后程序的试行再跳回到 For 行。
  此重复直到 i 的值超越 For 行中的第三个数字(本例中为 10)时才休憩。
  当时,程序继续试行 Next 行后的其他代码。

调用方法:因为Function有重返值,所以可以把函数重临值赋给变量,只要在代码中:result
= 谈恋爱(State of Qatar

b.Do…While 语句

  举例,假若您的一个顺序要将风度翩翩多元数字相加,但和不能够超过 100,
  这个时候你能够运用 Do…While 语句试行相加,如下所示:

  Dim sum As Integer = 0
  Do While sum < 100
    sum = sum + 10
  Loop

  在上述代码中,Do While 行总结变量
sum,看它是还是不是低于 100:
  假设是,则运营下生机勃勃行代码;不然,将移步到 Loop 之后的下风华正茂行代码。
  Loop 关键字告诉代码再次来到到 DoWhile 行并思忖 sum 的新值。

3、For 
循环(转自

c.Do…Until 语句

  Do…While 语句在条件保险为 True 时再度三个循环往复,
  但你不时候大概希望代码在基准成为 True 以前再度小编。
  您可以按如下所示使用 Do…Until 语句:
 
  Dim sum As Integer = 0
  Do Until sum >= 100
    sum = sum + 10
  Loop

  此代码与 Do…While
语句的代码相像,只是本次代码是总结 sum 变量,
  看它是还是不是等于或高于 100。

  Dim sum2 As Integer = 0
  Dim counter2 As Integer = 0
  Do Until sum2 >= 100
    sum2 = sum2 + CInt(Textbox1.Text)
    counter2 = counter2 + 1
  Loop
  MsgBox(“The loop has run ” & CStr(counter2) & ” times!”)

====================================================

For循环的格式:

8.使前后相继在三种大概的情事之间接选举取:If…Then , Select Case 语句

For 循环变量 = 初值 To 终值 [Step 步长]
  step 2 就是i=i+2

a.If…Then 语句

  程序需求施行不风度翩翩的操作以响应不一致的尺码。
 
比如,您可能希望程序检查当天是星期几,然后依据检查的结果实践不生机勃勃的操作。
  If…Then
语句允许你总括三个准则,然后根据此规范的结果运营代码的不等段。

  上边包车型地铁身体力行演示了 If…Then
语句如何实行。
 
  If My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Monday Then
    MsgBox(“Today is Monday!”)
  End If

[循环体]

b.Else 子句

  您曾经看到在标准为真正处境下怎么样运用 If…Then 语句运维代码,
  但要是想要在一个尺度为真时运转生机勃勃组代码,
  而在该原则为假时运维另意气风发组代码,该怎么做呢?
  在这里种情状下,能够应用 Else 子句。
  Else 子句允许你钦命在某条件为假时运营的代码块。
  上边包车型大巴演示演示了 Else 子句怎么样进行。

  If My.Computer.Clock.LocalTime.DayOfWeek
= DayOfWeek.Friday Then
    MsgBox(“Today is Friday!”)
  Else
    MsgBox(“It isn’t Friday yet!”)
  End If

Next [循环变量]

c.使用 Select Case 管理多项接纳

  在这里黄金年代课,您将学习应用 Select Case
语句来运作基于多个规范的代码。

  在上后生可畏课您读书了什么样采取 If…Then
语句对不一样的法规运营不一样的代码块。
  就算经过应用 ElseIf 关键字能够在 If…Then
语句中总计五个以上的口径,
  但 Select Case 语句提供了总计多少个标准的越来越好办法。

  Select Case
语句允许你依据必要选用多少个规范(或景况),
  方便地编写有八种增选景况下的代码。
 
  Dim Number As Integer = CInt(Textbox1.Text)
  Select Case Number
    Case 1
      MsgBox(“Less than 2”)
    Case 2 To 5
      MsgBox(“Between 2 and 5”)
    Case 6, 7, 8
      MsgBox(“Between 6 and 8”)
    Case 9 To 10
      MsgBox(“Greater than 8”)
    Case Else
      MsgBox(“Not between 1 and 10”)
  End Select

========================================

注意:

9.出错开上下班时间怎么做:管理错误 Try…Catch…Finally 块

  程序运转中产生的谬误称为“运维时不当”。
  当叁个主次试图做一些其布置效能之外的事体时,便会发出运营时不当。
 
比如,假使程序试图实践违规操作(如将三个非数值字符串调换为多少个数值),
  就能发生运维时不当。

  出现运营时不那时候,程序会产生特别,
  以便通过在前后相继内搜寻用于管理错误的代码来管理错误。
  假如未找到那样的代码,程序将不为已甚并供给再度起动。
  由于上述情形可能形成数据遗失,
  最棒在恐怕预知错误发生的其余地点均创制错误处理代码。

1) 当步长 > 0 时

a.Try…Catch…Finally 块

  在代码中得以接纳 Try…Catch…Finally 块来拍卖运维时不当。
  您能够 Try 风流浪漫段代码,
  假设这段代码发出极度,它将跳转到 Catch 块,然后履行 Catch
块中的代码。
  以上代码施行完后,施行 Finally 块中的全部代码。
  整个 Try…Catch…Finally 块由 End Try 语句截至。
  上边包车型大巴示范阐释了怎么样利用每叁个块。
 
  Try
  ‘ Code here attempts to do something.
  Catch
    ‘ If an error occurs, code here will be run.
  Finally
    ‘ Code in this block will always be run.
  End Try

  首先,施行 Try 块中的代码。
  如果运维中尚无生出任何错误,程序将跳过 Catch 块并推行 Finally
块中的代码。
  假若 Try 块中冒出了不当,施行调整会即刻跳转到 Catch
块,运维当中的代码,
  然后再运营 Finally 块中的代码。

循环施行的法规:循环变量 <= 终值

2) 当步长 < 0 时

巡回推行的尺度:循环变量 >= 终值

粗犷退出 For 循环,请使用 Exit
For。

举个例子1: 单击命令开关 Command1
后,前后相继弹出相当多新闻框,消息内容风度翩翩伊始是 1,最后是
100,每弹出贰次,音信内容加 1,也正是 1; 2; 3; …; 98; 99; 100。

VB 代码如下:

Private Sub Command1_Click()

Dim i As Long

For i = 1 To 100

MsgBox i

Next

End Sub

倘诺利用 For 语句,代码如下:

Private Sub Form_Load()

For i = 1 To 100

MsgBox i, vbInformation      /vbInformation
指展现Logo,下同

Next

MsgBox “Finished”, vbCritical

End Sub

举例2,While格式

若果不用 For 语句,大家能够这么做:

Private Sub Form_Load()

Dim i As Long

i = 1

While i <= 100 ‘使用 While 语句

MsgBox i, vbInformation

i = i + 1
‘那句话千万不可少!不然会引致死循环!!

Wend   ‘不能用end while

MsgBox “Finished”, vbCritical

End Sub

举例3,Do while

Private Sub Form_Load()

Dim i As Long

i = 1

Do While i <= 100 ‘使用 Do While
语句

MsgBox i, vbInformation

i = i + 1
‘那句话万万不可能少!不然会引致死循环!!

Loop

MsgBox “Finished”, vbCritical

End Sub

举例3 do until

假若连 Do While
都无法用,大家还能如此做:

Private Sub Form_Load()

Dim i As Long

i = 1

Do Until i > 100 ‘使用 Do Until
语句

MsgBox i, vbInformation

i = i + 1
‘那句话千万不可少!不然会导致死循环!!

Loop

MsgBox “Finished”, vbCritical

End Sub

 

 

发表评论

电子邮件地址不会被公开。 必填项已用*标注