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 　　 函数调用 目标量=函数名( 参数 ) 原文链接：https://www.f2er.com/vb/259952.html