急求用vb做打字游戏的代码~好的追加分~~

显示全部楼层 · 2011-6-26 04:13:16

VB是考查课，老师要交期末大作业
求VB做的打字游戏，代码，一定要有解释呀,一定要符合我的程度的
最好能把做的文件发到偶的邮箱里，[email protected]谢谢啦
界面最好好看点，好的话我会追加分的

千问 · 2011-6-26 04:13:16

\'给你写个容易理解的吧，在窗体上画两个TextBox，分别是Text1和Text2。
privatesubForm_Load()
randomizetimer\'重新设置随机因子，使每次运行程序都能获得不同的字符序列
text2.tabindex=0\'窗体显示后，光标定位在text2
Text2_KeyPress0\'模拟调用一次text2的键盘操作，其内部程序会使text1刷新
endsub
privatesubText2_KeyPress(KeyAsciiasinteger)\'text2键盘操作产生的事件
dimiaslong
iflen(text1.text)=len(text2.text)then\'text2已完成输入（或首次使用刷新）
keyascii=0\'屏蔽当前按键
text1.text=vbnullstring\'清空Text1内容
text2.text=vbnullstring\'清空Text2内容
fori=1to20\'随机生成20个字符排列
text1.text=text1.textasc(vba.mid$(text1.text,len(text2.text)1,1))thenkeyascii=0:beep\'字符输入错误，提示beep声音警报并取消当前键盘操作。
endif
endsub

\'你还可以在这个基础上美化界面、增加判分、计时等功能。