VB教程-打字练习程序

《VB教程-打字练习程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VB教程-打字练习程序第四天、打字练习程序小叮当：我说小蘑菇呀，前几分钟之前还看你在编程序，怎么现在又开始玩游戏了？小蘑菇：都是昨天定时程序的作用呀，我现在是编程10分钟，游戏50分钟，这样劳逸结合，安排的不错吧。小叮当：有你这么安排的吗？整个就是在浪费时间！别玩游戏了,今天教你一些什么呢？小蘑菇：最好是寓教于乐的程序最好，比如一边玩游戏一边学习的。小叮当：给我出难题？那就教你一个寓教于乐的程序，来制作一个打字练习程序怎么样？小蘑菇：真的？也好，我先看看再说。小叮当：0K,还是老规矩，先创建一些控件再说。1、新建一个丄程，

2、将Forml的Caption属性修改为“打字练习”,同时将MaxButton和MinButton两个属性都设置为"False”,这样在程序运行之后可以取消右上角的最小化和最大化按钮。2、添加一个Frame控件，将它的Caption属性设置为空，并且将BorderStyle属性设置为“0-None”,然后在这个Frame中添加1个Label控件。3、在Forml窗口中添加4个Label控件，其中两个Label控件的Caption属性分别设置为“得分”和“剩余”,另外两个Label控件的BackStyle和BorderStyl

3、e属性均设置为"1-Opaque"和“l-Fixed”,这样将使得它们以3D立体形式显示出来，最后分别将这两个Label控件的Caption属性设置为“0”和“200”。4、在Frame区域中再添加一个Label控件。5、在Fomil窗口中添加一个CommandButton控件，将它的Caption属性更改为“开始”。6、添加三个Timer控件，并将它的interval属性分别设置为100、1000和100。所有控件添加设置完成后应该如图所示。小蘑菇：看起来好复杂的样了，代码编写部分是不是也很繁琐？小叮当：说难不难，说简单

4、也不简单。我们的冃的是通过嵌套在Frame中的两个Label控件来随机显示字母，然后通过键盘输入字母,由程序检验输入的字母和显示的字母是否一样，如果一样则说明正确，可以加分，否则说明输入错误。其实最关键要把握住编程的思想,这个说起來就话长了，还是看看具体的源代码怎么写吧。1、双击Fonnl窗口，并选择“通用”对象，输入下面的通用代码：OptionExplicitDimscoreAsIntegerDimspeedAsInteger/定义变量/定义变量2、编写init子程序(用于设置第一个出现的字母)Subinit()Labe

5、l1.Caption=Chr(Int(Rnd*26)+49)/设定Label1随机显示的字母speed二Int(Rnd*100+100)/设定Labe11随机显示字母的速度Label1.Left二Int(Rnd*Frame1.Width)/设定Label1代表字母出现的左边位置Label1.Top二Frame1.Top/设定Label1代表字母出现的顶部位置EndSub3、编写initl子程序（用于第二个出现的字母）Subinitl()Labe16.Caption=Chr(Int(Rnd*26)+97)/设定Label2随

6、机显示的字母speed二Int(Rnd*100+100)/设定Labe12随机显示字母的速度Label6.Left二Int(Rnd*Frame1.Width)/设定Labe12代表字母出现的左边位置Label6.Top二Frame1.Top/设定Label2代表字母出现的顶部位置EndSub4、双击“开始”按钮并输入下列代码:PrivateSubCommandl_Click()init/调用init子程序Timerl.Enabled二True/激活Timel控件Timer2.Enabled二True/激活Time2控件Co

7、mmandl.Visible二FalseLabel5.Caption=200Label4.Caption二0EndSub5、双击Fonnl窗口，并选择“KeyPress”对象，输入下面的用代码：PrivateSubFormKeyPress(KeyAsciiAsInteger)IfChr(KeyAscii)二Label1.CaptionThen/校验键盘输入字符和Label1显示的字符initscore二score+1/得分加1Label4.Caption二scoreEndIfIfChr(KeyAscii)二Label6.C

8、aptionThen/校验键盘输入字符和Labe12显示的字符initlscore二score+1Label4.Caption二score/La.bel4控件显示得分情况EndIfEndSub6、双击Fonnl窗口，并选择“Load”对象，输入下面的用代码:PrivateSubFormLoad()Ran