《VisualBasic教程》PPT课件.ppt

2.l Visual Basic语言,2.1.2 Visual Basic 的词汇集 “单词”是程序设计语言中具有独立意义的最基本结构。VB中的单词一般包括：运算符、界符、关键字、标识符、各类型常数等。,界符也称为间隔符，空格、括号以及除用字母串表示之外的运算符都可作为界符。 关键字又称保留字，是VB系统使用的。如Print、If、Else、End等。 标识符用来标记自定义的常量、变量、数组、自定义数据类型、自定义函数、自定义过程、控件等的名字。 标识符的命名长度不能超过255个字符，不能和系统的保留字同名 如：x_100、T、sum、max等,2.1.3 编码规则与约定,1、代码中，除汉字外，各字符应在英文状态下输入，字母不区分大小写 其中英文字母不区分大小写。系统保留字自动转换每个单词的首字母大写。 例如：Print “输出累计值为：”;A+B+C 这是一个例子 2、 除了双引号内和单引号后的字符外，其余符号(包括双引号、单引号、分号、冒号等)都是构成语言成分的字符。 3、语句书写自由 (1) 一行可书写几句语句，语句之间用冒号分隔; (2) 一句语句可分若干行书写，用续行符“ _”连接。 (3) 一行=255个字符 （空格+下划线）,4、注释有利于程序的维护和调试 (1)以Rem 开始的注释 (2)以西文状态的单引号 开始的注释 例: 开始注释 Text1.Text=“您好！” 在文本框中显示“您好！” (3)注释可以和语句在同一行并写在语句的后面，也可单独占据一行。但不能在同一行上将注释接在续行符之后。 (4)当需要将一条或多条连续的语句作为注释时，可以在“编辑”工具栏中选择“设置注释块”，取消注释块时选择“解除注释块”。 打开“编辑”工具栏方法：打开“视图”菜单中“工具栏”菜单项，再选择“编辑”命令即可。,语法,2.1 数据类型 2.2 常量和变量 2.3 运算符和表达式 2.4 常用内部函数 2.5数组 2.6程序控制语句,3.2 数据类型 3.2.1 数据类型 为了提高存放和处理各种类型数据的效率，程序将各种数据分类定义，确定其值域和存储空间。这种分类方法称为定义系统的数据类型 计算机数据分三大类：整数、小数和字符串。 每种数据类型占用一定的内存，允许存储一定范围的值，用标识符表示。,表2-1 Visual Basic中的数据类型,常量和变量,3.3 变量和常量 常量：程序运行过程中，值不变的量。 变量：程序运行过程中，值可变的量。 VB中对数据要求先定义，再引用。,3.2.3 变量 1、Dim语句显式声明变量 格式： Dim 变量名 As New 变量数据类型 例如： Dim n As Integer 声明变量n为整型变量 Dim c_star As String 声明变量c_star为字符串变量 Dim x As Integer，y As String声明变量多个变量,【例】声明部分变量 Dim I As Integer 将变量I声明为整型数据类型 Dim X5 As Single 将变量X5声明为单精度类型 Dim Myname As String 将变量Myname声明为字符串 I = 5 X5= 1.9 Myname =“ vb程序设计”,3.3.2 常量 常量是指在程序运行过程中始终保持不变的常数、字符串等。例如3.14,”r=“、”输入半径”等都是常量。,Dim I As Integer 将变量I声明为整型数据类型 Dim X5 As Single 将变量X5声明为单精度类型 Dim Myname As String 将变量Myname声明为字符串 I = 5 X5= 1.9 Myname =“ vb程序设计”,命名规则： 1.以字母或汉字开头，后可跟汉字、字母、数字或下划线组成，长度小于等于255个字符； 2.不要使用VB中的关键字； 3.VB中不区分变量名的大小写.,运算符和表达式,3.4.1 运算符 运算符是VB进行某种运算功能的操作符。VB的运算符包括算术运算符、字符串运算符、比较运算符和逻辑运算符。 1、算术运算符 表2-4 算术运算符及示例,3.4 运算符和表达式,【例】算术运算 运算符的优先顺序，从高到低的排序是： （1）（指数） （2）-（变号） （3）*/（乘除） （4）（整除） （5）Mod（取余） （6）+-（加减） 运算符的运算顺序从左到右。括号可以改变优先级别。,2、字符串运算符 用字符组成的字串称为字符串。 【例题2-10】字符串运算P35 表2-5字符串运算符及示例,3、比较运算符 比较运算符是比较两个数值的大小，其结果是逻辑真（Ture）或逻辑假（False）。 【例题2-11】比较运算P35 Dim a As Integer, b As Integer Dim result As Boolean a = 10 b = 5 result = ( a b ) result 值是 True result = ( a = b ) result 值是 False result = ( a = b) result 值是 False *比较运算的结果是布尔变量。比较运算自左向右，括号优先。,4、逻辑运算符 逻辑运算符是对两个逻辑值进行的运算，其结果是逻辑真（True）或逻辑假（False）。逻辑的基本运算关系是与、或、非 表2-7逻辑运算真值表P35 *F代表False，T代表True，And与，Or或，Not非。 *逻辑运算符的优先顺序：And、Or、Not,*表2-8 逻辑运算符及示例,【例题2-12】逻辑运算P36 5、运算的优先顺序 算术运算符、字符串运算符、比较运算符、逻辑运算符。,3.4 运算符和表达式 3.4.2 表达式 表达式是关键字、运算符、变量、常量、数组元素及对象的组合，用于数学运算、操作字符或数据。 【例题2-7】变量X的值为2，Y的值为8，则计算平均值的表达式为：P33 （X+Y）/ 2 其中X、Y为操作数，2为数字，+和/为运算符。又如： Lablel.Caption = “姓名” “先生”,A =10 B = 20 A =A+B B = A B A = A-B,函数,3.4.3 常用函数 数学函数 用来完成数学运算。 字符串函数 用来处理字符串。 字符串函数 判断函数 用来判断动作执行的结果。,【VB教程】常用内部函数,内部函数也称公共函数，是由VB系统提供的。 语法 函数名（参数1，参数2，）, 算术函数 函数名 返回类型 功 能 例 子 Abs (x) 与x同 x的绝对值 Abs (-50.3) Atn (x) Double 角度x的反正切值 4 * Atn (1) Cos (x) Double 角度x的余弦值 Cos (60*3.14/180) Exp (x) Double e（自然对数的底）的幂值 Exp (x) Fix (x) Double x的整数部分 Fix (-99.8) Int (x) Double x的整数部分 Int (-99.8) Log (x) Double x的自然对数值 Log (x)/Log (10) Rnd (x) Single 一个小于1但大于等于0的随机数值Int ( (6 * Rnd) + 1) Sgn (x) Variant x 0 返回1 Sgn (12) Integer x=0 返回0 Sgn (0) x0 返回-1 Sgn (-2.4) Sin (x) Double x的正弦值 Sin (30*3.14/180) Sqr (x) Double x的平方根 Sqr (4) Tan (x) Double 角度x的正切值 Tan (60*3.14/180) Val (x) Double 字符串的数值 Val (“24 and 57”) Asc (x) Integer 字符串首字母的ASCII代码 Asc (“a”) Chr (x) String ASCII代码指定的字符 Chr (65) Str (x) String 数值转换的字符串 Str (-459.65) Hex (x) String 十六进制数值 Hex (10) Oct (x) String 八进制数值 Oct (8),Rnd函数返回0和1（包括0但不包括1）之间的双精度随机数. 每次运行时，要产生不同序列的随机数，执行Randomize 语句. 例产生1-100的随机数: Int(Rnd *100)+1, 字符串函数 函数名 返回类型 功 能 Ltrim（字符串） String 去掉左面空格 RTrim（字符串） String 去掉右面空格 Trim（字符串） String 去掉前后空格 Left（字符串，长度） String 从左起取指定个数的字符 Right（字符串，长度）String 从右起取指定个数的字符 Mid（字符串，开始位置，长度）String 从开始位置起取指定个数的字符 InStr（开始位置，字符串1，Integer 串2在串1中最先出现的位置 字符串2，字符串比较） Variant Len（字符串） Variant 字符串长度 String（长度, 字符）String 重复数个字符 Space（长度） String 插入数个空格 Lcase（字符串） String 转成小写 Ucase（字符串） String 转成大写, 日期和时间函数 Day(日期) Integer 返回日期，1 31的整数 举例：Day（#2000/3/15#） 15 Month（日期）Integer 返回月份，1 12的整数 举例：Month（#2000/3/15#） 3 Year（日期）Integer 返回年份 Weekday（日期）Integer 返回星期几 Time Date 返回当前系统时间 Date Date 返回系统日期 Now Date 返回系统日期和时间 Hour（时间） Integer 返回钟点，0 23的整数 举例：Hour（#4:35:17 PM# ） 16 Minute（时间）Integer 返回分钟，0 59的整数 Second（时间）Integer 返回秒钟， 0 59的整数 例如：能显示日期时间的代码。 Private Sub Form_Load() labYear .Caption = Year(Date) 显示年份 labMonth .Caption = Month(Date) 显示月份 labDay .Caption = Day(Date) 显示日期 labTime .Caption = Hour(Now) & “:“ & Minute(Now) & “:“ & Second(Now) 显示时间 End Sub, 类型转换函数 转换函数 转换结果类型 CBool（x） Boolean CByte（x） Byte CCur（x） Currency CDate（x） Date CDbl（x） Double CInt（x） Integer CLng（x） Long CSng（x） Single CStr（x） String CVar（x） Variant CVErr（x） Error Str（x） Variant String 注意 1、转换函数的参数值必须对目标数据类型有效，否则发生错误。例如，把Long型数 转换成Integer型数，Long型数必须在Integer数据类型的有效范围之内。 2、所有数值变量都可相互赋值，在将浮点数赋予整数之前，VB要将浮点数的小数部 分四舍五入，而不是将小数部分去掉。 3、当将其他的类型转换为Boolean型时，0会转成False，而其他非零的值则True。 4、当将Boolean型转换为其他的数据类型时，False会转成0，而True会转成-1。 5、当其他的数值类型转换为Date型时，小数点左边的值表示日期信息，而小数点右边的值则表示时间。,输入数据的函数,InputBox()是提供从键盘输入数据的函数。利用它可产生一个对话框，提示用户输入数据并单击命令按钮。该函数返回值是字符串类型（String）。 InputBox（）的语法格式为： InputBox（提示信息，标题，默认值，位置）,观察下面的程序运行情况,Private Sub Command1_Click() A = InputBox(“A=“,”输入”,12,100,20),输出数据的方法,Print 是输出数据的一个重要方法。 Print方法输出数据的基本格式是： Print 输出内容1;/, 输出内容2;/, * 输出内容n *,3.6.1 数组的概念 3.6.2 静态数组及声明 3.6.3 动态数组及声明 3.6.4 数组的基本操作 3.6.5 数组的应用 3.6.6 控件数组 3.6.7 常用算法 *分类统计 *大量数据的输入和编辑 *数组排序（1） *数组中元素的插入和删除操作,数组,数组与数组结构 数组是按照一定顺序排列且具有相同性质的变量的集合。数组是连续可索引的具有相同数据类型的元素所组成的集合，其中每一元素具有唯一的索引号（Index），索引号又称数组索引下标，决定元素在数组中的位置。 数组包括动态数组和静态数组。 静态数组 静态数组指数组中的元素数目固定。 数组用Dim或Global语句定义。格式为： Dim 数组名 （Lower To Upper）As Type Lower是数组下标的下限，可选，默认为0；Upper是数组下标的上限。 例如： Dim Arrange_X(5 To 15) As Integer 11个元素，索引号从5到15 Dim Sum（4）As Double 5个元素，索引号从0到4,动态数组 动态数组在运行中，数组中的元素个数不是固定的。 （1）动态数组定义时，可以只定义数组名，而不定义数组的大小。 如：Dim DynArray（）。 （2）在程序执行过程中，可用ReDim语句修改数组的大小和上下界。 如：Dim File（） As Integer ReDim File（34） ReDim语句应用示例 Private Sub Form_Load() Dim a() As Integer Show ReDim a(800) k = 0 For x = 200 To 600 Step 3 If x Mod 8 = 0 Then k = k + 1 a(k) = x End If Next x ReDim Preserve a(k) For i = 1 To k Print a(i) Next i End Sub,* 多维数组 二维以上的数组称为多维数组，定义的格式： Dim 数组名（Lower To Upper，Lower To Upper）As 数据类型 *每对Lower和Upper的数量为数组的维数 例如：Dim Matrix（2，3）As Integer,例： 输入某小组5个同学的成绩，计算总分和平均分(取小数后一位) 本例利用InputBox函数来输入成绩，输入完毕后经过计算，再采用Print直接在窗体上输出结果 Private Sub Form_Load() Dim d(5) As Integer Dim i As Integer, total As Single, average As Single For i = 1 To 5 输入成绩 d(i) = Val(InputBox(“请输入第“ & Str(i) & _ “个学生的成绩“, “输入成绩“) Next i total = 0 For i = 1 To 5 计算总分和平均分 total = total + d(i) Next i average = total / 5 Print “总分：“ & total Print “平均分：“ & Format(average, “#.0“) End Sub,3.5 基本控制语句 3.5.1 顺序流程 3.5.2 逻辑判断与条件分支 3.5.3 循环结构 3.5.4 其他辅助控制语句 4.5 常用算法,基本控制语句,程序流程自顶向下的一行一行地执行，这种流程称为顺序流程，又称顺序结构。 2.5.1 赋值语句 用于给变量提供数据，具有计算和赋值两种功能。格式： 变量名 （Varname）= 表达式 或 对象名 （Object）.属性（Property）= 表达式 *注意事项P37 2.5.2 注释语句 注释语句用来说明程序语句的功能和作用。VB中用“ ”或Rem来标示一条注释语句。VB在执行中不执行注释语句。通常用“ ”来标示。 【例题2-14】注释语句P38,3.5 .1 顺序,逻辑判断可以实现程序的流程控制，使程序具有重复执行的能力。 2.6.1 IF语句 IF语句又称条件语句，是根据给定条件产生动作。 IF语句分为单分支、双分支和块分支三种格式，IF语句的格式为： （1）单分支格式 IF （Condition）Then Statement(循环体) End IF （2）双分支格式 IF （Condition） Then Statement 1 Else Statement 2 End IF,3.5.2 分支,（3）块分支格式 IF （Condition 1） Then Statement 1 Elseif Condition-n Then Statement-n Else Statement m End IF *IF语句开始用IF，结束用End IF。两者必须成对出现。Condition为条件，如果条件为Null则等价于False。Else之前可以有多个Elseif句子。 内容为可选。,循环结构也称重复结构。VB的循环语句有For Next、Do Loop、For Each Next和While Wend四种循环结构。 2.7.1 For Next语句 For Next用于循环次数确定的情况下，语句的格式为： For Counter = Start To End Step Statements Exit For Next Counter *Counter是循环计数的数值变量，不能是逻辑或数组元素；Start是循环计数器的初值；EnD是循环计数器的终值；Step是循环计数器的步长，缺省值为1，用计值加步长至计数值等于End值；Exit For表示立即退出当前循环。,3.5.3 循环,例题2-19 P41 求1+2+3+100的和。 程序为： Sum = 0 For I = 1 To 100 Sum = I + Sum Next I Print “Sum is” & CStr（Sum）,2.7.3 Do Loop语句 Do Loop语句是最通用的