新Visual Basic语言程序设计及实验教程 电子教案 周建丽 第5章 循环结构程序设计.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!（上机操作） 例： 求下述数列前n项之和。 算法：数列的第1项为2，根据所给出的5项，可以得到求该数列各项的递推公式。设为数列的第n项，则数列的第n+1项为： 例:穷举法解不定方程。在“算经”里有一百鸡问题：鸡翁一值钱五，鸡母一值钱三，三鸡雏值钱一，百钱买百鸡。问鸡翁、鸡母、鸡雏各几何？ 分析：设公鸡x只，母鸡y只，小鸡z只，依题义可以列出方程组： 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-14 选择和移动数据，用户界面如图5-29所示。窗体上有2个标签、2个列表框和2个命令按钮。左边列表框(List1)列出10-99之间的整数，右边列表框(List2)列出被选中的数。程序运行时，按“选项右移”或“选项左移”可将已选择项移动到右边或左边列表框。 5.4.2 组合框 组合框 这三种样式和属性Style设置值为： 下拉式组合框 0 vbComboDropDown 简单组合框 1 vbComboSimple 下拉式列表框 2 vbComboDropDownList 例: 设计程序，把一批课程名放入组合框，再对组合框进行项目显示、添加、删除、全部删除等操作。 习题5 一．单选题 1．下列循环语句所确定的循环次数是 。 For k = 200# To 100 Step -2 * 10 n = n + 1 Next A. 6 B. 5 C. 4 D. 3 2．写出下列事件过程的运行结果。 Private Sub Command1_Click() s = 0 For k = 10 To 50 Step 15 s = s + k Next Print s End Sub A. 20 B. 130 C. 75 D. 55 3. 分析下列程序，回答以下问题： ⑴语句s=s+n被执行的次数为 。 ⑵程序的运行结果为 。 Private Sub Command1_Click() n = 1: s = 1 Do While n 6 s = s + n If n 3 Then n = n + 1 Else n = n + 2 Loop Print s End Sub ⑴ A. 2 B. 3 C. 4 D. 5 ⑵ A. 13 B. 12 C. 11 D. 10 * 在线教务辅导网