计算机程序设计课程设计说明书.docx

计算机程序设计课程设计说明书.docx

《计算机程序设计课程设计说明书.docx》由会员分享，可在线阅读，更多相关《计算机程序设计课程设计说明书.docx（12页珍藏版）》请在冰豆网上搜索。

计算机程序设计课程设计说明书

《计算机程序设计》

课程设计说明书

题目：

猜数字游戏

系别班级：

15级金融系本科一班

小组成员：

孟瑶20151206011010

李月20151206011029

张昊馨20151206011036

姚美娜20151206011040

2016年6月6日

目录

1系统设计1

1.1选题目的1

1.2系统主要功能1

2设计心得6

2.1课程设计收获6

2.2遇到问题及解决方法6

3小组成员分工7

4附录7

1系统设计

1.1选题目的

课程设计为我们提供了一个既能动手又能动脑，独立实践的机会，将课本上的VB课理论知识和实践有机的结合起来，锻炼我们的分析解决实际问题的能力、提高运用VB应用的能力。

1.2系统主要功能

猜数字游戏：

游戏开始时系统将随机产生一个数字不同的四位数，玩家根据游戏提示纠正答案（1A0B：

表示猜中一个数字且位置正确；2A2B有两个数字正确且位置正确，有两个数字正确当位置不正确）输入的数字不能相同也不能为空而且只有十次机会。

图1-1软件开始界面

图2-1程序运行界面

图2-2软件运行界面

图2-3程序运行界面

图3-1游戏要求

2设计心得

2.1课程设计收获

实践能够检验是否收获。

通过本次课程设计我们不仅对课本知识加深了印象和了解，也明白了如何把理论知识运用到现实中实践，同时也学到了许多有关VB的课外的知识。

比如在查阅资料过程中我们学会了产生随机数的多种方法：

一次性随机产生四位数；每次随机产生一个数组合成四位数，可定义动态数组也可定义几个变量去实现。

在定义计数变量时把它设为静态变量以及如何使指定的对象什么时候获得焦点等。

在完成课程设计过程中锻炼了我们分析解决实际问题的能力。

开始时并不是很顺利对课本内的知识掌握的不太好，很多知识点被遗忘、不清楚，也暴露出了对VB操作环境的不熟悉，和对一些控件的不熟以及对一些事件属性不了解，但通过这次课程设计大半部分出现的问题都得到了解决。

设计这款游戏让我们更加了解了VB开发环境有用性和前景性，更加培养了我们对学习VisualBasic程序设计的热情和信念。

2.2遇到问题及解决方法

问题：

由计算机随机生成四位不重复的数字，然后根据游戏者猜的数字，向其提供反馈信息：

正确地数字有几个以及数字正确而且位置正确的有几个，游戏者根据这些信息重新猜一个数字，如此反复直到猜中为止。

解决方法:

根据问题描述，可以将问题解决分为两部分:

（1）生成各位不重复的四位数。

（2）对游戏者的输入进行判断，并反馈提示信息。

3小组成员分工

1.孟瑶

实现Command1和Command2,全程监控并编写课程设计说明书。

2.姚美娜

实现Command3和Command2,编写部分课程设计说明书及程序代码。

3.李月

实现Command3和Command1，全程监控编写代码以及程序的后期设计。

4.张昊馨

实现Command3和Command4，编写部分课程设计说明书并处理程序的后期设计。

4附录

Form1

PrivateSubCommand1_Click（）

Form1.Hide

Form2.Show

EndSub

PrivateSubCommand2_Click（）

Form1.Hide

Form3.Show

EndSub

PrivateSubCommand3_Click（）

End

EndSub

Form2

Dima1AsInteger,a2AsInteger,a3AsInteger,a4AsInteger

PubliccishuAsInteger

PrivateSubCommand1_Click（）

Command2.Enabled=True

Command3.Enabled=True

Label2.Caption=0&"A"&0&"B"

a1=Int（10*Rnd）

Do

a2=Int（10*Rnd）

LoopWhilea2=a1

Do

