1、本章学习目标n应知：工程的概念变量的作用及类型流程控制n应会：使用日期函数使用Timer控件定义变量条件判断语句项目1 制作显示时钟的程序 n制作一个用以显示时间的程序，程序的运行效果如图所示 任务1 新建一个工程 n运行VisualBasic 6.0，在弹出的“新建工程”对话框中选择“标准EXE”n更改工程的名称任务2 设计程序界面 更改窗口的BorderStyle添加Label1和Command控件更改Font和ForeColor颜色任务3 编写显示时间的代码 n在命令按钮的Click事件过程中输入以下代码：nPrivate Sub Command1_Click()n Label1.Cap
2、tion=TimenEnd Sub运行结果界面项目2 动态显示时间 n能不能够让程序自动地更新标签上的时间呢？在这个项目里我们就是要做一个能够自动更新时间的程序，让程序看起来更像一个时钟。任务1 使用Timer控件更新时间 nEnabled属性：决定Timer事件是否发生。nInterval属性：决定了两次 Timer事件发生的时间 间隔。以毫秒为单位，属性值在0到65535之间。编写代码n双击Timer1控件，在“Timer1_Timer()”事件过程里输入下列代码：Private Sub Timer1_Timer()Label1.Caption=Time 用Time函数获取得当前的系统时间
3、，End Subn修改命令按钮Command1的Click事件过程的代码：Private Sub Command1_Click()Timer1.Enabled=True 设置Timer1的Enable属性为TrueEnd Sub任务2 增加显示上下午的功能 n在Timer事件过程中，添加下面一段代码：nDim lhour As Long 定义一个lhour变量，用来记录当前时间的小时数。lhour=Hour(Time)用Hour函数获得系统时间的小时数，并赋值给lhour变量。If lhour=0 And lhour 12 Then 判断当前的小时数，如果在0到12之间则是上午。Label2.
4、Caption=“上午”Else 如果不是上午说明现在是下午。Label2.Caption=“下午”End If2.3 程序中的知识点 n变量 n赋值语句：变量名=值 n函数 n判断语句 2.4 小结 n本章学习了工程的概念，变量的相关概念。介绍了非常常用的Timer控件，并介绍了如何使用Timer控件，学习了一些相关的时间日期函数，最后学习判定结构。本章的内容虽然不是很多，但都是一些基础的、常用的、重要的内容，希望能好好地掌握。2.5 思考与练习题 n1如何设置工程的属性？n2Timer控件有哪个事件？它有哪两个常用的属性？这两属性的作用是什么？n3变量的作用是什么？n4变量类型的含义？n5程序代码的逻辑结构有哪几种？n6编写一段代码，实现下述功能：定义一个整数类型的变量，用于记录一个人的考试成绩。并对这个成绩进行判断，如果大于等于60分，则在Label1上显示“恭喜你，你及格了！”；否则，则在Label1上显示“很遗憾，你不及格！”。
