Label2.Caption = Time$ ztime = ztime - 1

Label1.Caption = \离考试结束还有\秒\ If ztime = 0 Then End End Sub 三、框架控件

1、框架控件的属性 1) Caption

该属性用来设置/返回框架控件的标题中的文本，是一个字符串，输入了以“&”开头的字符，则按Alt键加该字符键可以将焦点移到该框架中的控件上 2) BorderStyle

该属性用来设置/返回框架控件的边框样式

0-None 框架控件无边框，此时标题也会消失。 1-Fixed Single框架控件有固定的单线边框。（默认） 2、框架控件的事件

框架控件具有所有的鼠标事件。 3、框架控件的方法

框架控件具有Move和Refresh方法 4．框架控件的应用

1）必须要先画出框架，然后在框架内添加控件

2）框架外画其它的控件 ，需要先选中这些控件，然后执行“剪切”，将光标定位在框架内执行“粘贴” 四、焦点顺序

当对象得到焦点时，会触发GotFocus事件；而当对象失去焦点时，会触发LostFocus事件 。SetFocus方法可以将焦点转移到某个可以接收焦点的对象

焦点只能移动到可视的并且有效的对象上即Enabled和Visible属性都为True 控件属性中与焦点有关的属性 1) TabIndex 2) TabStop Ⅲ、小结

本次课学习了滚动条、时钟、框架控件，要会应用滚动条控件、时钟控件、框架控件的属性、事件、方法。 Ⅳ、作业

P152 一、18 二、8，9，13 三、6

第45、46课时

实验五 常用控件的使用 一、实验目的：

1、通过实验进一步掌握VB6.0的控件使用技术。 2、掌握滚动条、计时器和框架的用法 二、实验内容

1、课本例题、练习上机调试。

2、设计一个计时器，要求一秒一次跳动。 3、利用滚动条来控制一个标签的名称。

- 49 -

第47～50课时

课题：选择控制结构 教学目的:

1、掌握顺序结构的格式与用法 2、掌握选择结构的格式与用法 教学重难点：

1、选择结构的格式与用法

2、选择结构中的if块结构及if嵌套 教学方法： 多媒体教学 教学过程： Ⅰ、引入

VB采用的是结构化程序设计，有三种控制结构：顺序结构 、选择结构、循环结构，本节课讲解顺序结构、选择结构。 Ⅱ、新课 一、顺序结构 1、赋值语句LET

赋值语句的一般格式为： [Let]<名称>=<表达式>

1) “Let”是可选项，完成赋值功能只需“=” 2) “名称”是变量或属性的名称 3) “表达式”可以是算术、字符串、关系或逻辑型表达式，赋值号两边的数据类则必须一致

2、Unload语句

结束应用程序而从内存中卸载窗体 语法格式: Unload 对象名 Unload me 3、End语句

强迫结束一个程序或程序块的执行,可以被放入过程中的任何位置,程序正常结束应该卸载所有的窗体。 二、选择结构

选择结构：当设定条件成立时执行某些语句，条件不成立时则跳过这些语句或执行其它的语句。

选择结构中要使用选择语句，在VB中提供了两种语句：If语句和Select Case语句 1、单行结构条件语句

If 条件 Then 语句部分1 [Else 语句部分2] 简化：If 条件 Then 语句部分

说明：1）条件一般为关系表达式、逻辑表达式，也可以为算术表达式，非0为True，0为False；

2）语句块可以是一句或多句，若多句，语句间需用冒号分隔，而且必须在一行上书写。 3）If...Then 的单行格式不用 End If 语句。 例1：Private Sub Command1_Click() Dim a as integer

a = InputBox(\请输入a=\

If a / 3 = Int(a / 3) Then Print \能被3整除\

- 50 -