热门搜索：
硕士/研究生
&&&&&&DOC文档下载
游客快捷下载
会员登录下载
下载资源需要5元
邮箱/手机号：
您支付成功后，系统会自动为您创建此邮箱/手机号的账号，密码跟您输入的邮箱/手机号一致，以方便您下次登录下载和查看订单。注：支付完成后需要自己下载文件，并不会自动发送文件哦！
支付方式：
已注册用户请登录：
当日自动登录&&
&&合作网站一键登录：
1、本站资源不支持迅雷下载，请使用浏览器直接下载(不支持QQ浏览器)；
2、文档下载后都不会有金锄头文库的水印，预览文档经过压缩，下载后原文更清晰；
3、所有的PPT和DOC文档都被视为“模板”，允许上传人保留章节、目录结构的情况下删减部份的内容；下载前须认真查看，确认无误后再购买；
4、所有文档都是可以预览的，金锄头文库作为内容存储提供商，无法对各卖家所售文档的真实性、完整性、准确性以及专业性等问题提供审核和保证，请慎重购买；
5、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确)，网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据；
6、如果您还有什么不清楚的，可以点击右侧栏的客服对话；
下载须知 | 常见问题汇总
西南财经大学09级vb期末笔试(B卷)
第1页共7页试卷B卷一、单项选择题（共40题，每题1分，共计40分）1、窗体设计器是用来设计（）。A、应用程序的代码段B、应用程序的界面C、对象的属性D、对象的事件2、在VB环境中，窗体文件的扩展名是（）。A、FRMB、BASC、VBPD、FRX3、启动VISUALBASIC以后，系统为用户新建的工程起一个名为（）的临时名称。A、工程1B、窗体1C、工程D、窗体4、在一行写多条语句时，用来分隔每条语句的符号是（）。A、，B、、C、D、；5、VISUALBASIC集成环境的大部分窗口都可以从主菜单项（）的下拉菜单中找到相应的打开命令。A、编辑B、视图C、格式D、调试6、双击窗体的任何地方，可以打开的窗口是（）。A、代码窗口B、属性窗口C、工程管理窗口D、以上3个选项都不对7、设在窗体上有两个命令按钮，其中一个命令按钮的名称为CMDA，则另一个命令按钮的名称不能是（）。A、CMDCB、CMDBC、CMDAD、COMMAND18、下面变量名写法错误的是（）。A、ABCB、ABC123C、ABC_123D、ABC1239、下面四项中合法的整型变量是（）。A、SUMB、MMC、NUMD、XY10、RND函数的值不可能是（）。A、0B、1C、09876D、0123411、已知A，则表达式VALRIGHTA,4MIDA,4,2的值为（）。A、567845B、5723C、567856D、573412、表达式LEN西南财经大学天府学院的值是（）。A、14B、10C、17D、2013、要使命令按钮不可操作，要设置的属性是（）。A、VISIBLEB、CAPTIONC、ENABLEDD、BACKCOLOR14、表达式11\311MOD3的运算结果是（）。A、3B、4第2页共7页C、5D、615、若要使某个控件获得焦点，可以通过（）方法实现。A、GOTFOCUSB、TABINDEXC、REFRESHD、SETFOCUS16、语句段A3B5TAABBT执行后，（）。A、A值为3，B值为3B、A值为3，B值为5C、A值为5，B值为5D、A值为5，B值为317、以下声明语句中错误的是（）。A、STATICXASINTEGERB、CONSTPI314C、DIMXD、DIMXABC18、如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（）。A、0B、1C、TRUED、FALSE19、当文本框的SCROLLBARS属性设置了非零值，没有效果，其原因是（）。A、文本框中没有内容B、文本框的MULTILINE属性为TRUEC、文本框的MULTILINE属性为FALSED、文本框的LOCKED属性为TRUE20、以下关于VB的叙述中正确的是（）。A、数组下标的下界在默认情况下从0开始B、DIMA，BASINTEGER变量声明语句将A、B声明为整型C、在VB中一个西文字符占一个字节，一个汉字占两个字节D、当BOOLEAN类型的值转换为数值类型的数时，FALSE转化成1。21、为了清除列表框中指定的项目，应使用的方法为（）。A、CLSB、CLEARC、REMOVED、REMOVEITEM22、设A2，B3，C4，D5，则表达式NOTA＜COR4CB＾2ANDB＜＞AC的值是（）。A、1B、1C、TRUED、FALSE23、我们可以在设计时属性窗口中和运行时程序代码中设置属性的属性值，以下关于属性设置的说法正确的是（）。A、在属性窗口中可以设置所有属性的属性值B、在程序代码中可以设置所有属性的属性值C、属性的名称由VB事先定义，用户不能改变D、所有对象的属性都是可见的24、下面程序段显示的结果是（）。DIMXXINTRND5SELECTCASEXCASE5PRINT不通过CASE4PRINT通过第3页共7页CASE3PRINT良好CASEELSEPRINT优秀ENDSELECTA、优秀B、良好C、通过D、不通过25、在文本框的属性中，用于设定文本框最多可接受字符数的属性是（）。A、AUTOSIZEB、PASSWORDCHARC、TEXTD、MAXLENGTH26、如果要求从文本框中输入密码时在文本框中只显示＃号，则应在此文本框的属性窗口中设置（）。A、TEXT属性值为＃B、CAPTION属性值为＃C、PASSWORDCHAR属性值为＃D、PASSWORDCHAR属性值为真27、运行下面的程序后，单击命令按钮，则在窗体上输出（）。PRIVATESUBCOMMAND1_CLICKPRINTFORMAT000ENDSUBA、B、1234567C、123457D、、下面程序段DIMXIFXTHENPRINTXELSEPRINTX1运行后，显示的结果是（）。A、1B、0C、1D、显示出错信息29、执行以下程序段AFORI6TO1STEP2XMIDA,I,IYLEFTA,IZRIGHTA,IZUCASEXYZNEXTIPRINTZ输出结果为（）。A、122121B、112112C、121D、、下列循环能正常结束循环的是（）。A、I5B、I1DODOII1II2LOOPUNTILI0LOOPUNTILI131、下列程序，第4页共7页PRIVATESUBTEXT1_CHANGEPRINTTEXT1TEXTENDSUB当文本框输入1234这4个字符时，窗体上显示的是（）。A、1234B、C、1D、432、复选框的VALUE属性为0时，表示（）。A、复选框未被选中B、复选框被选中C、复选框内有灰色的勾D、复选框操作有错误33、计时器控件，如果希望每秒产生10个事件，则要将INTERVAL属性值设为（）。A、400B、300C
本文（西南财经大学09级vb期末笔试(B卷)）为本站会员（haowendang）主动上传，金锄头文库仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对上载内容本身不做任何修改或编辑。
若此文所含内容侵犯了您的版权或隐私，请立即阅读金锄头文库的“”【网址:】，按提示上传提交保证函及证明材料，经审查核实后我们立即给予删除！
温馨提示：如果因为网速或其他原因下载失败请重新下载，重复下载不扣分。
分享当前资源【西南财经大学09级vb期末笔试(B卷)】到朋友圈，您即可以免费下载此资源！
微信扫一扫分享到朋友圈
操作提示：任选上面一个二维码，打开微信，点击“发现”使用“扫一扫”，即可将选择的网页分享到朋友圈
您可能感兴趣的------------------------------------------------------------------------------------------------------
元price_share
&|&川公网安备 12号&|&经营许可证（蜀ICP备号-1）(C) by Sichuan Goldhoe Inc. All Rights Reserved.
&strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>一、&/span>&/strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>本站提供全自助服务，购买后点击下载按钮可以下载到你电脑或手机（系统不会发送文档到您的邮箱），请注意查看下载存放位置；&/span>&/p>&p>&strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>二、&/span>&/strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>本站具有防盗链功能，所以不要使用迅雷、旋风、网际快车等第三方辅助下载工具（不支持&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>QQ浏览器&/span>），否则下载下来的文件只是网页或乱码；&/span>&br/>&/p>&p>&strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>三、&/span>&/strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>由于网络原因、下载知识欠缺、本地电脑&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>或&/span>手机阻止下载等问题无法解决时，需要提供以下&/span>&span style=&font-family: 微软雅黑, &Microsoft YaHei&; color: rgb(255, 0, 0);&>任意一条信息&/span>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>给我们，我们才能更及时地为你服务：&/span>&br/>&/p>&p>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>3.1、如果是注册的会员，请告诉我们你的会员账号；&/span>&/p>&p>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>3.2、如果是游客下载的，请告诉我们你下载时填写的手机或者邮箱；&/span>&/p>&p>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>3.3、如果是微信或QQ快捷登陆的，请告诉我们你的微信或QQ昵称；&/span>&/p>&p>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>3.4、如果这些你仍然无法确定，请告诉我们你的付款单号（我们可以通过单号反过来查询你的账号和下载记录）&/span>&a href=&https://www.jinchutou.com/i-93.html& target=&_blank& style=&text-decoration: color: rgb(255, 192, 0); font-family: 微软雅黑, &Microsoft YaHei&;&>&span style=&color: rgb(255, 192, 0); font-family: 微软雅黑, &Microsoft YaHei&;&>看看什么是单号？&/span>&/a>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>；&/span>&/p>&p>&strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>四、&/span>&/strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>需要下载哪份文档，请发送文档网址，而不是截图，更不要直接把标题给我们；&/span>&br/>&/p>&p>&strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>五、&/span>&/strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>其它下载常见问题详见：&/span>&a href=&https://www.jinchutou.com/info-0-23-1.html& target=&_blank& style=&font-family: 微软雅黑, &Microsoft YaHei&;&>https://www.jinchutou.com/info-0-23-1.html&/a>&br/>&/p>&p>&br/>&/p>" />
&span id=&_baidu_bookmark_start_2& style=&display: line-height: 0&>?&/span>&span id=&_baidu_bookmark_start_4& style=&display: line-height: 0&>?&/span>&/p>&p>&span style=&font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 background-color: rgb(255, 255, 255);&>& & 鉴于本网发布稿件来源广泛、数量较多, 系统审核过程只针对存在明显违法有害内容（如色情、暴力、反动、危害社会治安及公共安全等公安部门明文规定的违法内容）进行处理，难以逐一核准作者身份及核验所发布的内容是否存在侵权事宜, 如果著作权人发现本网已转载或摘编了其拥有著作权的作品或对稿酬有疑议, 请及时与本网联系删除。&/span>&/p>&p>&strong style=&color: rgb(102, 102, 102); font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 white-space: background-color: rgb(255, 255, 255);&>& & 侵权处理办法参考版权提示一文：&/strong>&a href=&https://www.jinchutou.com/h-59.html& target=&_blank& textvalue=&https://www.jinchutou.com/h-59.html&>https://www.jinchutou.com/h-59.html&/a>&span style=&color: rgb(102, 102, 102); font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 background-color: rgb(255, 255, 255);&>&&/span>&/p>&p>&span style=&color: rgb(102, 102, 102); font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 background-color: rgb(255, 255, 255);&>1、如涉及内容过多，需要发送邮箱，请电子邮箱到，我们会及时处理；&/span>&/p>&p>&span style=&color: rgb(102, 102, 102); font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 background-color: rgb(255, 255, 255);&>2、系统一旦删除后，文档肯定是不能下载了的，但展示页面缓存需要一段时间才能清空，请耐心等待2-6小时；&/span>&/p>&p>&span style=&color: rgb(102, 102, 102); font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 background-color: rgb(255, 255, 255);&>3、请版权所有人（单位）提供最起码的证明（证明版权所有人），以便我们尽快查处上传人；&/span>&/p>&p>&span style=&color: rgb(102, 102, 102); font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 background-color: rgb(255, 255, 255);&>4、请文明对话，友好处理；&/span>&/p>&p>&span style=&color: rgb(102, 102, 102); font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 background-color: rgb(255, 255, 255);&>5、为了杜绝以前再有类似的侵权事情，可以为我们提供相应的关键字，便于管理人员添加到系统后能有效排除和抵制与您（贵单位）相关版权作品上传；&/span>&/p>&p>&span id=&_baidu_bookmark_end_5& style=&display: line-height: 0&>?&/span>&span id=&_baidu_bookmark_end_3& style=&display: line-height: 0&>?&/span>&/p>" />
&span style=&color: rgb(85, 85, 85); font-family: 微软雅黑; background-color: rgb(255, 255, 255);&>& & 为了维护合法，安定的网络环境，本着开放包容的心态共建共享金锄头文库平台，请各位上传人本着自律和责任心共享发布有价值的文档；本站客服对于上传人服务前，有以下几点可提前参阅：&/span>&/p>&p>&span style=&color: rgb(85, 85, 85); font-family: 微软雅黑; background-color: rgb(255, 255, 255);&>1、本站上传会员收益见：&a href=&https://www.jinchutou.com/h-36.html& target=&_blank&>https://www.jinchutou.com/h-36.html&/a> &/span>&/p>&p>2、本站不会为任何刚注册的上传会员特批解除上传限制，普通会员每天可以上传50份，值班经值会审核其上传内容，请自行观察自己上传的文档哪些在“临时转换中”（审核通过），哪些在审核拒绝中，连续坚持几天都没有任何文档被拒的情况下，根据文档质量和发布分类是否正常等考量合格后值班经理会特批升级会员等级，相应的权益也同时上升。&/p>&p>3、上传人本着友好、合作、共建、共享的原则，请耐心仔细的查看《&a href=&https://www.jinchutou.com/i-143.html& target=&_blank&>违禁作品内容处理规则》；&/a>&a href=&https://www.jinchutou.com/i-143.html& target=&_blank&>https://www.jinchutou.com/i-143.html&/a>&/p>&p>4、上传人可以观注本站公告，查看其它被公示永久封禁的原因&a href=&https://www.jinchutou.com/news-1.html& target=&_blank&>https://www.jinchutou.com/news-1.html&/a>&/p>&p>5、其它问题可以参阅上传常见问题指引：&a href=&https://www.jinchutou.com/info-0-25-1.html& target=&_blank&>https://www.jinchutou.com/info-0-25-1.html&/a>&/p>" /> 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
6.3滚动条和计时器
下载积分：900
内容提示：6.3滚动条和计时器
文档格式：PPT|
浏览次数：3|
上传日期： 08:05:16|
文档星级：
全文阅读已结束，如果下载本文需要使用
 900 积分
