第四章 VB程序设计语句.pptVIP

3.部分级数和 例4.18 求自然对数e的近似值，误差小于0.000001，公式：e=1+1/1!+1/2!+…+1/n! 分析：先求i!,再累加。循环次数未知，用Do循环。 程序： dim i%,t,ee! i=0:ee=0:t=1 do while 1/t0.000001 ee=ee+1/t i=i+1 t=t*i loop print “计算了”;i-1;”项的和是”;ee 4. 试凑法：百元买百鸡 也称“穷举”或“枚举”法。 已知公鸡每只5元、母鸡每只3元、小鸡1元3只。求出用100元买100只鸡的解。 思路：假设公鸡、母鸡、小鸡分别为x、y、z只，可构造方程如下（有多解，用循环实现） x+y+z=100 5x+3y+z/3=100 演示 5.递推法：猴子吃桃 小猴在一天摘了若干个桃子，当天吃掉了一半多一个；第二天吃了剩下的一半多一个；以后每天都吃尚存的一半零一个，到第7天早上要吃时只剩下一个了，计算猴子共摘了多少个桃子并将结果输出来。 Dim n%, i%, x% x = 1 for i=6 to 1 step -1 x = (x + 1) * 2 Next i Form1.Print 共有; x; 个桃子 End Sub The end 4.2.3 条件函数 1．IIf 函数 IIf 函数的功能是根据表达式的值，来返回两部分