vb课程设计报告书-.pdf

《vb课程设计报告书-.pdf》由会员分享，可在线阅读，更多相关《vb课程设计报告书-.pdf（16页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、河北联合大学软件设计基础（VB）课程设计报告设计名称：猜 数 字 游 戏姓名：x c学号：2010030101专业班级：学院：机 械 工 程 学 院设计时间：2011 年 6 月 3 日 2011 年 6 月 24 日设计地点：学 校 机 房指导教师评语：指导教师签字：年月日成绩：软件设计基础（VB）课程设计报告第2 页，共16 页目录1.课程设计目的 3 2.课程设计任务与要求 3 3.课程设计说明书 4 4.课程设计成果 11 5.程序调试过程 13 6.设计问题的不足和改进方案 14 7.课程设计心得 15 8.附录 17 9.参考文献 17软件设计基础（VB）课程设计报告第3 页，共1

2、6 页1 课程设计目的软件设计基础（VB）课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖VB 的知识点，又接近工程实际需要。目的是通过课程设计的综合训练，培养学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目标是通过课程设计这种形式，帮助学生系统掌握VB 这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。2课程设计任务与要求：要求：本次课程设计利用软件设计基础（VB）课程中所学到的编程知识和编程技巧，完成具有一定难度和工作量的程序设计题目，帮助学生掌握编程、调试的基本技能，独立完成所布置的任务。要求：1、对系统进行功能需求分析2、设计合

3、理的数据结构和系统框架3、界面设计美观、清楚、合理4、编程简练，程序功能齐全，能正确运行5、具有一定的创新性6、说明书、流程图要清楚7、课题完成后必须按要求提交课程设计报告任务：1、熟练使用循环结构和选择结构；2、掌握基本控件3、使用一些基本函数4、程序能完整运行5、该程序需要一定创新软件设计基础（VB）课程设计报告第4 页，共16 页3课程设计说明书功能描述游戏运行后，玩家可以根据提示结果，猜测正确的数字，此游戏能考察玩家的逻辑思维，最终结果猜测正确，可以显示你总共猜测次数，谁猜的次数少，谁就获胜。概要设计模块结构图：根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示

4、各功能模块之间的接口关系（如下图）。简易文件系统功能框图详细设计1、首先在 Form 中加入一个CommandButtion 控件，在 Command1 上点击鼠标右键，选择复制，在窗体上点击鼠标右键，选择粘贴在窗体上粘贴出九个Command1,此时出现对话框问你要不要创建控件数组，在此选择是。然后再加入两个CommandButtion 控件，一个ListBox、一个 Frame、一个 Label。设置窗体的Caption属性为“猜一猜”、BorderStyle为 1Fixed Single、控件数组的Captin分别为 0、1、2、3、4、5、6、7、8、9，Command2 的 Capti

5、on为“确定，Command3 的 Caption为“取打开游戏（新游戏）输入数字判断结果（显示提示）结果错误，继续输入结果正确游戏结束软件设计基础（VB）课程设计报告第5 页，共16 页消，Frame1 的 Caption为“提示：，Label1 的 Cpation 为“0 个数值及位置猜对,0 个数值猜对但位置不对”。然后选择菜单编辑器编辑菜单为：游戏、新游戏、显示答案、结束游戏，她们的Name属性分别为：Game、New、View、End。2、在 Form_Load()事件中使除菜单外的所有的控件不可操作。3、在 New_Click()事件中产生4 个不同的随机数，并使Command2

6、可操作。4、在 Command1_Click(Index As Integer)中将控件数组的索引值作为所猜的数值，共按下控件数组Command1 中的不同的4 个。5、单击确定按钮时，判断用户输入是否正确代码实现Dim pca,pcb,pcc,pcd As Integer 电脑给出的每一位数Dim usera,userb,userc,userd As Integer 用户输入的每一位数Dim degree As Integer 用户猜了几次Dim num As Integer 判断用户输入次数的变量Private Sub Command1_Click(Index As Integer)用户输

7、入时If num=4 Then Command1(Index).Enabled=False 使得输入过的按钮无效End If 判断用户输入了几位，如果输入了四位则确认按钮有效If num=4 Then Command2.Enabled=True End If 取得用户输入Select Case Index Case 0 userenter(0)调用 userenter过程Case 1 userenter(1)Case 2 userenter(2)软件设计基础（VB）课程设计报告第6 页，共16 页Case 3 userenter(3)Case 4 userenter(4)Case 5 user

