前言：可以看到，下面的总结分类没有顺序。其实每个程序里面都有顺序结构，默认程序从上往下执行这就是一个顺序结构。所以顺序结构其实在每一个程序里面都有。

选择

   if 语句                                       

            单行if 条件 then end if 

            多行

                   if 条件 then

                         语句块1

                   else

                                语句块2

                    end if

  多条件

                  if 条件 then

                       语句块1

                  elseif 条件 then

                          语句块2

                  elseif 条件 then

                        语句块3

                 else

                           语句块4

                 end if  

  select

             select  case 条件

               case 0

                case 1

               end select

循环 

 for    

       For i=条件 Step 1 ‘默认是1 step 步长值

            循环体

            Next

  do       

                 do   没有条件              do while'先判断条件          do                                             do until '条件flash才执行

                 loop                              loop                                      loop wheile '后判断条件       loop ‘也是有两种，先判断条件和后判断条件’

代码示例：

  

   

    

     

    
    

     

      顺序结构
     
    
   

    

     

    
    

     
    '赋值相容
     
    
   

    

     

    
    

     
    Dim x As Integer
     
    
   

    

     

    
    

     
    Dim y As String
     
    
   

    

     

    
    

     

          y = "100.23" '将数值形式的字符串赋值给y
     
    
   

    

     

    
    

     

          x = y '将字符串变量y赋值给整型变量x
     
    
   

    

     

    
    

     

          y = y + 20
     
    
   

    

     

    
    

     

          Text1.Text = x
     
    
   

    

     

    
    

     

          Text2.Text = y
     
    
   

    

     

    
    

     

      选择机构
     
    
   

    

     

    
    

     
    '一元一次方程
     
    
   

    

     

    
    

     
    dim x as dobule '用于判断
     
    
   

    

     

    
    

     
        If x < 1 Then '当x<1
     
    
   

    

     

    
    

     

              Print "y" & x
     
    
   

    

     

    
    

     
    ElseIf x >= 1 And x < 10 Then '当1≤x<10
     
    
   

    

     

    
    

     

              Print "y=" & (2 * x - 1) 'y的值是2x-1
     
    
   

    

     

    
    

     
    ElseIf x >= 10 Then '当x>10
     
    
   

    

     

    
    

     

              Print "y=" & (3 * x - 11) 'y的值是3x-11
     
    
   

    

     

    
    

     
    End If
     
    
   

    

     

    
    

     

      End Sub
     
    
   

    

     

    
    

     

      循环结构
     
    
   

    

     

    
    

     
     '九九乘法表
     
    
   

    

     

    
    

     

          Print Tab(30);
     
    
   

    

     

    
    

     

          Print Tab(31);
     
    
   

    

     

    
    

     
    For i = 1 To 9 '外循环一圈，内循环i圈
     
    
   

    

     

    
    

     
        For j = 1 To i
     
    
   

    

     

    
    

     

                  Print Tab((j - 1) * 8); j & "*" & j & "=" & j * i; '
     
    
   

    

     

    
    

     
        Next j
     
    
   

    

     

    
    

     

              Print
     
    
   

    

     

    
    

     
    Next i
     
    
  
 

文章来源: kangshihang.blog.csdn.net，作者：康世行，版权归原作者所有，如需转载，请联系作者。

原文链接：kangshihang.blog.csdn.net/article/details/95886688