求这个VB小游戏的代码

时间：2014.12.09 发布人：wolself
求这个VB小游戏的代码

已解决问题

谷歌wolself用户在2014.12.09提交了关于“妮可基德曼求这个VB小游戏的代码”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-11-06T11:09:56。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，不知道说什么,送你一朵小红花吧 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：lrq_sz  

我编了一个随机出现字母的游戏，你参考一下

Dimflag%,sc距控升得响树ore%

PrivateSubForm_KeyDown(KeyCodeAsInteger,Shi黄初纪计声然概几跳米敌ftAsInteger)
IfLCase(Chr(KeyCode))=来自Label1.CaptionThen
flag=1
Label1.C或飞及aption=""
s问答core=score+1
Label2.Caption=score
EndIf
EndSub

PrivateSubForm_Load()
Randomize
flag=1
score背罪关评本布练构商解=0
Timer1.Enabled=False
见别歌专氧述妈如低十优Label1.Caption=""
EndSub

PrivateSubtimer1_timer()
Ifflag=0Then
Tim在怎语八风停非侵须息江er1.Enabled=False
MsgBox"游戏结束,你的成绩为"&score
End
EndIf
flag=0
Label1.Caption=Chr(Int(Rnd()*26)+97)
EndSub

Private后Subcommand1_click()
Timer1.Enabled=True
Command1.Visible=False
Form1.王士交松片企青船SetFocus
En联束汽须际该把容乡修促dSub