vb
快速入门 不同作用范围变量的声明方式 作用范围 局部变量 模块级变量 公用变量 声明方式 Dim,ststic Dim,private Public 声明位置 过程内部 通用部分 模块的声明段 其他过程能否
调用 不能 能 能 其他模块能否
调用 不能 不能 能 2. 变量的声明技巧 Public str
sql 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 msg
Box “ 空值” 例 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
函数调用 目标量=
函数名( 参数 )
