不同作用范围变量的声明方式
作用范围              局部变量             模块级变量           公用变量
声明方式             Dim,ststic    Dim,private           Public
声明位置            过程内部               通用部分         模块的声明段
其他过程能否调用      不能                     能           能
其他模块能否调用      不能                    不能           能

2.      变量的声明技巧
           Public  strSQL  As  String
           Dim     intI    As  Integer
        由上面的两个例子可以看出声明变量时应该注意变量的命名规则
            变量类型 & 变量名
        变量一定要有意义,这样的好处是当看到变量时很快就能知道变量的类型从而避免了变量赋值时出现类型不匹配的错误,而且增加了程序的可读性.
3      在应用变量时一定要保正变量已赋初值.

二.    常量
        用户一但定义了常量,在以后的程序中不能再给这个常量赋新值,否则在程序运行时,vb会错误提示.
        定义常量的例子:
            Public  Const  Db_Name1   =  "f:\qqqq\db\zhang.mdb"    
                关键字     常量名     =      常量的值
一.    条件判断语句

     1 .   单行    if  ……  then  与 iif(  ……  ) 结构
           例:     If  Text1.Text = " " Then  msgbox “ 空值”
           例      strdata  =   iff(  a>b ,    text1.text ,   text2.text)
                 目标变量          条件       值1        值2
           当a>b = true 时      strdata=text1.text    
           当a>b= false 时      strdata=text2.text
     2.    if …..  then …..  else …….    end if
           例：If  Size > 0 Then
                   Text1.Text = ""   
               Else
                   Text1.Text = " ok "
               End If
          应该注意的是此种结构的书写格式!
     
3.   select  case 结构
当需要完成多重判定的任务时,可以使用select  case  结构
    语法:   Select   测试条件
            Case     表达式1
            语句组1
            Case     表达式2
            语句组2
             ……….
            Case     表达式n
            语句组n
            End  Select

二.        循环语句

     Vb主要有两种循环结构,即  do…..loop   和   for……next.
1.    do….loop 结构
       使用do 循环重复执行一语句块,并计算测试条件以决定何时结束循环,循环条件必须是一个数值或者值为true 或false 的表达式. Do….loop语句有四种形式:
           [1]   do while            [2]   do
                 …….                   ……..
                Loop                     Loop while

           [3]   do until             [4]   do
                  ………                  ……..
                Loop                     Loop until
           退出do循环用 Exit do
  2     for …….  Next  结构
        语法:    for   计数器=  初值  to 终值  
                 ………….
                 Next    
                 例:    dim   intz   as integer , inty  as  integer
                        For   intz =1 to 100
                        If   intz  mod  2  = 0 then inty  =inty+1     
                        next    
              其中的 计数器 ,初值 和 终值  都必须是数值型!
三.      定义过程和函数          

1.    定义过程   
      语法:  private  sub  P_fcz( )
             ………
             End sub
       例:    表格初始化.
              Private  sub  P_bgcsh( )
              With msflexgrid1
                      .TextMatrix(1, 0) = "考试编号"
                  .TextMatrix(1, 1) = "学号"
                  .TextMatrix(1, 2) = "姓名"
                  .TextMatrix(1, 3) = "班号"
                  .TextMatrix(1, 4) = "课程名称"
                  .TextMatrix(1, 5) = "分数"        
               End With   
               End sub
              过程调用 call 过程名
  2.    函数定义  
        语法: Function 函数名(参数 As 类型) As 类型
               …………
             End function
         例:   Function M_sf1(strn As String) As String
                Dim strSz As String, n As Integer, a As Integer, b As String
                n = Len(strn)
                strSz = " "
                a = n - 8 - 5
                If n = 1 Then strSz = "hello"
                If n = 2 Then strSz = "pool"
                If n = 3 Then strSz = "how do yu do"
                b = Mid(strn, 6, a)
               End Function
               函数调用   目标量=函数名( 参数 )

评论