30分求VB达人帮忙

显示全部楼层 · 2011-5-16 06:03:57

4. 打字练习
要求：
定时出现不同的字母，当单击键盘上的字母与屏幕的字母相同时，该字母消失并加分。
出现100个字母结束，计分达到80分，出现祝贺画面；低于50分出现失败画面。
背景音乐可以播放和停止；
界面要有菜单可以实现重新开始。

答案请发送邮箱：[email protected]
谢谢

千问 · 2011-5-16 06:03:57

DimmAsInteger
DimnAsInteger

PrivateSubForm_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Timer1.Interval=100
Else
Forj=0To9
IfLabel1(j).Caption=UCase(Chr(KeyAscii))Then
m=m1
Me.Caption=\"对\"80Then
MsgBox\"祝贺您\"
Else
MsgBox\"失败\"
EndIf
Timer1.Enabled=False
EndIf
Fori=0To9
IfLabel1(i).TopForm1.HeightThen
Label1(i).Top=0
Randomize
Label1(i).Caption=Chr(Int(Rnd*2665))
n=n1
Me.Caption=\"对\"defds123mdefds123Space(1)defds123\"错\"defds123n
ElseIfLabel1(i).Top=0Then
Randomize
Label1(i).Caption=Chr(Int(Rnd*2665))
Label1(i).Top=Label1(i).Top100
Else
Label1(i).Top=Label1(i).Top100
EndIf
Next
EndSub

工程我已发