vb循环回顾

1.If语句

行:If 条件 then 语句组1 [else 语句组2]

块:if 条件 then

             [语句组1]

           [else

              [语句组2]

            ]

     end if       

2.Select case

 select case 表达式:

   [case 表达式列表1

           [语句块1]]

 [case 表达式列表2

           [语句块2]]

······

[case else

   [语句块n]]

End select

 

Private Sub Form_Click()

Dim intx As Integer

intx = InputBox("请输入x的值:")

Select Case intx

 Case Is < 0

  MsgBox "函数无定义"

  Case Is < 20

   MsgBox 25 * intx - 5

   Case 20 To 50

   MsgBox 50

   Case Is < 100

   MsgBox 5 * intx + 19

   Case Else

    MsgBox 100

    End Select

    

   

End Sub

 


3.for 循环

注意步长与初值和终值的关系

可用exit for 跳出循环

 

s=0

For i=1 to 100

 s=s+I

   If s>4000 then exit for

Next I


 

4.while 循环

例子:求1+2+···+100

Private Sub Form_Click()

 i = 0

 s = 0

(do) While i <= 100

  s = s + i

  i = i + 1

 wend( Loop)

  Print s

  

End Sub




 

5.Do 循环(可以用exit do 跳出循环)

      1. Do while                           

               循环体

          Loop

注意:do while 循环与while循环完全相同,即首先判断条件,当条件成立时重复执行循环体。(例子如上)

      2.do ···loop while

注意:此循环是先执行一次,再判断条件。当条件成立时,重复执行循环。

             Do

                     循环体

             Loop  while 条件

例子:

Private Sub Form_Click()

Dim i As Integer

Dim s As Integer

 

   i = 0

   s = 0

   

 Do

   s = s + i

   i = i + 1

 Loop While i <= 100

 

 Print s

 

End Sub


            

               3.Do Until

  注意:DO until与DO  while结构类似,只是前者在条件不满足时成立,后者反之。

例子:

Private Sub Form_Click()

Dim i As Integer

Dim s As Integer

 

Do Until i > 100

  s = s + i

  i = i + 1

Loop

  

  Print s

  

End Sub


 

             4.DO ···loop until

注意:Do ···loop until  结构与Do until 类似,只是前者是先执行一次循环,再判断,在条件不成立时重复执行循环体。

例子:

Private Sub Form_Click()

 Dim i As Integer

 Dim s As Integer

 

  Do Until i > 100

   s = s + i

   i = i + 1

 Loop

 

 Print s

 

End Sub


 

6.for each 循环

注意:for each 循环与for循环类似,但是for each用于数组或对象集合中的每一个元素重复一组语句,在数组中的运用我们并不陌生。

例子:

Private Sub Form_Click()

 Dim a(100) As Integer

  For i = 1 To 100

   a(i) = i

   s = s + a(i)

  Next i

   Print s

End Sub

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值