VB课程设计任务书04-谁养鱼？.docVIP

河北工业大学计算机软件技术基础（VB） 课 程 设 计 任 务 书 本题难度级别：B 实现基本要求代码: 约150行 主要涉及: 数组及算法 一、设计题目：谁养鱼？ 又名：爱因期坦迷题 （选题人：曹新国） 在一条街上，有5座房子，喷了5种颜色，每个房子里住着不同国籍的人。 每个人喝着不同的饮料，抽着不同品牌的香烟，养着不同的宠物。 试编程求出：谁养鱼？ 提示: * 英国人住红色房子 * 瑞典人养狗 * 丹麦人喝茶 * 绿色房子在白色房子左面且紧挨着 * 绿色房子主人喝咖啡 * 抽PALL MALL香烟的人养鸟 * 黄色房子主人抽DUNHILL香烟 * 住在中间房子的人喝牛奶 * 挪威人住第一间房 * 抽BLENDS香烟的人住在养猫的人隔壁 * 养马的人住抽DUNHILL香烟的人隔壁 * 抽BLUE MASTER的人喝啤酒 * 德国人抽PRINCE香烟 * 挪威人住兰色房子隔壁 * 抽BLENDS香烟的人有一个喝水的邻居 据说此题为爱因斯坦所出的智力题。还说有98%的人无法解出，但我们学了VB程序设计，自然是一算就知道了。 二、目的与要求1.目的培养学生综合利用语言进行程序设计的能力，主要是。基本要求3.创新要求在基本要求达到后，进行创新设计， 三、设计方法和基本原理 问题描述问题的解决方案 处理各个命令， 例如开始寻找或者暂停等。 Function CheckAllOk As Boolean 检查当前排列是否符合全部15个条件。 Sub Timer1_Timer 定时器事件，用于动态显示当前排列，每秒更新一次即可，不需要每种排列都显示出来，否则运行时间会比较长。 Sub Initalize a As Integer 初始化一种排列，例如五种饮料分别编号为1到5，原始排列为12345，下一次的排列可能为21345或者其它。 四、问题的描述 住在中间房子的人喝牛奶 If B 3 1 Then Exit Function 其中B 是每个人所喝饮料的数组，编号是1到5，3是中间，1代表牛奶。 五、参考资料 Visual Basic 程序设计教程 及 Visual Basic 实验教程 VB6.0程序员指南 VB6.0控件参考手册 MSDN中文版，课程设计网站上提供的其它资料。 六、设计部分的评分标准（本题难度为B级，综合时要乘系数0.9） 完成基本要求1、3项 60 基本要求全部完成 80 创新要求完成前两项 90 创新要求完成4项或以上 100 [注：最后得分是根据本部分得分 占最大比例 以及课程设计期间纪律、设计报告书、答辩情况综合得出 VB课程设计任务书 – 谁养鱼？ 第1页共2页