不同作用范围变量的声明方式作用范围              局部变量             模块级变量           公用变量声明方式             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               函数调用   目标量=函数名( 参数 )

评论