Question

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

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

Answer 1

'给你写个容易理解的吧，在窗体上画两个TextBox，分别是Text1和Text2。
private sub Form_Load()
randomize timer '重新设置随机因子，使每次运行程序都能获得不同的字符序列
text2.tabindex=0 '窗体显示后，光标定位在text2
Text2_KeyPress 0 '模拟调用一次text2的键盘操作，其内部程序会使text1刷新
end sub
private sub Text2_KeyPress(KeyAscii as integer) 'text2键盘操作产生的事件
dim i as long
if len(text1.text)=len(text2.text) then 'text2已完成输入（或首次使用刷新）
keyascii=0 '屏蔽当前按键
text1.text=vbnullstring '清空Text1内容
text2.text=vbnullstring '清空Text2内容
for i=1 to 20 '随机生成20个字符排列
text1.text=text1.text & chr$(int(rnd()*26)+asc("a")) '产生一个a~z的字符，追加到text1的尾部
next i
else
if keyascii<>asc(vba.mid$(text1.text,len(text2.text)+1,1)) then keyascii=0:beep '字符输入错误，提示beep声音警报并取消当前键盘操作。
end if
end sub

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

Answer 2

我给你我的课程设计吧！老师给我打了90多分，应该是很好了，可以加速减速，控制游戏时间，有背景图片、背景音乐、会自动算分并算出玩家的最高分等等，保证你会喜欢！
已发送，请注意查收！