记忆考验

小弟之前的寒假作业...做记忆考验
等各位下载玩过就知道了...

有人愿意帮忙编修程式或提供美美的照片pm小弟喔

Dim X(6), U, D, L, R, W, S, Su, Qu

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
Case 32
S = S + 1
W = 1
U = 0
D = 0
L = 0
R = 0
Case 37
S = S + 1
W = 0
U = 0
D = 0
L = 1
R = 0
Case 38
S = S + 1
W = 0
U = 1
D = 0
L = 0
R = 0
Case 39
S = S + 1
W = 0
U = 0
D = 0
L = 0
R = 1
Case 40
S = S + 1
W = 0
U = 0
D = 1
L = 0
R = 0
End Select
End Sub


Private Sub Form_Load()
Qu = 50
Randomize
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub mnuItem作者_Click()
Load Form2
Form2.Show

End Sub

Private Sub mnuItem玩法_Click()

BUTTON = MsgBox("当按下开始键后程式会跑出六组乱数,使用者需依照乱数指示输入上下左右空白键,第一次出现时请使用者记住顺序并在消失后开始输入,第一次等待时间三秒,第二次输入时间为10秒", vbInformation, "使用讯息")

End Sub

Private Sub mnuopen_Click()
'开始控制
Timer2.Enabled = False
Timer2.Interval = 0
Timer4.Enabled = False
Timer4.Interval = 0

Timer3.Interval = 1

End Sub

Private Sub Timer1_Timer()
If S = 1 Then

If X(0) = "上" And U = 1 Then

Label3 = "上"

ElseIf X(0) = "下" And D = 1 Then

Label3 = "下"

ElseIf X(0) = "左" And L = 1 Then

Label3 = "左"

ElseIf X(0) = "右" And R = 1 Then

Label3 = "右"

ElseIf X(0) = "空白键" And W = 1 Then

Label3 = "空白键"

Else

Timer2.Enabled = False
Timer2.Interval = 0
Timer4.Enabled = False
Timer4.Interval = 0

BUTTON = MsgBox("错了错了唷..呵呵", vbCritical + vbSystemModal, "错误讯息")

Timer3.Interval = 100

End If

End If

If S = 2 Then

If X(1) = "上" And U = 1 Then

Label4 = "上"

ElseIf X(1) = "下" And D = 1 Then

Label4 = "下"

ElseIf X(1) = "左" And L = 1 Then

Label4 = "左"

ElseIf X(1) = "右" And R = 1 Then

Label4 = "右"

ElseIf X(1) = "空白键" And W = 1 Then

Label4 = "空白键"

Else

Timer2.Enabled = False
Timer2.Interval = 0
Timer4.Enabled = False
Timer4.Int ..

访客只能看到部份内容，免费 加入会员

x0

帮你补张图片...突然觉得这各不错玩..
呵呵..动动脑看有没有更难的~

x0

下面是引用codeboy于2005-03-8 09:00发表的 :
帮你补张图片...突然觉得这各不错玩..
呵呵..动动脑看有没有更难的~

有吧！
我是参考一个RPG做的
忘了游戏名字了

他是用声音念出来...然后固定的动画下去配合
由于我的声音不好听&画画很滥 只能用文字代替

x0

谢谢分享~这题我去考试有类似题目~等有空我在传上来给楼主看看!

x0