第五章 程序设计(xunhuan).pptVIP

分析：所谓的“素数”是指一个自然数除了1和该数本身，不能被任何其它整数整除。判断一个自然数n(n=3)是否为素数，只要依次用2～Sqr(n)整数作为除数去除n，若n不能被其中任何一个数整除，则n为素数，否则便不是素数。 n不是素数 输入n 开始 i=sqr(n) n是素数 结 束 真 假 i=i+1 n mod i0 i=2 假 isqr(n) 真 真 假 例：编写程序，实现单击窗体后，在窗体上输出的图形如图所示。 5.3 多重循环 多重循环的执行过程是：外层循环每执行一次，内层循环就要从头开始执行一轮。 例：编写程序，计算级数1+1/3!+1/5!+1/(2N+1)!的值,直到最后一个级数项的值小于10-6为止。 例：编写程序，实现单击窗体后，在窗体上输出的图形如图所示。 例: 计算1!+2!+3!+…+n!（上机操作） 例：编写程序，实现单击窗体后，在窗体上输出的图形如图所示。（上机操作） 例: 计算1!+2!+3!+…+n!（上机操作） 5.4 列表框与组合框 5.4.1 列表框 列表框 表项 1．常用属性 (1)List属性： (2)ListIndex属性： (3)ListCount属性： (4)Selected属性： (5)Text属性： (6)Style属性： 2．事件 列表框可接收Click，DblClick等事件。 注意，在程序运行中执行语句向属性ListIndex赋值的语句，也将触发列表框的Click事件。 3．方法 ⑴AddItem方法:object.AddItem item[,index] ⑵RemoveItem 方法:object.RemoveItem index ⑶Clear 方法:object.Clear 例: 设计一个程序，找出100～1000范围内所有能同时被3和7整除的自然数,在列表框中显示出来。 例: 设计一个程序，在列表框中选择项目，然后在文本框中显示，并在列表框中删除已选择的项目． 5.4.2 组合框 组合框 这三种样式和属性Style设置值为： 下拉式组合框 0 vbComboDropDown 简单组合框 1 vbComboSimple 下拉式列表框 2 vbComboDropDownList 例: 设计程序，把一批课程名放入组合框，再对组合框进行项目显示、添加、删除、全部删除等操作。 5.5 常用算法举例 例:计算1+(1+2)+(1+2+3)+…+(1+2+3+…+n) Sum=0:i=0:s=0 开始 i=n 输出sum的值 结 束 真 假 i=i+1 s=s+i sum=sum+s 一、求和 例： 求下述数列前n项之和。 算法：数列的第1项为2，根据所给出的5项，可以得到求该数列各项的递推公式。设为数列的第n项，则数列的第n+1项为： 例:穷举法解不定方程。在“算经”里有一百鸡问题：鸡翁一值钱五，鸡母一值钱三，三鸡雏值钱一，百钱买百鸡。问鸡翁、鸡母、鸡雏各几何？ 分析：设公鸡x只，母鸡y只，小鸡z只，依题义可以列出方程组： 例:新郎和新娘 三对情侣参加婚礼，三个新郞为A、B、C，三个新娘为X、Y、Z。有人不知道谁和谁结婚，于是询问了六位新人中的三位，但听到的回答是这样的：A说他将和X结婚；X说她的未婚夫是C；C说他将和Z结婚。这人听后知道他们在开玩笑，全是假话。请编程找出谁将和谁结婚。 分析: 将A、B、C三人用1,2,3表示，将X和A结婚表示为“X=1”，将Y不与A结婚表示为“Y1”。按照题目中的叙述可以写出表达式： x1 A不与X结婚 x3 X的未婚夫不是C z3 C不与Z结婚 还隐含着X、Y、Z三个新娘不能结为配偶，则有： xy且xz且yz 穷举以上所有可能的情况，代入上述表达式中进行推理运算，若假设的情况使上述表达式的结果均为真，则假设情况就是正确的结果。 Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer For x = 1 To 3 For y = 1 To 3 For z = 1 To 3 If (x 1 And x 3 And z 3 And x y And x z And y z) Then Print X will ma