下载此文档
该用户还上传了这些文档
6.3滚动条和计时器
关注微信公众号本文将写一个简单的复合控件TimeLabel
1.打开VS2010，依次点击文件-新建-项目，如图：
选择Windows窗体控件库
在解决方案里可以修改下.cs文件名
当然也可以使用默认的
2.点击确定之后
设计窗口会出现一个150*150的容器
从工具箱里面拖一个Label控件到容器上
在拖一个Timer控件过来，将timer1的Interval属性设置为1000毫秒
PS：简单的说一下Timer控件，Timer控件也就是计时器控件，有两个重要的属性Interval和Tick事件，当Timer控件的Enable的属性设置为True时，计时器启动每经过Interval设定的时间间隔后就会执行Tick事件，直到其Enabled属性为false。
3.双击timer1控件，转至代码设计界面
using System.Collections.G
using System.ComponentM
using System.D
using System.D
using System.L
using System.T
using System.Windows.F
namespace NumTextBox
public partial class UserControl1 : UserControl
public UserControl1()
InitializeComponent();
this.timer1.Enabled = true;//将计时器的enabled属性设置为true使计时器一开始就处于可用状态
private void timer1_Tick(object sender, EventArgs e)
this.label1.Text = DateTime.Now.ToString();//将系统时间转换成String类型添加到label的Text属性上
4.F5启动调试
一个简单的复合控件就完成了
5.关闭测试容器，切换到设计界面，选中容器，将容器的Size设置为160,12
选中label1将属性设置为：
6.为了能适用不同的时间格式，可以为控件设置属性并公开。
切换到代码设计界面，修改一下代码：
using System.Collections.G
using System.ComponentM
using System.D
using System.D
using System.L
using System.T
using System.Windows.F
namespace TimeLabel
public partial class TimeLabel : UserControl
public enum timeStyle
LongDateString,
LongTimeString,
ShortDateString,
ShortTimeString,
private timeS
public timeStyle Type
get { return }
set { type = value; }
public TimeLabel()
InitializeComponent();
this.timer1.Enabled = true;
protected void timer1_Tick(object sender, EventArgs e)
{//根据选择调整显示
switch (type)
case timeStyle.LongDateString:
this.label1.Text = DateTime.Now.ToLongDateString();
case timeStyle.LongTimeString:
this.label1.Text = DateTime.Now.ToLongTimeString();
case timeStyle.ShortDateString:
this.label1.Text = DateTime.Now.ToShortDateString();
case timeStyle.ShortTimeString:
this.label1.Text = DateTime.Now.ToShortTimeString();
case timeStyle.String:
this.label1.Text = DateTime.Now.ToString();
this.label1.Text = DateTime.Now.ToString("yyyy年MM月dd日 hh:mm:ss");
重新启动调试
运行效果如下：
阅读(...) 评论()设计“万年历小时钟”程序
&& 设计“万年历小时钟”程序
【教学目标】
1、知识目标：掌握外部控件的调用方法；初步学会时钟控件的使用方法；掌握时间函数timer的使用方法；学会设置蜂鸣声的方法。
2、能力目标：通过使用外部控件日历和计时器控件，进一步扩展学生VB编写程序的思路。
3、情感与态度目标：进一步培养学生学习vb程序设计的兴趣和热情,更深层次地认识VB程序开发的奥妙。
【教学重、难点】
1、重点：计时器控件的使用方法和外部控件的调用方法
2、难点：计时器控件属性的设置和Timer事件代码的编写
【教学准备】多媒体网络教室、课件、电子学案等（提前下发到学生机）
【教学方法】本节课采用任务驱动、自主探究、小组合作法
【小组评价方法】：每个小组都是一棵大树，根据发言精彩和任务完成情况组长相应的给自己的小组添加树叶和果子，发言一般的添加树叶、发言精彩的添加果子，三片树叶可以换成一个果子，最后根据果子和树叶的数量评选优秀小组。
【设计意图】本课接触的新知识点和思维点比较多，外部控件、计时器控件、Timer函数、设置蜂鸣声，在窗体中加载图标都是新知识。本课将这些内容用一个完整的程序贯穿，课堂上教师先演示完整程序的运行情况，然后采用传统的任务驱动法实施教学，将任务分解成多个小任务，让学生在完成任务的过程中体验成功。
【教学过程】
一、范例展示，导入新课
（屏幕广播）展示万年历小时钟.exe，问：请同学们观察一下这个程序的外观与前几节课生成的可执行文件有什么不同？学生回答——图标不同，这个是时钟图标，教师双击打开范例：（在屏幕中央显示万年历和当前时间，当前时间每秒钟变化一次并发出蜂鸣声）
问：当前的时间变化和发出的蜂鸣声有什么规律吗？学生回答。
那如何用VB来完成这个程序呢？
今天这节课我们就来学习一下第4课 设计“万年历小时钟”程序（课件出示课题），请同学们翻开课本第24页。
二、明确目标，有的放矢
请一学生代表阅读读课件中出示的本节课学习目标， 其他同学认真观看明确目标。
三、实战演练，探究新知
&首先请同学们分析一下完成这个程序需要插入几个控件？
大部分学生回答两个：万年历控件和标签框控件。教师补充VB中提供了一种“计时器”的控件来计时，计时器每隔一定的时间间隔产生一次timer事件。可以根据这个特性按时间控制某些操作。
教师演示修改源程序中的计时器控件interval属性为后的示例程序；以及timer事件的意义和作用。
一）、学案导学，自主学习
请同学们认真阅读课本28-29页的知识集装箱，完成下列问题：
1、计时器控件，也叫&&&&&&&&&
，是&&&&&&&&&&
的控件。它在运行程序的时候不&&&&&&&
，也不能&&&&&&&&&
2、时钟控件只有一个&&&&&&&&
事件，其执行的内容通过代码的编写来实现。
3、时钟控件的重要属性有两个，&&&&&&&&
属性决定timer控件的timer事件执行的间隔时间，默认的单位是&&&&
，取值范围是&&&&&
属性用来决定窗体加载后时钟是否工作，缺省时，其属性值为True，表示窗体一旦加载，始终就开始工作。如果其属性值设为False，时钟就会停止工作。
4、Time函数用来显示系统当前的&&&&&&
函数用于显示系统当前的日期和时间。
学生完成学案中内容后，请积极发言的几位学生代表交流相关答案并给所在的每个小组相应的加果子或者树叶。
二）任务驱动，自主探究
请同学们对照课本25-29中实战演练中的步骤，完成“万年历小时钟”程序
任务一：添加三个对象（8分钟）
对照课本25-26中的步骤，添加万年历控件、标签框控件和计时器控件
重要提示：修改26页第2行为Microsoft windows common controls-2
6.0&&&&&&&&&&&&
学生自主操作，教师巡视指导。
请学生代表演示万年历控件的插入方法，教师小结。
任务二：设置对象属性并编写代码
对照课本27-28中的步骤，添加万年历控件、标签框控件和计时器控件的属性并编写代码
重要提示：
Form1的icon属性需自行设置：利用“搜索”，查找*.ico类型的文件，来代替书上的指定位置。（可参考教师下发的Form1的icon属性的视频录像）
教师重点演示Form1的icon属性的设置方法后，学生开始完成任务二，完成过程中有问题小组互助解决，教师巡视指导
三）交流探究，攻破重难点
教师出示刚才学生在完成任务二中出现的典型问题，学生思考小组讨论：
展示有的同学完成小时钟程序后出现的问题：
1、运行后只出现当前时间，但是时间不变化
2、运行后不显示当前时间，或者当单击标签框时时间才显示
学生思考小组讨论交流，小组代表讲解演示出现的问题及解决方法：
1、计时器控件interval属性未更改，默认值为0应更改为1000
2、编写代码有错误或者编写代码的对象错误，这种情况是给标签框添加了代码，应该为计时器控件编写代码
教师小结并强调：
主要程序代码：（计时器timer事件代码）
Private& sub&
timer1_timer()
Label1.caption = time
表扬交流中表现优异的小组并加果子或树叶。
学生上机纠错
任务三（拓展任务，有余力的同学尝试完成）：完成课本29页拓展训练题
设计一个可以显示或终止当前日期和时间的程序
已提交作品的同学课探究完成课本29页的拓展训练
四、作品展示，评价交流
学生完成任务后以自己的名字保存文件并生成可执行文件并提交作品至作品展示的共享文件夹中的相应的小组文件夹中，并欣赏评价本组内同学提交的作品，组内自评出一份优秀作品后，教师屏幕广播展示全班9个小组的优秀作品，组间评价，推选出本节课优秀作品，教师小结并鼓励，并根据小组内学生提交的作品数量和最终获得优秀作品的情况给小组加果子或树叶，评选出本节课优秀小组，进行表扬。
五、归纳总结，拓展提高
同学们，通过本节课的学习，你学会了什么知识？学生代表发言。教师总结，本节课我们学习了外部控件日历和计时器控件，希望同学们通过使用这两个控件，进一步扩展VB编写程序的思路，将来能用VB编写出服务于你日常生活的小软件
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。Access俱乐部
?&&&&?&&&&?&&&&?&&&&
您的位置：　 > >
【VBA系统教程十七】 关于定时器使用是的注意点
来源:www.accessoft.com&&点击数:3703&&评论数:0　&|&&|&
时　间: 08:10:08
作　者:&&&ID：29828&&城市：无锡
摘　要:定时器，VBA
【VBA系统教程十七】 关于定时器使用是的注意点
VB编程过程中，通过引发Timer事件，Timer控件可以有规律地间隔一段时间执行一次代码。Interval属性是Timer控件最重要的一个属性，它以千分之一秒为单位指定Timer事件之间的间隔，理论上可以认为最少可设置为1毫秒触发一次Timer事件，另外一个重要属性是Enabled属性，它决定计时器是否开始工作。因为Timer控件响应时间的流逝，独立于用户，可以成为编程者的“好帮手”，所以在实践中很受欢迎，但编程者特别是初学者在实际使用过程中往往会感觉到“力不从心”，下面笔者将通过分析并结合自己的编程体会谈谈Timer控件使用中的几个误区。
1. 编程中过于相信Interval属性值的准确性
这是初学者易犯的错误，其实Interval属性值只是一个参考值，其准确性低，因而间隔不一定准确。Timer控件是基于Windows消息 WM_TIME的时钟脉冲发生器，系统每秒生成18个时钟信号，所以即使用毫秒衡量Interval属性，间隔的实际精度不会超过1/18秒，换句话说，Timer控件能够精确设置的最短时间是65.6毫秒，如果要使时间间隔更精确，应让定时器检查系统时钟。
2. Interval属性的取值范围
Interval属性的有效值在0至65535之间，这就意味着即使最长时间间隔也只是65.6秒，比一分钟长不了多少，而且VB只有在Interval 属性值大于0时，才会产生Timer事件，这是要特别注意的地方。
3. Timer控件的功能定位出错
Timer事件是周期性的，Interval属性主要是决定“多少次”而非“多久”，所以一般不用于计时，而是用做计数。笔者曾做过实验，把 Interval值分别设为，即把间隔时间分别设为一秒钟和一分钟，做成一个计时器，并把工作结果和系统标准时间比较，误差分别是 6.7%和1.7%，可见定时器事件生成越频繁，响应事件所用的处理越多，越将降低系统综合性能，从而导致误差增大，这么大的误差显然失去了用做计时的意义。
4. 计数器变量的声明错误
在设计计数器时最易犯的错误是不声明变量或在区域变量中声明。将Interval属性设为1000，看看下面这个程序:
Private Sub Timer1_timer()
Dim i as integer
也许有读者可能想通过这段程序，能打印出1，2……n，而事实上只能打印出1，1……1来，原因在于每个时间间隔内，按顺序运行的Timer事件是彼此互不相干的，如将变量i声明为区域变量，每次程序一运行完，此变量即告完成任务，因此显示的永远是1，如在程序中将i声明为公用变量，此变量存储的值就会一直保留下来。
以上几点只是笔者在当前系统环境下的粗浅认识，可以想见，随着硬件和软件环境的不断改善，将会出现更加精确的Timer控件
Access软件网官方交流QQ群 (群号:)
　　　　　　
&&&&【&&】&&&&【&&】&&&&【&&】&&&&【&&】&&&&【&&】
Access网店
价格：￥280 元
价格：￥200 元
价格：￥199 元
(05-30 18:29)
(05-30 17:54)
(05-30 17:01)
(05-30 16:58)
(05-30 10:35)
(05-29 23:00)
(05-29 17:19)
(05-29 10:59)
(05-28 23:41)
(05-28 23:05)
Access软件网 版权所有 CopyRight
提供支持 本站特聘法律顾问: 李慧 律师