第2章顺序结构程序设计.ppt

《第2章顺序结构程序设计.ppt》由会员分享，可在线阅读，更多相关《第2章顺序结构程序设计.ppt（77页珍藏版）》请在三一办公上搜索。

1、第2章 顺序结构程序设计,2.1 基本概念及语法 2.1.1 数据类型 Visual Basic 6.0 提供的基本数据类型主要有11种。11种数据类型又被归为6大类，分别是：数值型、字符串型、逻辑型、日期型、对象型和变体型。1、数值型 Integer、Long、Byte、Single、Double、Currency都属于数值型。根据其数值又分为整型数和实型数。（1）整型 整型（Integer）和长整型（Long）这两个类型的数值都是用于保存带有符号的、不带小数点和指数符号的整数，初值为0。,整型（Integer）数据类型由数字和正负符号组成，不带小数点，可以在数据后面加尾符%来表示整型数据。

2、如：180，-388，92%。长整型（Long）数据类型也由数字和正负符号组成，不带小数点，可以在数据后面加尾符&来表示长整型数据。如：32487681，-625632789，3434&。1）表示十六进制时表示方法：在Integer数值前加&H，后接14位数字，如：&HFAFF，&HFA；在Long数值前加&H，后接16位数字，并且还要在数值后加&，如：&HFEEFFFF&。2）表示八进制时表示方法：在Integer数值前加&0或&，后接的数值范围为&0&177777，如：&0312，&32455；在Long数值前加&0或&，后接数值范围为&037777777777&，并且还要在数值后加&，如

3、：&0172828888&。,（2）实型 实型数包括单精度实型（Single）、双精度实型（Double）和货币型（Currency）三种。在Visual Basic中，单精度实型和双精度实型都有定点表示法和浮点表示法。1）定点表示法 单精度实型数据最多可以表示7位有效数字，精确度为6位，可以在数值后面加!。如：234！，43256.32！。双精度实型数据最多可以表示15位有效数字，精确度为14位，可在数值后面加#。如：32424.234#。2）浮点表示法 浮点数的表示由三部分组成：尾数部分、字母E或D、指数部分。如：43.324E-3，-2.832D16。3）货币型数据是精确的定点整数或实数

4、类型，用于货币计算。它的整数部分最多有15位数据，小数部分最多有4位数据，在数值后面加表示。如：67.2543，924.47。,2、字符串型 字符串是由一对双引号括起来的字符（不含双引号、回车符和换行符）集合。字符串内的汉字属于一个字符，但是还是占两个字节的存储空间；如果字符串内有双引号，可用连续的两个双引号“”表示字符串中的”。字符串数据分为定长字符串和变长字符串两种。（1）定长字符串 它的长度是固定的。字符串最多容纳64K个字符。例如定义变量str为30个字符长的字符型变量的方法为：Dim str As String*30。程序中如果字符串变量str的字符少于30，则自动右边补空格；若多于

5、30，则多余部分自动被截。（2）变长字符串 它的长度是可变的，那么计算机中的存储空间也是根据字符串的实际长度的变化而变化。变长字符串最多可容纳20亿个字符。例如定义变量str为字符串型变量的方法为：Dim str As String。,3、逻辑型 数值是真（True）、假（False）中之一，分别表示条件成立或不成立。默认的初值为False。4、日期型 日期型数据可以表示日期和时间，占用8个字节。表示日期：范围是100年1月1日9999年12月31日，表示为01-01-10012-31-9999。表示时间：范围是00点00分00秒23点59分59秒，表示为00:00:0023：59：59。默认

6、的初值是00:00:00。表示方法：（1）一般表示法 在表示时间日期的字符前后用#括起来。例如：#8-8-2008#，#2008-8-8 20:08:08PM#，#7 Dec#等等。（2）序号表示法 用数值表示日期，数值的整数部分表示距离1899年12月30日的天数，小数部分表示时间，0为午夜，0.5为正午12点。,5、对象型 对象(Object)变量作为32位(4个字节)地址来存储，该地址可引用应用程序中的对象。随后可以用Set语句指定一个被声明为Object的变量，去引用程序所识别的任何实际对象。默认的初值为Nothing（无指向）。例如：Dim objDb As Object Set o

