vb6.0 小程序设计
我大一。。刚学了半年vb6.0 就做课程设计 限时六天能不能帮忙写下 ，一部分也行，简单点的 ，最好在复杂的地方做些注释 我很菜，希望通过注释能研究出如何答辩。。。图片素材还没有。。 --------------------编程问答-------------------- ... --------------------编程问答-------------------- 大家能下到邮件吗？
这个是题目
一、 题目：图片记忆游戏
二、目的与要求：
1．目的：
培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件进行设计。
2．基本要求：
游戏开始，首先在窗体上生成若干个相同背景的图片框，单击后显示出其隐藏的图片，当同时显示的两个图片相同时，从窗体上将其删除，直至所有图片均消失，游戏结束。详细要求如下：
编写控制游戏的菜单
游戏开始根据不同等级在窗体上添加图片，具有相同背景并排列整齐；
通过鼠标单击图片框显示图片，显示出隐藏图片；
两个相同的图片消失；
游戏完成入门级和初级。
游戏能够连续执行。
现提供8张图片，要求编写程序中必须使用。
3．创新要求：
游戏完成中级和高级；
充分考虑游戏中的各种情况，使错误数降低为零；
增加时间控制，在规定时间内完成游戏；根据游戏时间给出分数；
设置晋级游戏，低级完成后自动进入下一级。
三、设计方法和基本原理：
1．问题描述：
图片记忆游戏，首先根据游戏等级在窗体上添加图片框，等级不同图片个数不同。其次，每个图片框分配一个图片，但图片并不显示，以相同图片作为背景。鼠标单击图片框，在一定时间内显示图片，当两个图片内容相同时，图片消失；当所有图片消失游戏结束。
2．问题的解决方案：
根据问题描述，可以将问题解决分为步：
（1）首先在窗体上添加一个Picture控件，然后在此控件内添加Image控件数组,根据游戏等级添加不同数目。添加控件数组的方法参见第8章例题。
（2）给每个Image控件分配图片。图片内容必须是随机产生，并且成对出现。
（3）鼠标单击图片时利用LoadPicture方法将分配的图片显示出来，并显示一段时间，然后重新显示初始背景，时间可通过Timer控制。为了实行同内容的图片消失，保证同时显示两张图片，可以用两个Timer分别控制两个图片显示时间。
（4）当两个图片显示时，比较两者图片内容是否相同，相同则利用LoadPicture方法将图片内容去掉，即图片消失。
四、主要技术问题的描述：
此程序要解决的问题有以下几个：
1） 添加控件数组时，首先添加一个Image控件，将Index设置为0，然后利用Load方法添加到窗体上，同时设定好各个元素的位置即可。此部分可编写为过程，不同等级均可调用。
2） 现已经提供素材，共有8张图片，文件名分别为1.jpg~8.jpg。不同级别图片使用个数不同，如初级共8张图片框，可使用1~8图片中的随机4个即可，每个图片2次。方法为：第一步定义一个数祖numer(4),分别得到1~8的随机数，
numer(1) = Int(Rnd * 7) + 1
Do
numer(2) = Int(Rnd * 7) + 1
Loop While numer(1) = numer(2)
Do
numer(3) = Int(Rnd * 7) + 1
Loop While numer(1) = numer(3) Or numer(2) = numer(3)
Do
numer(4) = Int(Rnd * 7) + 1
Loop While numer(1) = numer(4) Or numer(2) = numer(4) Or numer(3) = numer(4)。
第二步，定义数组nn(8, 2)，数组第一列代表八个Image控件数组元素，第二列存放从数组numer(4)得到的随机数，nn(i, 2) = numer(Int(Rnd * 4) + 1)，并以此作为分配图片的文件名，Image1(Index).Picture = LoadPicture(App.Path & "\" & nn(Index, 2) & ".jpg")；此时注意，numer(4)每个元素分配给数组nn只能两次，因此还需定义一个数组n(4)来存放numer(4)每个元素使用的次数，两次以后就不能在使用了，到两次后可以将其值清零。
中级和高级生成的图片控件较多，每个图片可以显示多次，要保证图片显示的次数为偶数次。
3） 单击图片，可得到其在数组中相应的index值，通过下面语句Image1(Index).Picture = LoadPicture(App.Path & "\" & nn(Index, 2) & ".jpg")将图片显示出来。定义一个逻辑型数组WhichVisible(),表示图片是否显示，若显示赋值为True。
Private Sub Image1_Click(Index As Integer)
Static ck As Integer
ck = ck + 1
If ck Mod 2 <> 0 Then
a = Index
WhichVisible(a) = True
Else
b = Index
WhichVisible(b) = True
End If
End Sub
a,b分别记录连续单击图片在数组中的位置。
4） 比较两者图片内容是否相同
If a <> b Then
If WhichVisible(a) = True And WhichVisible(b) = True Then
If nn(a, 2) = nn(b, 2) Then
Image1(a).Picture = LoadPicture("")
Image1(b).Picture = LoadPicture("")
Image1(a).Enabled = False
Image1(b).Enabled = False
Timer1.Enabled = False
Timer2.Enabled = False
kk = kk - 2
a = 0
b = 0
End If
End If
End If
变量kk保存游戏剩余图片的个数。
六、设计部分的评分标准（本题难度为B级，综合时要乘系数0.9）
完成基本要求前5项(项目符号为“■”部分) 60
基本要求全部完成 80
创新要求完成第一，二项 90
创新要求完成后两项任意一项 100
[注：最后得分是根据本部分得分(占最大比例)以及课程设计期间纪律、设计报告书、答辩情况综合得出)
--------------------编程问答-------------------- 一、 题目：图片记忆游戏
二、目的与要求：
1．目的：
培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件进行设计。
2．基本要求：
游戏开始，首先在窗体上生成若干个相同背景的图片框，单击后显示出其隐藏的图片，当同时显示的两个图片相同时，从窗体上将其删除，直至所有图片均消失，游戏结束。详细要求如下：
编写控制游戏的菜单
游戏开始根据不同等级在窗体上添加图片，具有相同背景并排列整齐；
通过鼠标单击图片框显示图片，显示出隐藏图片；
两个相同的图片消失；
游戏完成入门级和初级。
游戏能够连续执行。
现提供8张图片，要求编写程序中必须使用。
3．创新要求：
游戏完成中级和高级；
充分考虑游戏中的各种情况，使错误数降低为零；
增加时间控制，在规定时间内完成游戏；根据游戏时间给出分数；
设置晋级游戏，低级完成后自动进入下一级。
三、设计方法和基本原理：
1．问题描述：
图片记忆游戏，首先根据游戏等级在窗体上添加图片框，等级不同图片个数不同。其次，每个图片框分配一个图片，但图片并不显示，以相同图片作为背景。鼠标单击图片框，在一定时间内显示图片，当两个图片内容相同时，图片消失；当所有图片消失游戏结束。
2．问题的解决方案：
根据问题描述，可以将问题解决分为步：
（1）首先在窗体上添加一个Picture控件，然后在此控件内添加Image控件数组,根据游戏等级添加不同数目。添加控件数组的方法参见第8章例题。
（2）给每个Image控件分配图片。图片内容必须是随机产生，并且成对出现。
（3）鼠标单击图片时利用LoadPicture方法将分配的图片显示出来，并显示一段时间，然后重新显示初始背景，时间可通过Timer控制。为了实行同内容的图片消失，保证同时显示两张图片，可以用两个Timer分别控制两个图片显示时间。
（4）当两个图片显示时，比较两者图片内容是否相同，相同则利用LoadPicture方法将图片内容去掉，即图片消失。
四、主要技术问题的描述：
此程序要解决的问题有以下几个：
1） 添加控件数组时，首先添加一个Image控件，将Index设置为0，然后利用Load方法添加到窗体上，同时设定好各个元素的位置即可。此部分可编写为过程，不同等级均可调用。
2） 现已经提供素材，共有8张图片，文件名分别为1.jpg~8.jpg。不同级别图片使用个数不同，如初级共8张图片框，可使用1~8图片中的随机4个即可，每个图片2次。方法为：第一步定义一个数祖numer(4),分别得到1~8的随机数，
numer(1) = Int(Rnd * 7) + 1
Do
numer(2) = Int(Rnd * 7) + 1
Loop While numer(1) = numer(2)
Do
numer(3) = Int(Rnd * 7) + 1
Loop While numer(1) = numer(3) Or numer(2) = numer(3)
Do
numer(4) = Int(Rnd * 7) + 1
Loop While numer(1) = numer(4) Or numer(2) = numer(4) Or numer(3) = numer(4)。
第二步，定义数组nn(8, 2)，数组第一列代表八个Image控件数组元素，第二列存放从数组numer(4)得到的随机数，nn(i, 2) = numer(Int(Rnd * 4) + 1)，并以此作为分配图片的文件名，Image1(Index).Picture = LoadPicture(App.Path & "\" & nn(Index, 2) & ".jpg")；此时注意，numer(4)每个元素分配给数组nn只能两次，因此还需定义一个数组n(4)来存放numer(4)每个元素使用的次数，两次以后就不能在使用了，到两次后可以将其值清零。
中级和高级生成的图片控件较多，每个图片可以显示多次，要保证图片显示的次数为偶数次。
3） 单击图片，可得到其在数组中相应的index值，通过下面语句Image1(Index).Picture = LoadPicture(App.Path & "\" & nn(Index, 2) & ".jpg")将图片显示出来。定义一个逻辑型数组WhichVisible(),表示图片是否显示，若显示赋值为True。
Private Sub Image1_Click(Index As Integer)
Static ck As Integer
ck = ck + 1
If ck Mod 2 <> 0 Then
a = Index
WhichVisible(a) = True
Else
b = Index
WhichVisible(b) = True
End If
End Sub
a,b分别记录连续单击图片在数组中的位置。
4） 比较两者图片内容是否相同
If a <> b Then
If WhichVisible(a) = True And WhichVisible(b) = True Then
If nn(a, 2) = nn(b, 2) Then
Image1(a).Picture = LoadPicture("")
Image1(b).Picture = LoadPicture("")
Image1(a).Enabled = False
Image1(b).Enabled = False
Timer1.Enabled = False
Timer2.Enabled = False
kk = kk - 2
a = 0
b = 0
End If
End If
End If
变量kk保存游戏剩余图片的个数。
六、设计部分的评分标准（本题难度为B级，综合时要乘系数0.9）
完成基本要求前5项(项目符号为“■”部分) 60
基本要求全部完成 80
创新要求完成第一，二项 90
创新要求完成后两项任意一项 100
[注：最后得分是根据本部分得分(占最大比例)以及课程设计期间纪律、设计报告书、答辩情况综合得出)
--------------------编程问答-------------------- 我把题目具体内容放邮箱了 www.163.com 用户名：dashe12345 密码：dashe123456 在收件箱里那个叫做 “ 图片记忆游戏 ” 的邮件的附件里
--------------------编程问答-------------------- hh bucuoma
补充：VB , 基础类
