[政史地]b例题循环.pptVIP

* * 工程设计步骤如下： （1）新建“标准EXE”工程，在出现的界面上添加两个标签、一个文本框、一个图片框和两个命令按钮。如图4-22左图所示。 （2）设置窗体及控件的属性如图4-22左图所示。 4-22牛顿迭代法求方程根工程界面设计及运行结果 * * （3）编写代码如下 编写单击Command1命令按钮“求根”所执行的代码 ?Private Sub Command1_Click() Dim f As Double, f1 As Double Const eps = 0.0001 Dim x0 As Double, x1 As Double x1 = Val(Text1.Text) * * Do x0 = x1 f = Exp(-x0) - x0 f1 = -Exp(-x0) - 1 x1 = x0 - f / f1 Loop While (x1 - x0) eps Picture1.Cls Picture1.Print x1 End Sub 根从图片框上输出 牛顿迭代法求根 * * 编写单击Command2命令按钮“退出”所执行的代码 Private Sub Command2_Click() End End Sub 编写单击窗体所执行的代码 Private Sub Form_Click() Text1.Text = Picture1.Cls End Sub * * 编写文本框变化时所执行的代码 Private Sub Text1_Change() Const Tile = 牛顿迭代法求方程根程序 If Text1.Text And_ Not IsNumeric(Text1.Text) Then MsgBox 输入的不是数字！, vbOKOnly, Tile Text1.Text = Text1.SetFocus End If End Sub * * （4）运行工程。按F5键运行工程。当出现运行画面时在文本框中输入方程的初始根，然后单击“计算”命令按钮，就可在下面的图片框中输出方程的根如下页图4-23所示。 注意：在程序中，对于文本框中输入的不是数字的其他情况给出了必要的提示。 * * 图4-23 牛顿迭代法求方程根程序运行结果 * * 我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡问题：鸡翁一、值钱五, 鸡母一、值钱三，鸡雏三、值钱一，百钱买百鸡，问鸡翁、母、雏各几何？ 分析：若公鸡x只，母鸡y只，小鸡z只，依题意可以列出以下方程组： * * 在上面的两个方程中，有3个未知数，属于不定方程，无法直接求解。下面我们用“穷举法”求解。穷举法是将各种可能的组合全部一一测试，将符合条件的组合输出。这里使用二层循环结构。即将公鸡数从1变化到100，母鸡数也从1变化到100，对于每一组公鸡和母鸡数，从100中减去公鸡和母鸡数就得到小鸡的个数，然后再计算买三种鸡的总钱数是否为100元。若是就得到一组解，然后再继续。 * * 再仔细分析一下，若100元钱全部都买公鸡最多买20只，如果全部买母鸡最多买33只，所以穷举法外循环中公鸡数可从1 变到19，内循环中母鸡数可从1 变化到33，小鸡个数应100中减去公鸡数和母鸡数得到。 工程设计步骤如下： （1）新建“标准EXE”工程，在出现的窗体上添加四个标签、一个列表框、一个框架和两个命令按钮。其中标签1是放在框架内。 * * （2）标签1的Caption属性设为“公鸡五元、母鸡三元、小鸡一元钱三只。100元钱买100只鸡。问公鸡、母鸡、小鸡各多少只？”标签2-标签4的Caption属性分别设置为“公鸡”、“母鸡”、“小鸡”。如下图所示。 * * （3）代码编写如下： 编写单击命令按钮“计算”所执行的代码如下。 Private Sub Command1_Click() List1.Clear For x = 1 To 19 外循环求公鸡数 For y = 1 To 33 内循环求母鸡数 z = 100 - x – y 小鸡数 If 5 * x + y * 3 + z / 3 = 100 Then p = Format(x, @@@) Format(y,_ @@@@@@) Format(z, @@@@@@) Format 是格式化一个表达式。 * * Rem 把满足条件的一种情况添加到列表框中。