信息编程加工3.ppt

* * 你是哪里来？ 当然，你从你的父亲和母亲那里来。 这是一个准确而简单的回答。 现在，我们从你这一代开始，往上追溯。你父母各有自己的父母。所以你有爷爷、奶奶、外公、外婆四个。我们再往上追溯，他们四个各有自己的父母，你于是就有了四个太祖父四个太祖母。这八个人各有自己的父母。你的祖先现在变成十六个。 以此类推，往上追溯十代人，你的祖先已经变成一千多人。如果再继续往上追溯，比如说，我们追溯到1628年。你的祖先加起来已经是好几千人。那一年，中国爆发了明朝农民起义。你的几千个祖先当时如果走到一起，将是一支蔚为壮观的农民起义队伍。在那个多难动荡的时代，你的几千祖先生活在充满灾难、饥荒、瘟疫和战争的世界里。他们离死神只有一步之遥，他们存活的概率或许只是百分之一，甚至是千分之一。 在这样恶劣的生存环境中，唯有生命力最强盛、最聪明、最幸运的人，才能够侥幸存活下来。 假如在1628年你那几千个祖先中间有任何一个早亡，你家族生命链上的一个环节就脱落了。那么，在当今世界，就不可能有你。 生命的尊严 思考并计算：《读者》的一篇文章“生命的尊严”里提到，从你们这一代（1995）开始，往上追溯到1628年，你的祖先加起来已经是好几千人。请你算算，到底是多少人？ 你是哪里来？ 当然，你从你的父亲和母亲那里来。 这是一个准确而简单的回答。 现在，我们从你这一代开始，往上追溯。你父母各有自己的父母。所以你有爷爷、奶奶、外公、外婆四个。我们再往上追溯，他们四个各有自己的父母，你于是就有了四个太祖父四个太祖母。这八个人各有自己的父母。你的祖先现在变成十六个。 以此类推，往上追溯十代人，你的祖先已经变成一千多人。如果再继续往上追溯，比如说，我们追溯到1628年。那时你的祖先加起来已经是好几千人。那一年，中国爆发了明朝农民起义。你的几千个祖先当时如果走到一起，将是一支蔚为壮观的农民起义队伍。在那个多难动荡的时代，你的几千祖先生活在充满灾难、饥荒、瘟疫和战争的世界里。他们离死神只有一步之遥，他们存活的概率或许只是百分之一，甚至是千分之一。 在这样恶劣的生存环境中，唯有生命力最强盛、最聪明、最幸运的人，才能够侥幸存活下来。 生命的尊严 已知条件： 1、你这一代（1995） 2、往上追溯（1628） 3、假设28年为一代 完成目标：你的祖先有多少人？ 计算： 1、从1628年到1995年，经历了多少代？ 2、计算出祖先人数 shu=2n n=(1995-1628)/28 取n的整数部分 已知条件： 1、你这一代（1995） 2、往上追溯（1628） 3、假设28年为一代 完成目标：你的祖先有多少人？ 计算： 1、从1628年到1995年，经历了多少代？ 2、计算出祖先人数 shu=2n n=(1995-1628)/28 取n的整数部分 信息的编程加工 编程加工信息的一般步骤： ②设计方法（算法） ③编写代码 ④调试运行 ①分析信息 Private Sub Form_Click() n = Int((1995 - 1628) / 28) shu = 2 ^ n Print 祖先的人数：, shu End Sub ※可以任意设置两代的间隔时间吗？如间隔28年为一代，间隔24年为一代，而不用每次都修改程序 Private Sub Form_Click() a = InputBox(请设置多少年为一代, 年代间隔设置) n = Int((1995 - 1628) /a) shu = 2 ^ n Print 祖先的人数：, shu End Sub a = InputBox(请设置多少年为一代, 年代间隔设置) Private Sub Form_Click() n = Int((1995 - 1628) / 28) shu = 2 ^ n Print 祖先的人数：, shu End Sub 信息的编程加工 InputBox()函数,显示一个能接受用户输入的对话框,并返回用户在对话框中输入的信息给变量。 语法格式:变量=InputBox(提示信息内容,对话框标题) 请试试让用户输入要追溯的年份 Private Sub Form_Click() ynian = InputBox(请设置多少年为一代, 年代间隔设置) nian = InputBox(请设置要追溯到那一年, 追溯年份) n = Int((1995 - nian) / ynian) s