7、bjDb=OpenDatabase(c:Vb6Biblio.mdb),6、变体型 Variant 变量能够存储所有系统定义类型的数据。如果把它们赋予 Variant 变量，则不必在这些数据的类型间进行转换；VB会自动完成任何必要的转换。例如：Dim SomeValue缺省为 Variant。SomeValue=“17”SomeValue包含“17”（双字符的串）。SomeValue=SomeValue-15 现在，SomeValue 包含数值 2。SomeValue=U&SomeValue现在，SomeValue 包含 U2（双字符的串）。,2.1.2 常量与变量1、常量 常量是指在程序运行过

8、程中其值保持不变的量。Visual Basic中常量分为直接常量和符号常量两种。(1)直接常量 直接常量就是在程序中，以直接明显的形式给出数据本身的数值。根据常量的数据类型和VB的数据类型，直接常量又分数值常量、字符串常量、逻辑常量和日期常量。例如：397，323.897，2.9E-3，“成功举办北京奥运会”，Ture，#2008-09-10 16:40:34#等等。(2)符号常量 如果直接常量在程序中多次重复出现，需要多次输入，这样既费力又容易出错。因此可以在程序中定义一个符号来代替这个数值，这个符号就是符号常量。,变量与常量,系统提供的内部常量【视图】|【对象浏览器】|VB或VBA对象库|

9、“类”列表框中选择常量组,定义符号常量的方法有三种：1）过程级符号常量 过程级符号常量只能在所定义的过程内起作用。声明的语法格式为：Const|As=表达式 其中：Const、As：语句关键字；常量名：遵循变量命名的规则；类型说明符|As 类型说明词：遵循表2.1里的类型；表达式：可以使用算术运算符和逻辑运算符，但不允许使用变量和函数。例如：Const aa As Single=360,2）模块级符号常量 模块级符号常量必须在模块的声明段中声明，声明了的符号常量可以在该模块的所有过程中使用。语法格式为：Private Const|As=表达式 例如：Private Const bb As Si

10、ngle=57.23）全局符号常量 全局符号常量只能在标准模块的声明段中声明，而不允许在窗体模块中声明，但在该程序的所有模块中都可直接使用。语法格式为：Public Const|As=表达式 例如：Public Const cc As Single=735.56,常量与变量,标识符常量普通常量 符号常量,标识符的命名规则是：由字母、下划线和数字组成，且第一个字符必须是英文字母；其长度不能超过255个字符；不能与关键字和系统已有的方法及属性同名。,10，3.14，0.12E+3、0.23D+3&25(或&O25，八进制数25)、&H25(十六进制数25)。字符串常量，如“常量&变量”。日期型常量

11、，#08/20/06#。逻辑型常量（True或False）。,符号常量的定义形式如下：Public|Private const 符号常量名 as类型=表达式例如：const pi=3.14。声明了常量pi，pi在程序中代表3.14。,2、变量 变量必须先按照命名规则定义，然后才能使用。(1)变量的命名规则 1）以字母开头，其后可接字母、数字或下划线，但是不能有标点符号，并且VB的关键字不能做为变量名使用。2）变量名的长度不能超过255个字符。例如：bjdm，jinedaxie，yx33_xx，文本内容，student_name等都属于合法的变量名。,(2)、变量的声明格式 Dim|Static

12、|Private|Public|As,|As 其中：Dim：关键字，声明为过程级动态变量或模块级变量。Static：关键字，声明为过程级静态变量。Private：关键字，声明为模块级变量。Public：关键字，声明为全局（项目级）变量。类型说明符、类型说明词：教材表2.1中的数据类型。例如：Dim sum as Integer 声明sum为整型变量,3、变量的作用域 声明了一个变量，那么这个变量就有了被识别以及作用的范围，这个起作用的范围就是变量的作用域，作用域可以是一个模块，也可以是整个项目，这取决于变量声明的方式。表2-2 变量的作用域及其声明方式,(1)过程级变量 过程级变量是只在声明它

13、们的过程内被识别和使用的变量，因此也称为局部变量。例如，在某模块内有btCmd1_Click、btCmd2_Click两个过程：Private Sub btCmd1_Click()Dim temp As Integer Static sum As Integer sum=sum+temp End Sub Private Sub btCmd2_Click()Dim dg As Currency End Sub,模块是指与一个窗体有关的全部事件过程。模块级变量是在整个模块内都起作用的变量，声明的位置是在该模块的顶部声明段，用Private或Dim关键字声明。例如：Public Class gyjc

