第二章 用Visual Basic编程 一、教学内容 在这章里要求掌握VB编程的基本概念。 二、目的要求 1．熟悉VB程序中代码和语句书写规则； 2．掌握VB的数据类型；VB的 运算符和表达式的使用； 3．熟练掌握赋值语句、输入/输出消息框函数的使用； 4．掌握常用内部函数的使用； 三、教学重点与难点 教学重点：变量和常量的定义及使用、运算符和表达式的使用输入/输出消息框函数的使用、及常用内部函数的使用。 教学难点：数据类型、运算符与表达式。 四、教学方法 多媒体教学为主。适当提问，加深学生对概念的理解。 第一讲 （2学时） 一、教学内容 Visual Basic语言程序的构成、变量、常量的声明及使用。 二、目的要求 1．熟悉VB语言程序的构成。 2．掌握变量、常量的声明及使用。 三、教学重点与难点 教学重点：变量、常量的声明及使用。 教学难点： 变体类型数据的使用 四、教学方法 多媒体教学。 五、教学过程 2.1 Visual Basic程序的构成 1、传统流程图中的基本符号  2、三种基本结构的表示 （1）顺序结构  （2）选择结构  （3）循环结构   2.2.1 数据类型 1. 数字型 见书40页表2.1 2. 字符串型(String) 3. 布尔型(Boolean) 4. 日期型(Date) 5. 对象类型（Object） 6. 变体类型(Variant) 7. 用户自定义的数据类型 2.2.2 常量与变量 1. 常量 常量声明格式： [Public | Private] Const 常量名 [as type]=value 2. 变量 一、变量的命名规则 1. 以字母或汉字开头，后可跟字母、数字或下划线组成. 2. 变量名最长为255个字符； 3. VB中不区分变量名的大小写，不能使用VB中关键字； 二、声明变量有两种方式：显式声明和隐式声明。 (1) 显式声明语法 声明格式：Dim|Static|Public|Private <变量名> As <数据类型> 语句功能：声明变量并分配存储空间。 (2) 隐式声明语法 声明格式：Dim <变量名> （或者不声明变量，而直接使用变量） 2.2.3 变量作用域 不同作用域变量的声明方式 作用范围 局部变量 模块级变量 公共变量  声明方式 Dim，Static Dim，Private Public  变量的声明位置 过程内部 模块的声明段 模块的声明段  本模块中其他过程能否访问 不能 能 能  其他模块能否访问 不能 不能 能   六、小结 在这一讲里，我们要掌握变量，常量的声明及使用方法。要掌握变量有哪些类型，怎么使用它们，注意VB里的变体类型的变量，自定义变量等，以及常量的使用。 七、作业 习题2.1, 2.2. 第二讲 （2学时） 一、教学内容 Visual Basic中表达式、基本语句赋值语句的用法。 二、目的要求 1．熟悉VB语言中表达式的使用。 2．掌握赋值语句的使用。 三、教学重点与难点 教学重点：表达式，赋值语句。 教学难点： 赋值语句的用法 四、教学方法 多媒体教学。 五、教学过程 2.2.4 表达式 1. 算术运算符及算术表达式 ⑴“/”和“\”运算符的区别： （2） 写VB表达式时，要注意的几点 2. 字符运算符及字符表达式 字符运算符用于将两个字符型表达式连接生成一个新字符串。其运符主要有“+”运算符和“&”运算符 3. 关系运算符及关系表达式 4. 逻辑运算符及逻辑表达式 5. 运算符的优先顺序 在一个表达式中，如果同时有多个运算符存在，则它们的优先顺序由高到低依次为： 算术运算符→字符运算符→关系运算符→逻辑运算符 算术运算符的优先级顺序由高到低依次为： ∧（指数运算）；-（负数）；*，/（乘法，浮点除法）；\（整数除法）；Mod（取模运算）；+，-（加法，减法）。 其中，“*”，“/”具有相同的优先级；“+”，“-” 具有相同的优先级。 在关系运算符中，所有的运算符具有相同的优先级。 逻辑运算符的优先级顺序由高到抵依次为： Not（非），And（与），Or（或），Xor（异或），Eqv（同或），Imp（蕴含）。 用括号控制运算的优先次序可以是程序清晰易读，而且不易出错。 [例2.4] 写出VB表达式4*6>3*7 Or Not 5>2的值。 计算步骤如下： ⑴ 算术运算：24>21 Or Not 5>2 ⑵ 关系运算：True Or Not True ⑶ 逻辑运算：True Or False ⑷ 结果：True 2.3.1 赋值语句 赋值语句语法：变量名|对象的属性名=表达式 功能：将表达式的值赋给指定的变量或对象的属性。 说明：赋值语句在程序设计中的使用非常广泛，每一个赋值语句可以单独放在一行中，也可以将多条赋值语句放在一行中，但每一语句间必须用“：”冒号作为分隔符。 【例2.5】已知长和宽，求矩形的面积。 设计步骤如下： ⑴ 设计程序界面。选择“新建”工程，然后在窗体中增加一个标签Label1，一个命令按钮Command1和一个文本框Text1。 ⑵ 设置对象属性。如表2.8所示。 表2.8 属性设置 对象 属性 属性值  Label1 Caption 已知：长=5，宽=7  Label2 Caption   Command1 Caption 则矩形面积=   ⑶ 编写事件代码。 命令按钮Command1的Click事件代码为： Private Sub Command1_Click() Dim a As Single,b As Single,area As Single a=5 b=7 area=a*b Label2.Caption=Str(area) End Sub 六、小结 在这一讲里，我们要掌握表达式的的用法，知道六种表达式的用法及书写规则。还要利用赋值语句编写简单程序。 七、作业 补充课外习题 第三讲 （2学时） 一、教学内容 Visual Basic中输入、输出语句和VB提供的内部函数。 二、目的要求 1．掌握VB语言中输入、输出语句的用法。 2．掌握一些常用函数使用。 三、教学重点与难点 教学重点：输入、输出语句。 教学难点： 函数的使用 四、教学方法 多媒体教学。 五、教学过程 2.3.2 输入语句 语句格式：value=InputBox(message [,title [,default [,xcord,ycord] ] ]) 语句功能：产生一个具有提示信息并可供用户输入数据的对话框。返回字符串型数据。 例：输入一个整数，并在文本框Text1中显示输入的整数 程序代码为 Private Sub Form_Click() Dim temp As String, num As Integer temp = InputBox((请输入一个整数:(, (输入窗口演示() num = Val(temp) Text1.Text= (你输入的数是:( & num End Sub 输出语句 语句格式：MsgBox message [,buttons [, title] ] 函数格式：value=MsgBox ( message [,buttons [, title] ]) 例：利用MsgBox函数产生一个询问对话框，并根据用户的回答作出相应的操作。程序代码为： Dim value As Integer value = MsgBox((确定退出本系统吗？(, 1+32+0+0, (演示窗口() If value = vbOK Then End 如果不需要返回值，则可采用MsgBox的过程形式。 例：产生一个提示窗口，提示用户必须输入1~100之间的整数，窗口中只需一个“确定”按钮，则实现的语句为： MsgBox (请不要输入超过100的整数(，0+48+0+0 , (提示窗口( 函数 1. 算术运算函数 例：Abs（-8）=8 Sqr（25）=5 Sgn（8）=1 Sgn（0）=0 Sgn（-8）=-1 Fix（3.57）=3 Fix（-3.57）=-4 Int（3.57）=3 Int（-3.57）=-4 Exp（3）=e3 Log（3）=Ln（3）。 2. 字符串函数 例：Len（“World”）=5 Left（“Hello”，2）=“He” Right（“Something”，3）=“ing” String（3，“*”）=“***” InStr（“abc”，“ab”）=1 InStr（1，“pretty”，“re”）=2 Ucase（“World”）=“WORLD” Lcase（“World”）=“world” Chr（65）=“A” Str（65）=“65” Asc（“A”）=65。 3. 日期与时间函数 例：使用 Weekday 函数将日期转换为星期几。 程序代码如下： Dim MyDate, MyWeekDay MyDate = #08/16/2000# MyWeekDay = Weekday(MyDate) ( MyWeekDay的值为4，因为MyDate 是星期三 4. 转换函数 5. 判断与测试函数 6. 其他函数 (1) 随机数函数 语法：Rnd[(number)] 功能：产生一个0到1之间的随机数，不包括0和1。 例：使用 Rnd 函数随机生成一个 1 到 6 的随机整数。 MyValue = Int((6 ( Rnd) + 1) Randonmize语句的格式是：Randonmize[（x）] 六、小结 在这一讲里，我们要掌握VB语言中输入InputBox函数、输出语句MsgBox用做函数和过程的两种用法。掌握一些常用函数比如一些字符串函数的使用。 七、作业 习题2.3, 2.4,2.5,2.6