VB课程三子棋游戏设计报告.docVIP

三子棋游戏程序设计报告 学院 化工学院 班级 过程101 学号 100962 姓名 王贵霞 成绩 一、设计思路 1.要达到的目的 培养综合利用VB语言进行程序设计的能力，培根据问题描述，可以将问题解决分为： （1）（2） 三、部分程序关键源代码及注释 Private Sub Command1_Click(Index As Integer) times_number = times_number + 1 ’点击的次数 If times_number Mod 2 0 Then Command1(Index).Picture = Image1.Picture Else Command1(Index).Picture = Image2.Picture End If If same(0, 1, 2) Or same(3, 4, 5) Or same(6, 7, 8) Or same(0, 4, 8) Or same(2, 4, 6) Then Label3.Caption = 用时 Timer1.Enabled = False ‘停止计时 MsgBox 甲方胜 For i = 0 To 8 Command1(i).Picture = Nothing Command1(i).Enabled = False Next 游戏结束之后，不可以再继续，并且游戏还原 times_number = 0 ‘使点击次数归零 Command2.Enabled = True win = True Function same(a As Integer, b As Integer, c As Integer) As Boolean If (Command1(a).Picture = Image1.Picture And Command1(b).Picture = Command1(a).Picture And Command1(c).Picture = Command1(a).Picture) Then same = True Else same = False End If End Function ‘判断三子连珠 Private Sub Timer1_Timer() s = s + 1 If s 59 Then m = m + 1 s = 0 If m 59 Then h = h + 1 m = 0 End If End If Label4.Caption = Format(h, 00) : Format(m, 00) : Format(s, 00) End Sub ‘对计时器进行设置 四、设计方案的完善及目前存在的问题 1．设计方案要完善的地方 ①增加人机对战功能。 ②实现悔棋程序。 ③每个棋子只能单击一次。 2. 目前存在的问题 ①没有人机对战功能。 ②不可以悔棋。 ③棋子单击之后还可以单击 五、本次设计的收获及心得体会 通过对vb程序的设计使我明白了作什么事情都要用心，都要有毅力。即使是很简单的C类题，仍不可掉以轻心，需要解决的问题还有很多，学会查资料是很重要的。在这次课设中又一次体会到了探索的重要性，相信之后我会做得更完善。 六、对该题目和VB设计的意见和建议 1. 对该题目的意见和建议 题目很好，难易适中，综合了各方面的基本知识原理。 2．对本次设计的意见和建议 设计时间很长，很多问题不能够及时处理，应该更加注重基础知识的培养。 三子棋游戏程序报告（VB） 编号：35 开始模块 时间控制模块 下子程序模块 结果输出模块 结果输出模块 调用 调用 调用 调用