《利用VB解决数学问题.ppt》由会员分享，可在线阅读，更多相关《利用VB解决数学问题.ppt（15页珍藏版）》请在三一办公上搜索。
1、利用VB解决简单数学问题,计算三角形面积。,已知三角形三边：a,b,c则三角形面积为：,S=其中：L=(a+b+c),鸡兔同笼问题：,一个笼子里有鸡和兔，现在只知道里面有35个头，94只脚，问鸡和兔各有多少只？,设鸡a只，兔b只。所以有：a+b=35 2a+4b=94 a=23 b=12,用VB 程序解决这样的问题,1、三角形面积,1）、分析问题：设：三角形三边：a,b,c则三角形面积为：S=其中：L=(a+b+c),2）、设计算法,输入a,b,c 的值判断a,b,c能否构成三角形计算三角形面积S=其中：L=(a+b+c)输出S的值。,3)、编写程序：,Private Sub Command1
2、_Click()Dim a As Single,b As Single,c As Single,s As Single,L As Single a=InputBox(a=,输入)b=InputBox(b=,输入)c=InputBox(c=,输入)if(a+b)c and(a+c)b and(b+c)a and(a-b)c and(a-c)b;and(b-c)a thenL=(a+b+c)/2s=sqr(L*(L-a)*(L-b)*(L-c)Print 全面积S=;sElse Print“构不成三角形”EndifEnd sub,调试程序,鸡兔同笼问题1）、分析问题：,设所求的鸡数是x,兔数是y，
3、已知笼子里的头数共a，脚数是b，依题意，得如下方程：x+y=a2x+4y=b解方程得：x=2a-b/2,y=b/2-a,2)、设计算法,输入a,b 的值，求x=2a-b/2求y=b/2-a输出x,y的值,3)编写程序、,Private Sub Command1_Click()Dim a As Integer,b As Integera=InputBox(a=,输入头数)b=InputBox(b=,输入脚数)x=2*a-b/2y=b/2-a If b=2*a Then Print 脚数小于第于头数 Else Print 鸡数x=;x,兔数y=;y End IfEnd Sub,4)、调试程序,作业：,编写计算圆的面积的VB程序代码并在VB中运行,谢谢！,