a3=Int（10*Rnd）

LoopWhilea3=a1Ora3=a2

Do

a4=Int（10*Rnd）

LoopWhilea4=a1Ora4=a2Ora4=a3

Label1.Caption="已经随机产生了一个数字（0-9）不同的四位数！

猜猜是什么数吧！

"

EndSub

PrivateSubCommand2_Click（）

cishu=0

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

Randomize

Label2.Caption=0&"A"&0&"B"

a1=Int（10*Rnd）

Do

a2=Int（10*Rnd）

LoopWhilea2=a1

Do

a3=Int（10*Rnd）

LoopWhilea3=a1Ora3=a2

Do

a4=Int（10*Rnd）

LoopWhilea4=a1Ora4=a2Ora4=a3

Label1.Caption="已经随机产生了一个数字（0-9）不同的四位数!

猜猜是什么数吧!

"

EndSub

PrivateSubCommand3_Click（）

Dimtmp1AsInteger,tmp2AsInteger,tmp3AsInteger,tmp4AsInteger

DimAAsInteger,BAsInteger

A=0

B=0

Ifcishu=10Then

MsgBox"很遗憾!

你已经猜了10次答案是"&a1&a2&a3&a4,,"猜数字"

ExitSub

EndIf

tmp1=Val（Text1.Text）

tmp2=Val（Text2.Text）

tmp3=Val（Text3.Text）

tmp4=Val（Text4.Text）

Iftmp1=tmp2Ortmp1=tmp3Ortmp1=tmp4Then

MsgBox"输入的数字不能相同,请重新输入",48,"猜数字游戏"

EndIf

Iftmp2=tmp3Ortmp2=tmp4Ortmp2=tmp1Then

MsgBox"输入的数字不能相同,请重新输入",16,"猜数字游戏"

EndIf

Iftmp3=tmp4Ortmp3=tmp2Ortmp3=tmp1Then

MsgBox"输入的数字不能相同,请重新输入",64,"猜数字游戏"

EndIf

Iftmp4=tmp1Ortmp4=tmp2Ortmp4=tmp3Then

MsgBox"输入的数字不能相同,请重新输入",48,"猜数字游戏"

EndIf

cishu=cishu+1

Iftmp1=a1Then

A=A+1

ElseIftmp1=a2Ortmp1=a3Ortmp1=a4Then

B=B+1

EndIf

Iftmp2=a2Then

A=A+1

ElseIftmp2=a1Ortmp2=a3Ortmp2=a4Then

B=B+1

EndIf

Iftmp3=a3Then

A=A+1

ElseIftmp3=a1Ortmp3=a2Ortmp3=a4Then

B=B+1

EndIf

Iftmp4=a4Then

A=A+1

ElseIftmp4=a1Ortmp4=a2Ortmp4=a3Then

B=B+1

EndIf

Label2.Caption=A&"A"&B&"B"

IfA=4Then

MsgBox"恭喜你,你猜对了!

"&"你一共猜了"&cishu&"次",,"猜数字游戏"

EndIf

EndSub

PrivateSubCommand4_Click（）

End

EndSub

PrivateSubForm_Load（）

Command2.Enabled=False

Command3.Enabled=False

Label1.BackStyle=0

Label2.BackStyle=0

EndSub

PrivateSubText1_Change（）

IfLen（Text1.Text）=1Then

Text2.SetFocus

EndIf

EndSub

PrivateSubText1_Click（）

Text1.Text=""

EndSub

PrivateSubText2_Change（）

IfLen（Text2.Text）=1Then

Text3.SetFocus

EndIf

EndSub

PrivateSubText2_Click（）

Text2.Text=""

EndSub

PrivateSubText3_Change（）

IfLen（Text3.Text）=1Then

Text4.SetFocus

EndIf

EndSub

PrivateSubText3_Click（）

Text3.Text=""

EndSub

PrivateSubText4_Click（）

Text4.Text=""

EndSub

Form3

PrivateSubCommand1_Click（）

Form3.Hide

Form1.Show

EndSub