肥月MC的个人资料

新手求教！！！！ RT.. 这是快速配对游戏的代码。。求教每一行的意思。。那些定义什么的可以不用解释。谢谢各位大神！！！！ Option Explicit Private Arrange(0 To 15) As Integer '保存每个位置的图片 Private p1 As Integer, p2 As Integer '两次翻起的图象下标 Private FinishedNum As Integer '完成对数 Private Finished(0 To 15) As Boolean '已翻开的图像下标 Dim t As Integer Private Sub Command1_Click() '游戏开始 Dim i As Integer Dim j As Integer Dim m As Integer Command3.Enabled = False FinishedNum = 0 p1 = -1 p2 = -1 '开始给每种图片随机摆放在2个位置，共16个位置8种图片 Randomize For i = 0 To 15 Arrange(i) = -1 Next For i = 0 To 7 For j = 0 To 1 Do m = Int(Rnd * 16) If Arrange(m) = -1 Then Arrange(m) = i Exit Do End If Loop Next Next For i = 0 To 15 Image1(i).Picture = Image2(Arrange(i)).Picture Finished(i) = False Next Command1.Enabled = False Timer1.Enabled = True End Sub Private Sub Command2_Click() '退出游戏 Unload Me End Sub Private Sub Command3_Click() '看排行 frmScore.Show 1 End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To 15 Image1(i).Picture = ImageBack.Picture Image1(i).Enabled = False Next End Sub Private Sub Image1_Click(Index As Integer) '开始寻找配对 Dim i As Integer Dim m As Integer Dim n As Integer Dim tt(0 To 2) As Integer Dim l As Integer Image1(Index).Picture = Image2(Arrange(Index)).Picture Image1(Index).Enabled = False If Not Timer2.Enabled Then Timer2.Enabled = True t = 0 End If If p1 = 1 Then '翻开第一张 p1 = Index Else '翻开第二张 p2 = Index If Arrange(p1) <> Arrange(p2) Then '两张不一样 For i = 0 To 15 Image1(i).Enabled = False Next Timer3.Enabled = True ImageFace = ImageNoSmile Else '两张相同 FinishedNum = FinishedNum + 1 Finished(p1) = True Finished(p2) = True p1 = -1 p2 = -1 ImageFace = ImageSmile If FinishedNum = 8 Then '如果全部完成 Timer2.Enabled = False Command1.Enabled = True Command1.Caption = "再来" Command3.Enabled = True Open App.Path & "\Record.txt" For Input As #1 '打开排行榜文件读以往成绩 l = -1 Do While Not EOF(1) l = l + 1 Input #1, tt(l) Loop Close #1 If t < tt(2) Then '若成绩可进前三名，重新生成排行榜 Kill App.Path & "\Record.txt" If t >= tt(1) Then tt(2) = t: MsgBox "完成，恭喜你成为第三名！", vbInformation If t < tt(1) And t >= tt(0) Then tt(2) = tt(1): tt(1) = t: MsgBox "完成，恭喜你成为第二名！", vbInformation If t < tt(0) Then tt(2) = tt(1): tt(1) = tt(0): tt(0) = t: MsgBox "完成，恭喜你成为第一名！", vbInformation Open App.Path & "\Record.txt" For Output As #1 For l = 0 To 2 Write #1, tt(l), Next Close #1 Else MsgBox "完成，你未进入前三名！", vbInformation End If End If End If End If End Sub Private Sub Timer1_Timer() '开始时随机放好的图片翻开给看3秒钟 Dim m As Integer For m = 0 To 15 Image1(m).Picture = ImageBack.Picture Image1(m).Enabled = True Next m Timer1.Enabled = False End Sub Private Sub Timer2_Timer() '游戏记时 t = t + 1 Label1.Caption = t End Sub Private Sub Timer3_Timer() '寻找不正确时图片会恢复底样 Dim i As Integer For i = 0 To 15 If Not Finished(i) Then Image1(i).Enabled = True End If Next Image1(p1).Picture = ImageBack.Picture Image1(p2).Picture = ImageBack.Picture Timer3.Enabled = False p1 = -1 p2 = -1 End Sub

那就放一只卖萌图吧，寂寞寂寞就好了

