1、 时钟程序设计1 任务描述创建一个倒计时的简单应用程序。功能是：当在文本框内输入倒计时的分钟数后，单击“开始”按钮就开始倒计时，倒计时结束时，弹出“时间到！”的信2 界面设计添加的控件有：一个标签一个文本框一个命令按钮一个计时器控件设置对象属性：Form1 窗体： Caption”倒计时器”Label1 控件： Caption”请输入倒计时的分钟数”、AutoSizeTrueCommand1 控件：Caption ”开始”Text1 控件：Alignment”2-Center”Timer1 控件：Intervel”1000”3 代码设计 1.代码编辑器“通用”部分代码：Dim m As Lon
2、g 声明一个变量2.Command1 控件代码：使控件计时器开始工作Timer1.Enabled = True将分钟数转换为秒数，并保存在变量 m 中m = Val(Text1.Text) * 60改变标签控件的标题Label1.Caption = “现在开始倒计时“使命令按钮不可见Command1.Visible = False 3.Timer1 控件代码：Private Sub Timer1_Timer()当 timer1.enabled=true 时，本程序每秒自动执行一次每运行一次，就将 m 变量的值减 1 秒m = m - 1If m 0 Then 如果倒计时结束，则Timer1.E
3、nabled = False 关闭计时器MsgBox “时间到！ “, 0, “倒计时“Label1.Caption = “请输入倒计时的分钟数“Text1.Text = “ 清空文本框Command1.Visible = True 使命令按钮可见Else 否则显示倒计时数Text1.Text = mEnd IfEnd Sub4 保存和运行程序1. 保存工程（1）单击“ 文件” 菜单中的“保存工程”或单击工具栏上的“保存工程 ”按钮，系统弹出“文件另存为” 对话框，提示用户输入窗体文件名。将窗体文件名该为 Timer.frm。（2）紧接着出现“工程另存为 ”对话框，以来保存工程文件。将文件名改
4、为 Timerapp.vbp，然后单击“保存” 按钮。2.运行程序单击工具栏上的启动按钮就可以运行该时钟程序了。5 编译与打包1.编译应用程序编译应用程序就是把一个应用程序制成一个可执行文件，即.EXE 文件。这样程序被编译在磁盘上，应用程序就可以脱离 VB 环境，在操作系统下单独运行了。 编译方法：单击“文件”菜单中的“生成 Timerapp.exe”选项，出现“生成工程”对话框，在其中输入 Timerapp.exe，然后单击“确定”按钮就可以了。2. 打包如上所述，.EXE 文件可以脱离 VB 环境，在操作系统下单独运行，但不能简单地认为这样就可以将该.EXE 文件发布给他人，或者可以拷贝到活动磁盘上 带到任意的系统上去使用。因为在执行已编译的代码时，VB 要运行特定的运行库，但每台计算机安装的运行库不一定相同，因此必须创建一个安装程序来发布文 件。6 安装运行当用户需要在其它机器上运行已打包的程序时，必须进行程序安装。首先找到压缩包所在的目录，然后双击 Setup.exe 文件，Windows 就会执行 安装程序显示欢迎对话框，单击“确定”按钮后，系统将显示“安装程序”对话框。接下来的安装步骤和安装其他软件方法是一样的，不再赘述。 7 VB 应用程序开发的一般步骤1.设计应用程序界面2.设计对象属性3.编写代码4.保存和运行程序5.编译和打包6.安装运行