8、enter(5)Case 6 userenter(6)Case 7 userenter(7)Case 8 userenter(8)Case 9 userenter(9)End Select End Sub Private Sub Command2_Click()Dim a,b As Integer a=0 b=0 degree=degree+1 If usera=pca Then a=a+1 ElseIf usera=pcb Or usera=pcc Or usera=pcd Then b=b+1 End If If userb=pcb Then a=a+1 ElseIf userb=pca

9、Or userb=pcc Or userb=pcd Then b=b+1 软件设计基础（VB）课程设计报告第7 页，共16 页End If If userc=pcc Then a=a+1 ElseIf userc=pca Or userc=pcb Or userc=pcd Then b=b+1 End If If userd=pcd Then a=a+1 ElseIf userd=pca Or userd=pcb Or userd=pcc Then b=b+1 End If 显示提示Label1.Caption=a&个数值及位置猜对(A)&b&个数值猜对但位置不对(B)List1.AddIte

10、m usera&userb&userc&userd&a&A&b&B 初始化输入按钮Command2.Enabled=False For i=0 To 9 Command1(i).Enabled=True Next i num=1 判断输赢If a=4 Then MsgBox 你猜对了！&你一共猜了°ree&次 For i=0 To 9 Command1(i).Enabled=False Next i Command2.Enabled=False End If 软件设计基础（VB）课程设计报告第8 页，共16 页End Sub Private Sub Command3_Click()num

11、=1 For i=0 To 9 Command1(i).Enabled=True Next i Command2.Enabled=False End Sub Private Sub end_Click()End End Sub Private Sub Form_Load()For i=0 To 9 Command1(i).Enabled=False Next i Command2.Enabled=False Command3.Enabled=False view.Enabled=False End Sub Private Sub new_Click()view.Enabled=True 可以看

12、答案List1.Clear 清空列表框degree=0 软件设计基础（VB）课程设计报告第9 页，共16 页对随机数生成器做初始化Randomize num=1 Label1.Caption=0&个数值及位置猜对&0&个数值猜对但位置不对 电脑给出的每一位数pca=Int(9*Rnd)Do pcb=Int(9*Rnd)Loop While pcb=pca Do pcc=Int(9*Rnd)Loop While pcc=pca Or pcc=pcb Do pcd=Int(9*Rnd)Loop While pcd=pca Or pcd=pcb Or pcd=pcc For i=0 To 9 Com

13、mand1(i).Enabled=True Next Command2.Enabled=False Command3.Enabled=True End Sub Private Sub view_Click()MsgBox 答案是：&pca&pcb&pcc&pcd&你答对了吗？End Sub Sub userenter(i)取得用户输入If num=1 Then usera=i num=num+1 软件设计基础（VB）课程设计报告第10 页，共16 页ElseIf num=2 Then userb=i num=num+1 ElseIf num=3 Then userc=i num=num+1 E

14、lseIf num=4 Then userd=i num=num+1 Else:MsgBox 四位数够了！End If End Sub 软件设计基础（VB）课程设计报告第11 页，共16 页4课程设计成果（1）初始页面（2）开始游戏（点击新游戏，输入4 个数）软件设计基础（VB）课程设计报告第12 页，共16 页（3）运行结果（点击确定按钮）（4）查看答案（点击游戏菜单中的查看答案）软件设计基础（VB）课程设计报告第13 页，共16 页5.程序调试过程在程序运行过程中，调试是不可或缺的重要环节。调试过程中，可以对程序直接进行语法检查，我在写完所有代码后，然后运行程序，就发现了一些语法错误，如

15、if 后缺少 end if，对变量没有正确定义。我在运行程序时，发现运行结果有时不正确，我想这应该是逻辑错误，对于逻辑错误 vb 是检查不出来的，也没有提示信息产生，所以只能靠自己仔细分析阅读程序，并认真调试。最后发现有一个地方的pcc 写成了 pcd，还有一个地方的 usera 写成了 userc。就是这些细小的地方，导致了程序运行结果发生错误。软件设计基础（VB）课程设计报告第14 页，共16 页6.设计问题的不足和改进方案1、此程序窗口单一，只有一个窗口。改进方案：可以在猜测结果正确时，弹出一个新窗口，显示一些漂亮的图片加上一些文字。2、游戏的内容太单一。改进方案：可以加一些新鲜的画面，增加玩家的兴趣。软件设计基础（VB）课程设计报告第15 页，共16 页7.课程设计心得8.附录软件设计基础（VB）课程设计报告第16 页，共16 页有些需要说明的部分。如添加ActiveX 等非不标准部件，或使用文件操作时对路径有特殊要求等。若没有特殊要求，此处为“无”。9.参考文献1、http:/