VB_第5章_选择循环.pptVIP

第五章 VB的基础结构;复习：三种基本结构;当型循环;选择结构;第一节 选择结构;主要内容;一、If-else语句;一、If-else语句;一、If-else语句;一、If-else语句;;一、If-else语句;一、If-else语句;2. Select Case语句（情况语句） 　;说明：;示例源程序;第二节 循环结构;主要内容;循环者：重复执行某些操作也！;这两种循环的区别：当型循环，条件为真时，执行循环体直到型循环，条件为假时，执行循环;一、Do-Loop循环;实现从1到10的累加和;一、Do-Loop循环;执行次数的比较：;一、Do-Loop循环;例：用do until 实现1到10的累加;总结;1、输入两个自然数M，N 2、求M除以N的余数R 3、用N代换M 4、用R代换N 5、若R0,则重复执行2，3，4，否则转向6。 6、输出M，M即为M，N的最大公约数;循环程序分析;循环程序分析;例：我国现有人口13亿，按人口年增长率0.8%计算，多少年后我国人口超过26亿。 　　 计算公式 26=13（1+0.008）n ;二、For-Next循环;计算初值，终值，步长;特别注意： 但循环变量v若在循环体内被改变，则循环次数有可能发生变化。;求1～10这十个数的和与乘积（教材P70）;For循环程序分析;Private Sub Command1_Click() Dim sum As Integer, i As Integer For i = 7 To 4 Step -1 Select Case i Case 4, 7 sum = sum + i Case 3, 5 sum = sum + 2 Case Else sum = sum + 1 End Select Next i Print sum=; sum End Sub;;教材例子;;实验作业：For循环专项练习;5.2 循环嵌套;百鸡问题;教材示例（随机数的问题）;第三节 程序示例;分析下列程序的输出结果; Dim i As Integer, j As Integer For j = 1 To 5 For i = 1 To 6 If i Mod 3 = 0 Then Print *; Else Print #; End If Next i Print Next j;第三题;Private Sub Command1_Click() Dim s As String, i As Integer Const ch As String = 0123456789. s = 2L0A09U.0SI3V.24 For i = 1 To Len(s) If InStr(ch, Mid(s, i, 1)) = 0 Then st1 = Mid(s, i, 1) st1 Else st2 = st2 Mid(s, i, 1) End If Next i Print st1: Print st2 End Sub;第五题;第六题;复习上次课;复习：For-Next循环;;;;4、改错题：期末30位同学参加三门课程的考试，求每个同学的三门课程的平均成绩。 aver=0 for i=1 to 30 for j=1 to 3 m=inputbox(“输入第” j ” 门课的成绩”) aver=aver+m Next j aver=aver/3 Print aver Next i;;复习题;;第七题;第八题;程序填空：统计随机产生的十个两位正整数中偶数与奇数的个数，并求出偶数与奇数各自的总和 ;第十题：统计字符串中“O”的个数;对于大于或等于3的正整数，判断它是不是一个素数 。 素数定义：除了1和该数本身之外，不能被其他任何整数整除的数。;素数代码;判断一个数是否为素数;第十二题 水仙花数;方法二;第十三题 勾股数;第十四题 升序数;教材5.7程序示例;教材5-8程序示例;教材程序 原码-补码;本章在二级中的考点;第五章 VB的基础结构;本章练习