【文件属性】:
文件名称:vb打字游戏,本人刚完成设计,真正是你想要的!
文件大小:1.58MB
文件格式:RAR
更新时间:2013-06-03 06:30:16
VB 打字 游戏
'开始游戏
Private Sub Command3_Click()
If Option1.Value Then
Timer1.Interval = 1
Timer2.Interval = 0
Label7.Caption = ""
Label1.Top = 8760
Label6.Top = 8760
Label1.Visible = True
Label6.Visible = True
End If
If Option2.Value Then
Timer2.Interval = 1
Timer1.Interval = 0
Label1.Caption = ""
Label6.Caption = ""
Randomize
Cls
a = Array("one", "two", "three", "free", "feel", "fly", "lacking", "the", "power", "that")
x = Int(Rnd * (UBound(a) + 1))
Label7.Caption = a(x)
Label7.Top = 0
Label7.Visible = True
End If
Text1.SetFocus
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
'判断简单时是否打中,并使成绩加一
If Option1.Value Then
Timer1.Interval = 1
If KeyAscii = Asc(Label1.Caption) Then
Label1.Top = 0
Label1.Left = Rnd() * 10800
Label1.Caption = Chr$(Rnd() * 26 + 97)
Label2.Caption = Label2.Caption + 1
End If
【文件预览】:
工程文档
----打字.vbw(84B)
----Module1.bas(506B)
----pictuer()
--------8.jpg(346KB)
--------2.jpg(195KB)
--------1.jpg(76KB)
--------6.jpg(80KB)
--------3.jpg(198KB)
--------5.jpg(118KB)
--------4.jpg(138KB)
--------Thumbs.db(50KB)
--------7.jpg(422KB)
----MSSCCPRJ.SCC(189B)
----打字.vbp(700B)
----打字.frm(14KB)
----打字.frx(105KB)
网友评论
- 用了这么久才来评价,让我学到了很多VB知识,比如排序,随机产生数等,不过有点小瑕疵
- 能够运行,不过有点小瑕疵
- 跟网上的都差不多,能狗运行的。
- 不错好东西 正好用到
- 不错哦,可以运行的!
- 真心不错,比我自己做的好多了,就是画面有点小儿科
- 程序能运行
- 不错,要是界面在精致一些就更好了!
- 用了这么久才来评价,这个程序真的不错,让我学到了很多VB知识,比如排序,随机产生数等