【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了用VB编写打字练习程序 - 职业资格相关资料，希望对各位网友有所帮助!

ＺＨＯＮＧＸＩＡＯＸＵＥＤＩＡＮＪＩＡＯ２００６－６中学信息技术课一般都有ＶｉｓｕａｌＢａｓｉｃ语言程序设计的教学内容。

    但是如何激发学生学习程序设计的兴趣以促进其它学科的学习，使计算机真正成为学习和工作的主要工具呢？我们可以根据教学内容，编写一些简单实用并使学生感兴趣的小程序。

    本文利用ＶＢ的程序设计方法编写了打字练习程序，该程序既可以用于指法练习和比赛，又可以帮助学生熟读古文、诗词、英文课文等。

    打字练习程序的制作方法如下：第一步，设计窗体界面及控件属性。

    启动ＶｉｓｕａｌＢａｓｉｃ软件，新建一个工程，将Ｆｏｒｍ１的Ｃａｐｔｉｏｎ属性设置为“打字练习”，同时将ｆｏｎｔ属性设置字体为宋体，字号为三号。

    在Ｆｏｒｍ１窗口中添加１个Ｌａｂｅ１１控件，并将其复制粘贴为控件数组，依次从上而下放置在窗体上。

    再添加２个Ｌａｂｅｌ控件，分别为Ｌａｂｅｌ２和Ｌａｂｅｌ３，将其Ｃａｐｔｉｏｎ属性分别设置为“计时”和“０∶００∶００”。

    在Ｆｏｒｍ１窗口中添加１个ＴｅｘｔＢｏｘ控件，也将其复制粘贴为控件数组，依次从上而下放置在窗体上。

    在Ｆｏｒｍ１窗口中添加一个ＣｏｍｍａｎｄＢｕｔｔｏｎ控件，将其Ｃａｐｔｉｏｎ属性设置为“开始”。

    在Ｆｏｒｍ１窗口中添加一个Ｔｉｍｅｒ控件，将其Ｅｎａｂｌｅｄ属性设置为Ｆａｌｓｅ。

    所有控件添加设置完成后，如图１所示。

    图１第二步，编写过程代码。

    （１）双击窗体，进入程序代码窗口，单击对象框的向下箭头，选择Ｆｏｒｍ对象，再单击事件框的向下箭头，选择Ｌｏａｄ事件，编写代码如下：ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）Ｌａｂｅｌ１（０）．Ｃａｐｔｉｏｎ＝〃计算机的发明是人类在２０世纪取得的最重大的科学〃Ｌａｂｅｌ１（１）．Ｃａｐｔｉｏｎ＝〃成就之一。

    计算机在各行各业的广泛应用，使以前〃Ｌａｂｅｌ１（２）．Ｃａｐｔｉｏｎ＝〃许多无法解决的问题得到解决，使生产效率得到大〃Ｌａｂｅｌ１（３）．Ｃａｐｔｉｏｎ＝〃幅度的提高，对人类社会的发展起了巨大的推动作〃Ｌａｂｅｌ１（４）．Ｃａｐｔｉｏｎ＝〃用。

    学习计算机的基础知识，掌握计算机的基本操〃Ｌａｂｅｌ１（５）．Ｃａｐｔｉｏｎ＝〃作和应用，已成为信息时代对每个人的基本要求。

    〃Ｆｏｒｉ＝０ｔｏ５ＶＢＳｅｔｘｌｓｈｅｅｔ１＝ｘｌｂｏｏｋ１．Ｗｏｒｋｓｈｅｅｔｓ（ｓ）ＲｅｍＳｅｔｘｌｒａｎｇｅ＝ｘｌｓｈｅｅｔ１．Ｒａｎｇｅ（〃ａ２：ｉ１６４〃）ｘｌｓｈｅｅｔ１．Ａｃｔｉｖａｔｅｒ＝ｘｌｓｈｅｅｔ１．ＵｓｅｄＲａｎｇｅ．Ｒｏｗｓ．Ｃｏｕｎｔｃ＝ｘｌｓｈｅｅｔ１．ＵｓｅｄＲａｎｇｅ．Ｃｏｌｕｍｎｓ．Ｃｏｕｎｔ／／第一个文档时全部复制，其它不复制标题行Ｉｆｆｉｌｅｎｕｍ＝０ＴｈｅｎＳｅｔｘｌｒａｎｇｅ＝ｘｌｓｈｅｅｔ１．Ｒａｎｇｅ（Ｃｅｌｌｓ（１，１），Ｃｅｌｌｓ（ｒ，ｃ））ＥｌｓｅＳｅｔｘｌｒａｎｇｅ＝ｘｌｓｈｅｅｔ１．Ｒａｎｇｅ（Ｃｅｌｌｓ（２，１），Ｃｅｌｌｓ（ｒ，ｃ））ＥｎｄＩｆｘｌｒａｎｇｅ．ＣｏｐｙＳｅｔｘｌｓｈｅｅｔ＝ｘｌｂｏｏｋ．Ｗｏｒｋｓｈｅｅｔｓ（ｓ）ｘｌｓｈｅｅｔ．Ａｃｔｉｖａｔｅ／／确定粘贴位置Ｉｆｆｉｌｅｎｕｍ＝０Ｔｈｅｎｉ＝ｈ（ｆｉｌｅｎｕｍ，ｓ）＋１Ｅｌｓｅｉ＝ｈ（ｆｉｌｅｎｕｍ，ｓ）＋２ＥｎｄＩｆＳｅｔｘｌｒａｎｇｅ＝ｘｌｓｈｅｅｔ．Ｒａｎｇｅ（Ｃｅｌｌｓ（ｉ，１），Ｃｅｌｌｓ（ｉ，１））ｘｌｒａｎｇｅ．Ｓｅｌｅｃｔｘｌｓｈｅｅｔ．Ｐａｓｔｅｈ（ｆｉｌｅｎｕｍ＋１，ｓ）＝ｈ（ｆｉｌｅｎｕｍ，ｓ）＋ｒ－１ｉ＝０Ｎｅｘｔｓ／／不保留剪切板内用ＶＢ编写打字练习程序☆王秀珍ＲＵＡＮＪＩＡＮＹＡＮＺＨＩ软件研制５９ＺＨＯＮＧＸＩＡＯＸＵＥＤＩＡＮＪＩＡＯ２００６－６ＲＵＡＮＪＩＡＮＹＡＮＺＨＩ软件研制’１（ｉ）．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ’如果不单击“开始”按钮，Ｔｅｘｔ１则不可用ＮｅｘｔｉＥｎｄＳｕｂ（２）在程序代码窗口中，单击对象框的向下箭头，选择Ｆｏｒｍ对象，再单击事件框的向下箭头，选择Ａｃｔｉｖａｔｅ事件，编写代码如下：ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ａｃｔｉｖａｔｅ（）Ｃｏｍｍａｎｄ１．ＳｅｔＦｏｃｕｓ’设置光标焦点ＥｎｄＳｕｂ（３）单击对象框的向下箭头，选择Ｃｏｍｍａｎｄ１控件对象，再单击事件框的向下箭头，选择Ｃｌｉｃｋ事件，编写代码如下：ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）Ｔｉｍｅｒ１．Ｉｎｔｅｒｖａｌ＝１０００’设置时间间隔为１秒Ｆｏｒｉ＝０ｔｏ５Ｔｅｘｔ１（ｉ）．Ｅｎａｂｌｅｄ＝ＴｒｕｅＮｅｘｔｉＴｅｘｔ１（０）．ＳｅｔＦｏｃｕｓＦｏｒｉ＝０Ｔｏ５Ｔｅｘｔ１（ｉ）．Ｔｅｘｔ＝〃〃ＮｅｘｔｉＴｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｔｒｕｅｄ＝Ｔｉｍｅｒ（）’开始时的系统秒数ＥｎｄＳｕｂ（４）单击对象框的向下箭头，选择（通用）声明，输入：ＤｉｍｄＡｓＬｏｎｇ’定义变量ｄ用于计时（５）单击对象框的向下箭头，选择Ｔｉｍｅｒ控件对象，编写代码如下：ＰｒｉｖａｔｅＳｕｂＴｉｍｅｒ１＿Ｔｉｍｅｒ（）Ｌａｂｅｌ３．Ｃａｐｔｉｏｎ＝ＴｉｍｅＳｅｒｉａｌ（０，０，Ｔｉｍｅｒ（）－ｄ）显示计时的时间ＥｎｄＳｕｂ（６）单击对象框的向下箭头，选择Ｔｅｘｔ１控件对象，再单击事件框的向下箭头，选择ｃｈａｎｇ事件，编写代码如下：ＰｒｉｖａｔｅＳｕｂＴｅｘｔ１＿ｃｈａｎｇｅ（ＩｎｄｅｘＡｓＩｎｔｅｇｅｒ）Ｆｏｒｉ＝０Ｔｏ５Ｉｆｉ＝５ＡｎｄＬｅｎ（Ｌａｂｅｌ１（ｉ）．Ｃａｐｔｉｏｎ）＝Ｌｅｎ（Ｔｅｘｔ１（ｉ）．Ｔｅｘｔ）ＴｈｅｎＴｉｍｅｒ１．Ｅｎａｂｌｅｄ＝ＦａｌｓｅＣｏｍｍａｎｄ１．ＳｅｔＦｏｃｕｓＥｌｓｅＩｆＬｅｎ（Ｌａｂｅｌ１（ｉ）．Ｃａｐｔｉｏｎ）＝Ｌｅｎ（Ｔｅｘｔ１（ｉ）．Ｔｅｘｔ）ＴｈｅｎＴｅｘｔ１（ｉ＋１）．ＳｅｔＦｏｃｕｓＥｎｄＩｆＮｅｘｔｉＥｎｄＳｕｂ第三步，运行并调试程序。

    选择一种汉字输入法，按Ｆ５键，运行程序；单击“开始”按钮，快速在第一个文本框中输入所对应的汉字，当输入的字符与对应的字符个数相等时，自动进入下一个文本框，如图２所示。

    图２当最后一个文本框输入完毕时，计时自动停止。

    如果想重新练习，单击“开始”按钮即可。

    本实例只是对打字练习进行了计时，如果运用字符串的比较函数，就能够计算出准确率，并通过对话框的形式给出相应的信息。

    我们还可以运用随机函数编写出英文和中文打字游戏。

    （作者单位：长春教育学院信息技术部，吉林长春１３００６１）〔文字编辑：魏静元〕容Ａｐｐｌｉｃａｔｉｏｎ．ＣｕｔＣｏｐｙＭｏｄｅ＝Ｆａｌｓｅｘｌｂｏｏｋ１．ＣｌｏｓｅＮｅｘｔｆｉｌｅｎｕｍＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ２＿Ｃｌｉｃｋ（）Ｅｎｄ／／退出ＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＤｉｒ１＿Ｃｈａｎｇｅ（）Ｆｉｌｅ１．Ｐａｔｈ＝Ｄｉｒ１．ＰａｔｈＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＤｒｉｖｅ１＿Ｃｈａｎｇｅ（）Ｄｉｒ１．Ｐａｔｈ＝Ｄｒｉｖｅ１．ＤｒｉｖｅＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）Ｔｅｘｔ１．Ｔｅｘｔ＝〃请将格式相同的ＥＸＣＥＬ文件放在一个文件夹内。

    〃Ｄｒｉｖｅ１．Ｄｒｉｖｅ＝〃ｃ：＼〃Ｆｉｌｅ１．ＲｅａｄＯｎｌｙ＝ＴｒｕｅＦｉｌｅ１．Ａｒｃｈｉｖｅ＝ＴｒｕｅＦｉｌｅ１．Ｓｙｓｔｅｍ＝ＴｒｕｅＦｉｌｅ１．Ｎｏｒｍａｌ＝ＴｒｕｅＦｉｌｅ１．Ｈｉｄｄｅｎ＝ＴｒｕｅＦｉｌｅ１．Ｐａｔｔｅｒｎ＝〃．ｘｌｓ〃ＥｎｄＳｕｂ本程序在ＶＢ６．０和ＷｉｎＸＰ下运行良好，在实际工作中发挥了较大作用，希望能对大家有所帮助。

    （作者单位：唐海县教育体育局，河北唐海０６３２００）〔文字编辑：魏静元〕６０