使用vb程序体验数学中的“二分法”

使用计算机编程体验“二分法” 内容摘要：“二分法”思想是高中数学必修内容之一，是计算几何的基本内容，是利用信息技术解决函数、方程问题的基础。本文就是通过一个简单的游戏设计，让学生和老师都能了解利用Visual Basic实现数学算法的一般步骤，深刻体验二分思想的内在含义。 关 键 词：算法 流程图 信息技术 代码 二分法 正 文： 数学是一种文化，她包括学科思想文化、科学的方法以及人生哲理。对于学生来说，这些比单纯的数学知识本身更为重要。教师不可能将每一个学生都培养成数学家，但是可以做到使每个学生学会感受数学带来的快乐。特别是信息技术的发展，给数学学习提供了研究、探索的平台，让数学变得容易理解，使得数学走向生活，走向实践。信息技术的应用使数学更加情境化，让数学教学更加生动活泼，真正从书本中、课堂上、考试中走出来，回到数学教学的本体上来。二分思想,自古就有:“一分为二,二分为四,四分为八也”的论断。遵循这样的思想,我们的祖先有了太极八卦的相关学说。当今,这一古老的智慧仍旧闪耀着绚丽光芒。本文就现代中学生的信息技术水平设计了一个小程序来体验二分思想。 游戏内容 电视台的某些娱乐节目中，要求参与者快速猜出物品的价格，主持人出示某件物品，参与者每次估算出一个价格，主持人只能回答高了、低了、或者答对了。 在游戏中，主持人出示的是一台价值在1000元以内的随身听，看谁能最快的猜到正确答案。 问题分析 要能快速的猜中，就必须采用二分的思想，第一次猜中间的数500，听主持人提示是高了还是低了，如果高了，则在0–500中间猜，那猜250；如果主持人提示低了，则在500–1000中间猜，那猜750；以此类推，取某一段价格的中间值。 算法思路 系统产生一个随机数0–1000，作为物品的实际价格； 要求参与者输入所猜的价格数字； 和实际价格比较，如果和实际价格相等，则跳到4）步，如果比实际价格高，则输出“高了”，跳到2）步，如果比实际价格低，则输出“低了”，跳到2）步。 输出“答对了”信息。 算法流程图 伪代码 随机生成一个实际价格数x 第一次猜价格为y Do while 实际价格x≠猜的价格y If 实际价格x<猜的价格y Then 输出参与者猜的价格和主持人的回应“高了” Else 输出参与者猜的价格和主持人的回应“低了” End if 继续猜价格为y Loop 最后输出参与者猜的价格和主持人的回应“答对了” 实现步骤： 设计界面：打开Visual Basic 6.0，在新建窗体Form1中添加按钮（CommandButton），name为Command1。效果如图： 添加代码：双击窗体Form1打开添加代码对话框，在对话框中输入VB代码。效果如图： 附VB代码： Private Sub Command1_Click() Dim x, y As Integer Cls Randomize Timer x = (Int(Rnd * 999) + 1) y = InputBox("你认为1000元以内的随身听价格是多少？,", "价格输入", , 2200, 900) Do While x <> y If x < y Then Print "参与者："; y; "元!" Print "主持人： 高了! " Print Else Print "参与者："; y; "元!" Print "主持人：低了!" Print End If y = InputBox("你认为1000元以内的随身听价格是多少？,", "价格输入", , 2200, 900) Loop Print "参与者："; y; "元!" Print "主持人：恭喜你!答对了！实际价格就是"; x; "元。" End Sub Private Sub Form_Load() Command1.Caption = "开始猜" Form1.Caption = "猜商品价格游戏" Form1.Height = 6500 Form1.Width = 6000 End Sub 调试与运行 单击启动按钮或者按F5，运行程序，单击按钮“开始猜”，弹出“价格输入”对话框。如图： 程序运行过程： 把我们输入的数据放在excel表格中进行分析，通过图表我们可以看出：我们猜的价格两个价格的中间值（如：500和0中间值是250,；250和0中间值是125；125和250的中间值是1 ... ...