VB课程设计任务书40-自动发牌.docVIP

河北工业大学计算机软件技术基础（VB） 课 程 设 计 任 务 书 本题难度级别：B实现基本要求代码:约200行主要涉及: 图像控件、自定义类型、控件数组 一、设计题目：自动发牌 出题人:陈冀川 二、目的与要求1.目的培养学生综合利用语言进行程序设计的能力基本要求3.创新要求在基本要求达到后，进行创新设计，。、设计方法和基本原理问题描述一副扑克有52张牌，打桥牌时应将牌分给四个人。请设计一个程序完成自动发牌的工作。要求:黑桃用S Spaces 表示;红桃用H Hearts 表示;方块用D Diamonds 表示;梅花用C Clubs 表示。按照打桥牌的规定，每人应当有13张牌。在人工发牌时，先进行“洗牌”，然后将洗好的牌按一定的顺序发给每一个人。为了便于计算机模拟，可将人工方式的发牌过程加以修改:先确定好发牌顺序:西、北、东、南；将52张牌按花色顺序编号:如黑桃用S1-S13表示；红桃用H1-H13表示；红桃用H1-H13表示；红桃用H1-H13表示；然后从52张牌中随机的为每个人抽牌。 2. 问题的解决方案Activate事件里加载图片。 ③编写代码 在标准模块里说明用户自定义类型： Type Cards Num As String * 3 Seq As Integer End Type Num存放扑克牌编码，如S13表示黑桃K，Seq存放本张牌在52张牌中的序号。对Seq赋值随机数，然后排序，模拟洗牌过程。 定义： Public WPlayer 1 To 13 As String Public EPlayer 1 To 13 As String Public SPlayer 1 To 13 As String Public NPlayer 1 To 13 As String 4个数组存放每人手里的13张牌。 把Card.Num赋值给WPlayer模拟发牌过程。 图片的加载代码： .Picture LoadPicture App.Path \GIF\ Trim NPlayer I + 1 .GIF 四、问题的描述isual Basic 程序设计教程 及 Visual Basic 实验教程 VB6.0程序员指南 VB6.0控件参考手册 MSDN中文版，课程设计网站上提供的其它资料。 在本题设计素材中还提供了如下本题专用资料： 扑克图片 六、设计部分的评分标准（本题难度为B级，综合时乘难度系数1.0） 完成基本要求 80 完成基本要求后的扩展要求 90 所有要求完成并且有创新 100 [注：最后得分是根据本部分得分 占最大比例 以及课程设计期间纪律、设计报告书、答辩情况综合得出 VB课程设计任务书 –自动发牌 第3页共3页