提前的祝福温暖酒吧 ~\(≥▽≤)/~我来给我们可爱的酒吧升温了。⊙﹏⊙明天就是平安夜了⊙▽⊙欢乐的苹果吃起⊙﹏⊙圣诞快乐(*¯）¯*)大家期末考试加油给力~^O^~到时候就可以幸福回小岛过夏天了\(^o^)/YES！

作死的节奏今天晚上要跟泰勒公式→_→中值定理决战了o(╯□╰)o完全感觉就是要被虐残，然后再阵亡的节奏>:-<累死了这个星期为嘛破事都一大堆还集中在一起呢，我就想好好吃饭，好好睡觉，好好做人而已T^T

逗最近老是干些很逗逼的事情T_T人品指数也一直在暴跌o(╯□╰)o好忧伤好忧伤，快点给我点正能量啊！！！！！

生日快乐 ⊙▽⊙恭喜麦联义小朋友又老了一岁撒，生日快乐咯，(*¯）¯*)看我这么积极主动的发帖祝福你生日快乐是不是发点福利撒⊙﹏⊙祝你在军训中存活下来撒，有空就出来玩玩撒，期待南京小分队的再次合体咯

被嘲笑了＠(￣-￣)＠〒_〒好难过撒，传说中的冷空气终于来袭了⊙▽⊙然后我默默的开心的去拿出冬天的小装备←_←在纠结着如何保暖才不诡异的时候，一下子抓起了小薄羽绒外套的时候，舍友们震惊了，然后开始嘲笑了〒_〒作为一个怕冷的海南妹纸我容易么我，特别是看到她们都只穿一件单爆的小毛衣，我就已经变成小球了〒_〒〒_〒〒_〒求安慰哇〒_〒

随感周末，已没有太多概念。收拾课桌背着书包赶公车；跟小伙伴边走边聊笑着说明天见；在车流中听着上课铃声穿梭狂奔；走进教室的各种欢乐和各种苦逼的赶作业。没想到这些鲜活的画面却已经加上了曾经，现在一拥而进的教室，一哄而散的课堂，有时候真的会恍惚，然后就傻楞楞的看着黑板，直到旁边的人说：傻啦，收拾东西走啦，快点还有下节课。。。很喜欢目送里的一句话：时光是停留是不停留？记忆，是长的还是短的？一条河里的水，是新的是旧的？每一片繁花似锦，轮回过几次？少年时总会想，以后的我会站在何处，领略怎样的风景，遇见怎样的人，但时光仓促得容不得你再多想就已把旅程推到了你面前，曾想过止步不前，后来发现自己还是幼稚的可笑，如果一切可以重头来起的话，我该要怎么样，才能再拼凑出一幅不一样的画面来呢？再后来终于鼓足勇气要自己开始这偏离轨迹的旅程，即便少了华丽的开始，憧憬的开端又如何，所有的故事篇章都有自己导演，结局如何不知，但我相信一定是值得期待的。以前总是想着能有人和我有相同的感觉，在那长满了芳草的山路上，在那布满了青苔的石头小道上，陪着我一直不停地走下去，让所有的事物永远不变，永远没有结束的时候，但这种念头总是会被说：你穿越剧是不是又看多了？干脆就做个古人算了。。。太痴傻的念头了。我想这或许就是自己考犯傻的原因了吧。活在当下就好，就好。加油咯。

=￣ω￣= 表示被坑到了撒，南京昼夜温差也是好奇葩啊，穿着短袖还骑着小单车的我好难过啊〒_〒〒_〒

晨跑回来的孩纸来报道呐呐~为了响应吧主的号召+不辜负吧主的期待撒^~^早晨起来跑步的感觉很舒服哟~重点是今天跑步的时候被一扫地大妈搭讪了~嘻嘻，还被表扬了是坚持的好孩纸(happy~),接着不知咋地就聊到了大学，再接着就说道她孩纸考得不咋地，才考了778→→唉~内心默默吐嘈后，就闪人go home咯~

宅想小记这么好的天气，被台风和暴雨吓倒的蜗居在家里的孩纸，真的应该丢颗炸弹上去，这时候就应该来点凉风，赶走骄阳，让我们一起去踏青吧，吧主我想踩你的单车。

游玩小记平常这个时间，估计才刚刚从床上爬起~现在竟然吃了早餐，还吃了午饭~太感慨了，果然出来玩就跟打了鸡血~嘻嘻，在此，跟大家午安啦~

肥月终于重出江湖了！！好不容易我终于登上了，原谅水帖一下