vb快速入门

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