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

私有子窗体_Load()

“随机定时器”重置随机因子，这样你每次运行程序时都能得到不同的字符序列。

显示表单后，光标位于Text2处。

' Text2_KeyPress 0 '模拟调用Text2一次的键盘操作，其内部程序会刷新text1。

末端接头

private subtext2 _ keypress(keyascii为整数)'键盘操作产生的text 2事件。

暗淡我一样长

如果len(text 1 . text)= len(text2 . text)那么' text 2已经完成输入(或者第一次使用刷新)。

Keyascii=0 '屏蔽当前键。

' Text1.text=vbnullstring '清空Text1的内容。

' Text2.text=vbnullstring '清空Text2的内容。

对于i=1到20 '随机生成20个字符排列。

text1。Chr$(int(rnd()*26)+asc("a ")'生成一个字符a~z，追加到text1的末尾。

接下来我

其他

如果keyascii & lt& gtAsc (VBA。mid $ (text1.text，len (text2.text)+1，1))keyascii = 0:beep '字符输入错误，提示哔声报警，取消当前键盘操作。

如果…就会结束

末端接头

在此基础上，还可以美化界面，添加判断点、计时等功能。