14、lsForm Private sy As String Private flen As Long Private Sub Form_Load()End Sub,(2)模块级变量,Private Sub btCmd1_Click()Dim flag As Boolean End Sub Private Sub btCmd2_Click()End Sub,(3)项目级变量 项目级变量是在整个项目内都可以使用的变量，也就是说，项目级变量在整个项目内都起作用。声明项目级变量必须在主模块的顶部声明段用Public声明，项目级变量又被称为全局变量。例如：Module gdjxm Public UserId

15、 As String Public UserName As String,4、变体型变量 变体型（Variant）变量是在声明变量时指明类型为Variant的变量。如果声明变量时不声明变量的类型，则该变量被默认为是变体变量Variant。例如：Dim var 或 Dim var As Variant,标识符的命名规则是：由字母、下划线和数字组成，且第一个字符必须是英文字母；其长度不能超过255个字符；不能与关键字和系统已有的方法及属性同名。,下列可作为Visual Basic的变量名的是_。A）4*Delta B)Alpha C)4ABC D)ABE）filename F)A(A+B)G)25

16、4D H)Print,2.1.3 表达式与运算符 根据运算符功能的不同，将VB的运算符划分为5类：算术运算符、关系运算符、逻辑运算符、字符串运算符和日期时间运算符；根据运算符以及表达式的数值类型可以将表达式分为算术表达式、关系表达式、逻辑表达式、字符串表达式和日期表达式。1、算术运算符和算术表达式 算术表达式是通过算术运算符将数值常量、数值型变量、数值型函数连接起来完成算术运算的式子，算术表达式的运算结果为数值型。,运算符与表达式,算术运算符算术：+、-、*、/、mod注意：1.7.52=4，7.5/2=3.75 2.“20”*3=603.5+True=4 4.7 mod 4=3-5 mod

17、3=-2;5 mod-3=2,True-1 False 0,M/N的余数：M-N*（MN）,运算符与表达式,字符运算符字符：&、+功能：“+”和“&”连接两串字符串 区别：“+”要求运算对象均为字符型。“&”的运算对象若不是字符型，系统将自动转换为字符型，然后连接；若运算对象是变量，运算符“&”应与变量用空格分割,运算符与表达式,关系运算符=、=、（不等于）、Like（字符串匹配）、Is（对象引用比较）34,3=4,FalseTrue,abccd,逻辑运算符,Not and or xor eqv imp逻辑运算的操作数是逻辑型和数值型，当操作数是数值型数据时，则将数值转换为补码进行按位逻辑运算

18、,关系运算符和关系表达式 关系运算符又称比较运算符，是进行比较运算所使用的运算符，其结果为逻辑型。即关系成立取真值（True），否则取假值（False）。逻辑运算符和逻辑表达式 逻辑运算符是进行逻辑运算所使用的运算符，用于逻辑量间的运算，其结果仍为逻辑型，即True或False。字符串运算符和字符串表达式 字符串运算符用于连接两个字符串。,例21 用窗体单击事件过程显示日期时间数据的各种运算结果。程序代码如图2-1所示。,单击Cmd1按钮时的运行结果如图所示,6、复合表达式 例22 18 5 2+3 And 5*2=10。运算次序：先进行算术运算18 5、2+3、5*2，分别得13、5、10；

19、再进行关系运算13 5、10=10，其值都为True；再进行逻辑运算True And Flase，其值为True。例23 a+b*(c-5)+d*(e-5)2/2 运算次序：先从左至右计算括号内的表达式，之后为乘幂运算，然后为乘法运算，最后为加法运算。,2.1.4 常用内部函数 内部函数也称为标准函数。函数是一些特殊的语句或程序段，每一种函数都可以进行一种具体的运算。调用它们的方法各为：（1）有参数函数：函数名（参数列表）（2）无参函数：函数名 注意：（1）使用内部函数要注意参数的个数及其参数的数据类型。（2）要注意函数的定义域（自变量或参数的取值范围）。（3）要注意函数的值域。,1、数学运算

20、函数,2、字符串函数,3、类型转换函数,4、日期时间函数,5、其他函数（1）输入函数（InputBox）功能：在程序运行中，当遇到该函数时，将显示一输入对话框，提示和等待用户输入变量的值。格式：变量名=InputBox（,）1）变量名：用于存放InputBox函数的返回值，即用户输入的信息。2）提示信息：用于提示用户输入什么内容。3）标题：显示在输入框标题栏中的字符表达式。4）默认值：输入框弹出时就显示在文本框中的默认字符串表达式。5）x坐标、y坐标：成对出现，可选项。用于指定输入框在屏幕上显示的位置。如果省略，则输入框显示在屏幕中央。,例24 设计输入框，输入神七航天员出舱人员名单。其提示信

