时间：2013.06.18 发布人：c520027
已解决问题
谷歌c520027用户在2013.06.18提交了关于“
龚宇求VB小游戏代码”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-11-06T11:09:37。求VB小游戏代码杀怪的200分要告诉我要用哪些控件最好发个图如果没有随便给我个100分也要告诉我控件代码希望大家能够帮助她。
详细问题描述及疑问：求VB小游戏代码杀怪的200分要告诉我要用哪些控件最好发个图如果没有随便给我个100分也要告诉我控件代码期待您的答案，没有什么华丽的语言,但是我对你的感谢不会减少
！
希望以下的回答，能够帮助你。
第1个回答
用户名：ruxthas
1个picture控件，一个label控件，一个time控件就完全足够了，呵呵
PublicnnAsLong
PublicnAsLong
Publicx,来自yAsLong
Priv问答ateSubForm_Load()
nn=0
n=作谓利马植注1
''Picture1(i).Picture="图片地址"
Pictur汽和般那e1(i).Width=300
Picture1(i).h**eight=300
Timer1.Interval=100
Timer1.Enabled=True
Label1.Caption=0
Picture1(0).Visible=False
EndSub
PrivateSubPicture1_Click含积载选情服发找操(IndexAsInteger)
nn=nn+1
Unl款究然味定别包坚斯等oadPicture1(Index)
Label1.Caption=nn
EndSub
PrivateSubTimer1_Timer()
Randomize
x=I右象以末准极句超nt((Form1.Width-300+1)*Rnd+300)
y=Int((兰沿也标观北响更倒友Form1.h**eight-1800+1)*Rnd+1000)
LoadPicture1病各齐尼元离(n)
Picture1(n).Left=x
Picture1(n).Top=y
Picture1(n).Visible=True
专n=n+1
ifnn>=200then
timer1.enable=false
''执行语句
endif
EndSub
打窗口上随机出现的砖块游戏
