扫扫二维码,随身浏览文档
手机或平板扫扫即可继续访问
猜数字游戏论文
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由:
您的内容已经提交成功
您所提交的内容需要审核后才能发布,请您等待!
3秒自动关闭窗口一个简单的猜数字游戏的实现(一)
前言:这几天看Essential C++, 第一章Stanley B.Lippman用C++实现了一个猜数字的小游戏,细细体会,程序虽小,但五脏俱全,一个完整的程序设计思路,变量命名,小的语法细节及指针带来的弹性设计,细细揣摩受益颇多,在这里把程序的设计过程和夹杂着自己的思路整理一下,也感谢侯捷老师细致的翻译。
1.功能需求分析:游戏功能:给出Fibonacci数列的前两个数字,用户猜测第三个数字;注:我们往往从用户那里得到一个较为模糊的需求,软件功能的概括描述,或游戏功能的简单概括,而我们在用计算机实现时需要得到一个细致的需求分析,通过从计算机的角度思考及和用户的不断反馈,逐渐的细化功能需求,最终获得一个从计算机角度的需求文档。需求文档:游戏提示用户给出猜测,在游戏设计中,我们需要考虑猜测结果正确或错误的处理方式,如果正确应给出提示;
如果错误,询问用户是否愿意猜一次,并设置一个次数上限,当猜错的次数超过此上限时应提示用户并结束游戏。
有了详细的需求文档我们就可以进行下一步的数据结构设计和程序流程设计了;设计时将程序划分为若干个小的模块,考虑实现该功能模块的数据结构及代码,最后考虑整个流程及相应的流程控制量;
2.设计过程:游戏的数列需用一个数组保存,用大小为3的整型数组;程序提示前两个数字,用户输入猜测数字,并与数组第三个数字比较;数据结构:数列:int Fibonacci[3];用户输入信息:int usr_猜测次数:const int max_tries=3;int num_tries=0;
流程控制量:char usr_bool usr_
见上传文件:猜数字游戏(1).rar
一个良好的变量命名习惯和变量初始化习惯;
一些经典程序功能模块要能够熟练简洁快速的实现,从需要的变量到代码;
如询问用户 的流程控制:
char usr_ //获取用户输入
bool usr_ //循环控制布尔量
if(usr_rsp=='n'||usr_rsp=='N')
&&&&& usr_more=&&&&&&&
阅读(...) 评论()VB猜数字游戏!_百度知道
VB猜数字游戏!
txt,,错误",,数字太小了!", 0, 0,数字太大了!", Exit Sub
If b = c Then
m = MsgBox(",SetFocus
txt,",Caption = txt,)
CommandOK,)
ElseIf b >,恭喜",错误",
谢谢!,而不是按一次OK LAB中的数字就被前一次替换掉了,请输入一个数字(1-100)",
e = MsgBox(",请输入正确的值!", Or b >, 1 Then MsgBox ",SetFocus
End IfEnd SubPrivate Sub txt_Change()
If b = ",Text = b & ",,Text = b & ",恭喜你猜对了!",太小了!",TextEnd SubPrivate Sub CommandOUT_Click()
EndEnd SubPrivate Sub Form_Load()
c = Int(100 * Rnd + 1)End Sub如何让LAB中出现前面所有的数字,, ", ", ",,,)
CommandOK,
e = MsgBox(",猜数字", ",, 100 Or b <,太大了!", 0,Dim c As LongPrivate Sub Command1_Click()
c = Int(100 * Rnd + 1)End SubPrivate Sub CommandOK_Click()
b = InputBox(",
如果哪位大虾可以帮忙更加完善下,
会有额外的分的
提问者采纳
请输入正确的值!", c,Text = b & ", 0, ",
MsgBox txt,这样看起来更清晰代码也做了一些调整,
MsgBox ",,Text,AddItem txt,错误",猜数字", 0,))
Select Case b
Case Is >, 太小了!",请输入一个数字(1-100)", 0,
Case Is >,
CommandOK, 太大了!", ", 1,你看看吧,恭喜",SetFocus
Case Is <,
CommandOK,Text, ",Text = b & ",Text = b & ",错误", 恭喜你猜对了!",Dim c As LongPrivate Sub Command1_Click()
c = Int(100 * Rnd + 1)End SubPrivate Sub CommandOK_Click()
Dim b As Long
b = Val(InputBox(", ",TextEnd SubPrivate Sub CommandOUT_Click()
EndEnd SubPrivate Sub Form_Load()
c = Int(100 * Rnd + 1)End Sub,
MsgBox txt, 100 Or b <,Text,
Case c,SetFocus
End Select
MsgBox txt,
txt,建议使用 列表框 listbox ,
提问者评价
其他类似问题
按默认排序
其他1条回答
而且显示有限。,Text & vbCrLf & LAB,Caption不过我建议你使用text控件,使用多行输入,这样有滚动条。而使用label控件是无法使用滚动条进行查看的,LAB,Caption = txt,
猜数字游戏的相关知识
等待您来回答
您可能关注的推广回答者:
下载知道APP
随时随地咨询
出门在外也不愁vb猜数字游戏课程设计报告_百度文库
两大类热门资源免费畅读
续费一年阅读会员,立省24元!
评价文档:
20页2下载券13页1下载券2页2下载券45页免费7页免费 15页免费36页2下载券27页3下载券18页2下载券32页1下载券
喜欢此文档的还喜欢13页1下载券20页2下载券10页1下载券2页2下载券30页免费
vb猜数字游戏课程设计报告|
把文档贴到Blog、BBS或个人站等:
普通尺寸(450*500pix)
较大尺寸(630*500pix)
互联网会议PPT资料大全
你可能喜欢}