21、息为“请输入神七出舱航天员姓名(任选其一)：”和“翟志刚、景海鹏、刘伯明”，标题为：“航天员姓名”，输入框坐标位置为：x坐标=3000，y坐标=3000。,（2）、消息函数（MsgBox）功能：出现一个消息对话框，在此消息对话框中显示提示信息，等待用户单击按钮并返回一个整型数值，告诉应用程序用户单击的是哪一个按钮。格式：MsgBox（,）说明：1)提示信息：表示显示在对话框中的提示信息，可以是汉字，显示多行提示文字。2）按钮值：可选项，是数值表达式，表示在对话框中显示的按钮的数目、形式、图标样式和缺省按钮以及等待模式等信息。如表2-11所示。在此表的每组值中取一个数字相加，即可生成此参数值。如

22、果省略，则默认为0。3）标题：是消息对话框标题栏中的标题文字。如果省略，则自动把应用程序名放入标题栏。,answer=MsgBox(“病毒库已过期，请立即更新”,3+48+0,“反病毒软件6.0”）,例25 要求消息对话框显示【是（Y）】【否（N）】和【取消】按钮，并且显示【!】图标。分析：根据表2-11所示，显示【是（Y）】【否（N）】和【取消】按钮的按钮值是3，显示【!】图标的按钮值是48，3+48=51，所以MsgBox中的按钮参数的取值应为51。,（3）、格式输出函数（Format$）功能：使用Format函数指定的标准格式输出数值、日期、字符串等，一般用于Print方法。该函数返回一

23、个字符串类型的数据。格式：Format$（表达式,格式化符号）说明：1）表达式：是需要格式化的数值、日期和字符串类型表达式。2）格式化符号：表示输出表达式值时所采用的输出格式，要用引号括起来。格式字符串是由格式符构成的，如表2-12所示为常用数值格式符。如日期、字符串等其他格式符可以去查相关资料。,2.1.5 语句和方法 语句是由VB关键字、常量、变量、函数、表达式、对象名称、属性和方法等组成的指令。所谓方法，其实质就是系统提供的具有一定功能的程序，可以调用所需方法完成指定的功能，以免去应用程序开发人员编制该功能程序的麻烦。1、赋值语句 赋值语句是VB语句中最简单、使用频率最高的一种语句。其功

24、能是将指定的表达式值赋给变量。常用格式为：=例如：给变量名为kk的整型变量赋值的语句，kk=20。,不同类型数据的转换,当定义了变量类型后，赋值时必须赋相同类型的值，但很多情况下，赋值时表达式的值的类型并不完全和变量类型一致，这时，系统根据自动转换的原则将值转换成与变量相同的类型后赋值，一旦自动转换失败，则赋值也失败。,自动转换的原则,Integer型的数据可以直接赋给Long型变量当Long型数据未超出Integer型数据取值范围时可以直接赋值给Integer型变量数值型数据可以赋值给Boolean型变量，非0转换为True,0转换为FalseBoolean型数据可以赋值给数值型变量，Tru

25、e转换为1，False转换为0Single或Double型数据在未超出Integer型或Long型范围时，取离其最近的整数（四舍五入）赋值给Integer或Long型变量。Integer或Long型的数据可以直接赋给Single或Double型变量,自动转换的原则,数值型或Date型数据可以赋值给String型变量，将数值或日期外加双引号构成字符串，设str为String型变量,赋值语句str=1234将使str获得的值为”1234”，赋值语句str=#1/1/1970#将使str获得的值为”1970-1-1”。数值型数据可以赋值给Date型变量，数值将作为距离1899-12-30的天数，计算

26、出该数值表示的日期；设Dt为Date型变量，赋值语句dt=10将使Dt获得的值为#1/9/1900#。当String型数据中只包含表示数值的数字字符时，可以赋值给数值型变量，进而可以赋值给Date型变量当String型数据中只包含表示日期的字符时，可以赋值给Date型变量，赋值语句Dt=“1/1/1990”，Dt=“1990-1-1”,Dt=“1990年1月1日”都将使Dt获得的值为#1/1/1990#。Date型数据可以赋值给数值型数据，取值为距离1899年12月30日的天数，设I为Long型变量，赋值语句I=#1/1/1990#将使I获得的值为32874，即1990年1月1日距离1899年

27、12月30日32874天。0,使用赋值语句的要点：,赋值号左边只能是变量，不能是常量或表达式的形式一般要求赋值号两边的数据类型一致。若赋值号两边都是数值型，但类型不同，则系统先求出右侧表达式的值，然后将其转换为左侧数据的类型后，再完成赋值操作。如果赋值号左侧的数据类型为数值型，而右侧表达式为数字字符串，则系统将自动把表达式转换为数值式赋给左侧的数据；若右侧表达式为非数字字符串或空串时，则会出现数据“类型不匹配”的出错信息。如果赋值号左侧的数据类型为逻辑型，而右侧表达式为数值类型，非0转换为True,0转换为False赋给左侧数据,使用赋值语句的要点：,6.如果赋值号左侧的数据类型为数值型，而右

28、侧表达式为逻辑型，True转换为1，False转换为0赋给左侧数据7.如果赋值号左侧的数据类型为数值型，而右侧表达式为日期型，则系统将自动把日期型表达式转换为其约定对应的数值类型。8.如果赋值号左侧的数据类型为日期型，而右侧表达式为数值型，则系统将自动把数值型表达式的值作为距离1899-12-30的天数，计算出该数值表达式表示的日期，赋给左侧的日期型数据9.如果赋值号左侧的数据类型为日期型，而右侧表达式为数字字符或日期格式字符，则系统将自动把表达式转换为日期型赋给左侧的变量。10.如果赋值号左侧的数据类型为字符型，而表达式的值为任何非字符型，则系统会自动将表达式的值转换为字符型再赋值。,使用赋

29、值语句的要点：,11.区分赋值号和关系运算符中的判等号。12.不能采用数学的表达方式，给不同的变量赋相同的值例a=b=c=6应为：a=6:b=6:c=6,2、End和Rem语句 End语句的格式和功能：格式：End 功能：使正在运行的程序终止运行。Rem语句的格式和功能：格式：Rem 功能：对程序语句进行注释和说明，需在注释文字前加。,3、Print方法 Print方法在窗体、图片框、立即窗口、打印机等对象中，用来显示文本字符串和表达式的值。常用的语法格式为：.Print 表达式表，l;表达式表参数的语法格式为：Spc(n)|Tab(n),例2.6 在Form对象的Activate事件中输入下

30、面程序，试运行。,4、Cls方法 功能：将窗体（Form）、立即窗口（Debug）、图片框（PictureBox）等内部的文本内容清除。它默认的对象是窗体。,2.2 控件,Visual Basic的控件可分为三大类：内部控件、ActiveX控件和可插入对象控件。内部控件是VB提供的控件，都显示在工具箱中，不可删除 内部控件又分为一般类控件、选择类控件和图形图像类控件。在一般类控件中有标签、文本框、命令按钮、时钟和滚动条。对这些控件，都分别规定了相应的属性、事件和方法。窗体也是一种控件。,Visual Basic提供的图形控件包括图片框、图像框和直线、形状控件4种。其中，图片框、图像框都可以用来

31、加载图片。图片框（PictureBox）和图像框（Image）是VB中用来显示图形的两种基本控件，用于在窗体的指定位置显示图形信息。图片框和图像框的Picture属性用于返回/设置其中显示的图形。设置显示图形，设计阶段可直接利用属性窗口指定，运行阶段可使用LoadPicture函数加载，具体形式如下：对象名.Picture=LoadPicture(“文件名”),2.2.1 图片框和图像框,图片框比图像框更灵活，且适用于动态环境，而图像框适用于静态情况，即不需要再修改的位图、图标及Windows元文件。图片框和图像框以基本相同的方式出现在窗体上，都可装入多种格式的图形文件。其主要区别是图像框不能

32、作为父控件,且不能通过Print方法接收文本。见表2-13所示。,图像框与图片框的区别：,（1）图像框与图片框控件都支持相同的图片格式。支持的图片格式有：位图（.bmp）、图标（.ico）、增强型图元文件（.emf）、普通图元文件（.wmf）、位图（.gif，可支持256种颜色）、位图（.jpeg可支持8位和24位颜色）。图片框可以作为其它控件的容器，而图像框则不能。（2）图片框可以通过 Print 方法接收文本信息，而图像框则不能接收用 Print 方法输入的文本信息。（3）图像框比图片框占用的内存少，重新绘图和显示速度快，但支持的属性、事件、方法较少。,图像框与图片框的区别：,（4）图片框

33、PictureBox控件可以显示动态的图形信息，而图像框Image控件只能用来显示静态的图形信息。（5）调整图形大小时，在图片框中，利用 AutoSize 属性调整图片框大小适应图片；在图像框中，利用 Stretch 属性调整图片大小适应图像框。（6）Image控件没有Autosize属性，但可通过Stretch属性来确定是否缩放图形来适应控件大小，PictureBox控件中的图形不能伸缩。,例2.7 在窗体上建立一个图片框（）、一个图像框（）和2个命令按钮（）。操作步骤：（1）在窗体上建立一个图片框Picture1、一个图像框Image1和2个命令按钮Command1和 Command2。界

34、面设计如下图所示。,例2.7 控件属性,（2）编写Command1和Command2的事件代码如下：Private Sub Command1_Click()Picture1.AutoSize=True End Sub Private Sub Command2_Click()Image1.Width=2008 Image1.Height=2008 Image1.Stretch=True End Sub,程序运行结果如图2-10所示。,例2.8 将一个图片放入图像框，改变图像框的大小，观察图像框和图片的变化情况。设计界面如图所示，各控件的相关属性如表所示。,操作步骤：单击“改变大小”命令按钮时，执

35、行如下事件过程：Private Sub Command1_Click()Image1.Width=Image1.Width+100 Image1.Height=Image1.Height+100 End Sub 单击“退出”命令按钮时，执行如下事件过程：Private Sub Command3_Click()End End Sub,单击“还原”命令按钮时，执行如下事件过程：Private Sub Command2_Click()Image1.Left=1000 Image1.Width=2000 Image1.Height=1500 Image1.Top=240End Sub 执行后恢复图像框

36、原有的位置和大小。,控件计时器,功能：计时器可以在一定的时间间隔自动激发计时器事件（Timer）计时器常用属性 Enabled属性决定计时器是否开始计时。若属性值为True（默认值），表示启动计时器开始计时，False表示暂停计时器的使用。Interval属性设置计时器自动执行的时间间隔。设置的时间单位为毫秒，其范围是065535ms。若将Interval属性值设置为1000ms,则计时器每隔1秒自动执行一次。系统初始值设置为0。计时器事件计时器的主要事件是Timer。在Enabled属性值为True时，每隔Interval属性值指定的时间间隔触发一次该事件。,控件计时器,【实例】扩展,控件计

37、时器,例题所用函数：Int(x)函数功能：取不超过x的整数。例：int（3.5）的值3；int（-3.5)的值-4Rnd函数功能：产生一个(0,1)范围之内的实数例：Rnd*100 产生(0,100)之内的随机实数Int(Rnd*100)产生0,99之内的随机整数Int(Rnd*100)+10 产生10,109之内的随机整数Int(upper-lower+1)*Rnd)+lower,控件计时器,Randomize功能：保证每次运行程序时所产生的随机数与前一次的产生值无关QBColor（N）功能：设置颜色参数N：015的整数函数值：一种颜色值,Private Sub Timer1_Timer()

38、Dim colnum As Integer Randomize colnum=Int(16*Rnd)frmcalendar.BackColor=QBColor(colnum)End Sub,控件计时器,控件水平与垂直滚动条,关于滚动条属性Max和MinValueSmallchangeLargechange事件ChangeScroll函数RGB(red,green,blue)参数取值0255,-3276832767,控件,【实例】制作电子时钟.,操作步骤一 设计用户界面,操作步骤二 设置关键对象属性,操作步骤二 设置关键对象属性,操作步骤三 编写代码,计时器Timclock的Timer事件代码如

39、下：Private Sub tmrclock_Timer()imgchange1.Visible=False imgchange2.Visible=True lblclock.Caption=Time End Sub,操作步骤三 编写代码,计时器TimPicture的Timer事件代码如下：Private Sub tmrpicture_Timer()imgchange1.Visible=True imgchange2.Visible=False End Sub,操作步骤三 编写代码,滚动条的代码：Private Sub hsbtimer_Change()tmrclock.Interval=hsbtimer.Value tmrpicture.Interval=hsbtimer.ValueEnd Sub,