《visualbasic6.0语言基础》由会员分享，可在线阅读，更多相关《visualbasic6.0语言基础（65页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic 6.0 语言基础,计算机学院 何智涛,VB 第2-3讲,基本主题,编码基础 数据类型 变量与声明 分支、循环和控制 数组 过程，函数和调用方式,编码基础,编码基础,单行语句分成多行，使用续行符“ _” 。 将多个语句合并到同一行上 ，使用“:”来分隔。 一行允许有255个字符 在代码中添加注释 使用西文单引号 “ ”来标注一行； 使用“视图工具栏编辑”中的“设置/解除注释块”功能来标注一块注释或取消。,编码基础,Visual Basic 的命名约定 它们必须以字母开头。(也可以用中文) 它们不可以包含嵌入的句号或者类型声明字符（规定数据类型的特殊字符 “”, “$”）
2、。 它们不能超过 255 个字符。控件、窗体、类和模块的名字不能超过 40 个字符。*VB中汉字和西文字符都算作一个字，占两个字节。 它们不能和受到限制的关键字同名。包括预定义语句（比如 If 和 Loop）、函数（比如 Len 和 Abs）和操作符（比如 Or 和 Mod）。,可用关键字命名的特例,窗体和控件可以和受到限制的关键字同名。 例如，可以将某个控件命名为 Loop。但引用方法是特殊的。 Loop.Visible = True 出错 使用限定方法或加方括号 MyForm.Loop.Visible = True 用窗体名将其限定 Loop.Visible = True 方括号起了作用,
3、数据类型,数据类型,Numeric类型：Integer，Long，Single，Double，Currency。 Date类型：公元100/1/1 9999/12/31，0:00:00-23:59:59。 Boolean类型：True/False, -1/0, 非0和0 String类型: 0-65535个字符，“”， “ ” Object类型: 用于引用程序中的对象 Variant类型：,Date 数据类型,Date类型表示方法 表示法：用括起来的、字面上可被看作时间和日期的字符 1 Jan，97 1998-5-12 12:30:00 PM# 数字表示法：整数代表日期，小数代表时间 范围从公
4、元100年1月1日到9999年12月31日 0代表1900年1月1日 0:00 AM -2.5代表了1899年12月28日 12:00:00,Variant类型,变体类型：智能类型，可指代任何未定义的变量。 特殊值： Empty（空）：未赋值。 Null（无效）：数据不合法。 Error（出错）：过程中出现一个错误条件。 Nothing（无指向）：没有指向任何确定的对象。 VarType() 用来检测当前的变体变量中的数据类型。,自定义类型,使用Type可以来定义自定义类型 Type 自定义类型名 元素名(下标) As 类型名 End Type Dim 变量名 As 自定义类型名 注意： 自定
5、义类型必须在标准模块中定义，默认为Public 自定义类型元素可以为字符串类型，但必须定长 注意定义合理的自定义类型名称，以免造成与实际变量名的混淆,自定义类型举例,Type StudType intNo as Integer strName as String * 20 strSex as String * 1 SngMark(1 to 4) as Single sngTotal as Single End Type Dim Student as StudType Student.intNo = 3012 Student.SngMark(4) = 89.5,变量与声明,变量与声明,显式声明
6、Dim x Dim x as integer Dim x as integer, y as integer 隐式声明（均为Variant类型） Temp = Dialog1.Text1.Caption 声明强制手段，在模块文件的顶部填入Option Explicit 将强制用户对所有变量的显式声明 常量声明： Const PI 3.14159 系统常量 vbNormal = 0, 便于程序的阅读和理解,运算符,算术 “+”，“-”，“*”，“/”，“”【整除】，Mod 字符串 “&”：在进行连接前均强制转为字符型 “+”：要求两侧均为字符类型 关系 “”， “”， “”， “”， “Like”
7、(比较字符串模式)， “Is”(比较对象引用) 操作数为数值，按大小 操作数为字符型，按字符的ASCII码值从左到右依次比较 逻辑 Not，And，Or， Xor，Eqv 系统将以数值的二进制值逐位进行逻辑运算,表达式,书写规则 乘号不能省略 a*b OK! ab ? 括号成对出现，均使用圆括号“（）” 不同数据类型的转换 操作数的精度不一致，结果使用精度高的类型 Integer 关系 逻辑 (Var*5 = 100 ),基本语句,赋值 Let x = 5 交互 输入： InputBox(提示,标题,缺省,X坐标,Y坐标) StrA = InputBox(“请输入”，“输入框”，“A”) 输出
8、： 函数：变量% = MsgBox(提示,按钮,标题) 过程：MsgBox 提示,按钮,标题,分支与选择,分支选择,一条分支执行后，其他分支将不被执行 IfThen IfThenElse If.ThenElseIf Select Case,IfThen(单分支),If condition Then statement If x y Then t=x : x=y : y=t If condition Then statements End If If x y Then t=x x=y y=t End if,IfThenElse（双分支）,If condition Then statements
9、Else statements End If 举例 If x0 then y=sin(x)+sqr(x*x+1) Else y=cos(x)-x3+3*x End if,If.ThenElseIf（多分支）,用 If.Then.Elseif 块定义几个语句块，只执行其中一个语句： If condition1 Then 当条件1满足执行语句 1 statementblock-1 ElseIf condition2 Then 否则判断条件 2 statementblock-2 ElseIf condition3 Then 否则判断条件 3 statementblock-3 . Else 当所有以上
10、条件不满足，则执行语句 n statementblock-n End If,If.ThenElseIf举例,在StrC变量中存放了一个字符，判断该字符是字母、数字或其他 程序片断 If (strC = “a” And strc =“A” And _ strC = “0” And StrC =“9” then Print strC + “Is numeral Character” Else Print strC + “Is Other Character” End If,Select Case,Select Case testexpression Case expressionlist1 sta
11、tementblock-1 Case expressionlist2 statementblock-2 Case Else statementblock-n End Select,Select Case 举例,Select Case StrC Case “a” To “z”,“A” to “Z” Print strC + “Is Alpha Character” Case “0” To “9” Print strC + “Is numeral Character” Case Else Print strC + “Is Other Character” End Select 表达式写法 Case
12、 2,4,6 枚举形式 Case 1 to 19 范围，To两边可以为表达式 Case 2,4,6,Is 10 Is 关系表达式,IfThen & Select Case 举例,由计算机来给出一系列的110的操作数和运算符，学生输入答案，计算机根据学生的答案判断正确与否，当结束时给出成绩。 设计 界面设计（结果显示框，答案输入框，按钮，考题显示） 随机数产生运算数和运算符号，拼接为考题 用户输入答案，判断并打印结果 在结束时统计并打印成绩,循环与控制,循环,循环结构允许重复执行一行或数行代码。Visual Basic 支持的循环结构有： DoLoop ForNext For Each.Next
13、,Do Loop 的两种结构形式,形式1： Do While 语句块 Loop 先判断后执行，可能一 次也不执行,形式2： Do 语句块 Loop While 先执行后判断，至少执 行一次,Do Loop 的举例,Dim I as Integer, n as Long Dim t as Single, e as Single e=0 存放累加和结果 i=0 计数器 n=1 存放阶乘的值 t=1 第n项的值，初值为1 Do While t 0.00001 e = e + t 累加和 i = i+ 1 循环次数 n = n * i 连乘积 t = 1 / n Loop Print ,计算自然对数e
14、的近似值，要求误差小于0.00001，其计算公式为 e = 1 + 1/1! + 1/2! + 分析： 在不断循环的基础上进行累加和连乘。 用单项值的精度来控制循环的结束。 有几个循环呢？ 循环计数值如何用于计算？,ForNext,For 循环变量 = 初值 to 终值 Step 步长 语句块 Next 循环变量 注意： 初值只被赋值一次。 循环变量超过终值将终止循环。 循环终止后循环变量的值保持不变，注意处理。,ForNext循环嵌套举例,乘法九九表打印。 用循环变量作为乘数和被乘数即可解决。 用Picture.Print命令即可逐行打印结果 2. 上、下三角九九表打印？ 3. 注意 内外循
15、环变量不能同名，并列循环可以同名 内外循环不能交叉，可以嵌套,For Each.Next,For Each.Next 循环对数组或对象集合中的每一个元素重复一组语句，而不是重复语句一定的次数。如果不知道一个集合有多少元素， 该循环方式将非常有用。 For Each.Next 循环的语法如下： For Each element In group statements Next element,For Each Next 举例,Sub ListTableDefs () 将指定Mdb文件中的表名添加到链表List1中 Dim objDb As Database Dim MyTableDef as T
16、ableDef Set objDb = OpenDatabase(“c:vbbiblio.mdb“, True, False) For Each MyTableDef In objDb.TableDefs () List1.AddItem MyTableDef.Name Next MyTableDef End Sub Microsoft Excel电子表格文件处理,使用For Each Next 的限制,对集合，element 只能是 Variant 变量，或一般的 Object 变量 对数组，element 只能是 Variant 变量。 For Each.Next 不能与用户自定义类型的数组一起使用，因为 Variant 不可能包含用户自定义类型。,使用循环控制结构,在 VB中，控制结构的嵌套层数没
