第4章数据输入输出讲述.pptVIP

4.3 数据输入输出函数和过程 例4.4 如果将输入的信息放在标签中显示，应该如何修改程序？ 4.3 数据输入输出函数和过程 鸡兔同笼问题：鸡和兔子被放在同一个笼中，现在已知鸡兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少只? 我们用 H 表示总头数，F 表示总脚数 用 C 表示鸡，R 表示兔子 则有: C + R = H ① 2C + 4R = F ② R =（F- 2H）/ 2 　③ C = H – R ④ 例4.5 分析： 4.3 数据输入输出函数和过程 文本框名称 ：txtR 文本框名称 ：txtC 按钮名称 ：cmdStart 用InputBox输入H,F。用标签显示。 鸡兔同笼问题：鸡和兔子被放在同一个笼中，现在已知鸡兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少只? 例4.5 4.3 数据输入输出函数和过程 鸡兔同笼问题：鸡和兔子被放在同一个笼中，现在已知鸡兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少只? 例4.5 4.3 数据输入输出函数和过程 鸡兔同笼问题：鸡和兔子被放在同一个笼中，现在已知鸡兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少只? 例4.5 “计算”命令按钮（cmdStart）的程序源代码如下： Private Sub cmdStart_Click() Dim H%, F%, R%, C% H = Val(InputBox(, 输入总头数)) F = Val(InputBox(, 输入总脚数)) lblResult.Caption = 总头数: H 总脚数： F R = (F - 2 * H) / 2 : C = H - R txtC.Text = C : txtR.Text = R End Sub 4.3 数据输入输出函数和过程 编写程序，在实数范围内求解一元二次方程：aX2+bX+c=0 因为要求在实数范围内求解一元二次方程，所以我们应该假设该方程的根的判别式 b2-4ac≥0，因此我们可以利用一元二次方程的求根公式来求解方程。 例4.6 分析： 4.3 数据输入输出函数和过程 例4.6 编写程序，在实数范围内求解一元二次方程：aX2+bX+c=0 由InputBox输入方程的系数 4.3 数据输入输出函数和过程 例4.6 编写程序，在实数范围内求解一元二次方程：aX2+bX+c=0 编写程序，在实数范围内求解一元二次方程：aX2+bX+c=0 4.3 数据输入输出函数和过程 Private Sub cmdStart_Click() Dim A%, B%, C%, X1!, X2! A = Val(InputBox(, 输入方程的系数A)) B = Val(InputBox(, 输入方程的系数B)) C = Val(InputBox(, 输入方程的系数C)) lblShow.Caption = 一元二次方程的系数是： A , B , C X1 = (-B + Sqr(B * B - 4 * A * C)) / (2 * A) X2 = (-B - Sqr(B * B - 4 * A * C)) / (2 * A) lblX1.Caption = X1= X1 lblX2.Caption = X2= X2 End Sub 例4.6 4.3 数据输入输出函数和过程 A、B、C三人上街买糖果。三人买好后，A对B、C说：“我可以按你们现有的数量再送你们每人一份。”之后，B对A、C ；C对A、B也说了同样的话。互相赠送后，每人各有64块糖果。编写程序，计算A、B、C原来各买了多少块糖果？ 我们用A、B、C表示三人原来各买的糖果数。 C 送给A、B前 A←A/2 B←B/2 C←A+B+C B 送给A、C前 A←A/2 C←C/2 B←A+B+C A 送给B、C前 B←B/2 C←C/2 A←A+B+C 例4.7 分析： 4.3 数据输入输出函数和过程 A、B、C三人上街买糖果。三人买好后，A对B、C说：“我可以按你们现有的数量再送你们每人一份。”之后，B对A、C ；C对A、B也说了同样的话。互相赠送后，每人各有64块糖果。编写程序，计算A、