vb循环结构程序设计探析.ppt

第4章 循环结构程序设计;本章内容;循环结构;用For-Next语句实现循环结构;语句说明： 循环变量必须为数值型。 当步长为正时，初值小于终值，反之初值大于终值；步长缺省时为1。 循环体由一条或多条语句组成。 执行到Exit For语句时退出循环体，执行For语句的下一语句。 循环次数： int为取整。;用For-Next语句实现循环结构;用For-Next语句实现循环结构;实例4.1 代码编写分析;实例4.1 代码编写;【实例4.1】界面设计;实例4.1 代码编写;实例4.1 代码编写;实例4.1 代码编写;实例4.1 代码编写;例：1*2*3……*100;1！+2！+3！+……+15!;用While语句实现循环;用While语句实现循环;用While语句改写实例4.1;用While语句实现循环;实例4.2 代码编写;实例4.2 代码编写;用DO语句实现循环;用DO语句实现循环;用Do While – Loop 语句改写实例4.1;执行过程;用Do – Loop While语句改写实例4.1;补充例题1;补充例题1 代码分析;代码;代码;代码;用 DO 语句实现循环;算法;判断r是否素数;素数最大、最小值 、平均;No;初始化部分;输出部分;循环的嵌套 ;For i = 2 To 1 Step -1 Print Tab(20); For j = 1 To 4 - i Print Spc(1); Next j For j = 1 To 2 * i - 1 Print *; Next j Print Next i;问题;补充例题;补充例题代码;实例4.4 ;Yes;补充例题;补充例题代码;补充例题;补充例题代码;译码器——密码检测窗体设计 ;译码器——密码检测窗体设计;If txtname.Text = Or txtpassword.Text = Then MsgBox 必须输入姓名和密码, 0 + 64, 提示 Else If txtname.Text = name And txtpassword.Text = password Then frm1.Hide frm2.Show Else 　 MsgBox 姓名或密码错误, 0 + 48, 警告 End If End If Else End End If End Sub;译码器——译码器窗体设计 ;译码器——译码器窗体设计;译码器——译码器窗体设计;译码器——“译码”代码; If orip = a And orip = z Then trapn = Asc(orip) - 97 + 1 trap = Chr$((trapn + Day(Now)) Mod 26 + 97 - 1) letterlow = letterlow + 1 计小写字母的个数 Else If orip = A And orip = Z Then trapn = Asc(orip) - 65 + 1 trap = Chr$((trapn + Day(Now)) Mod 26 + 65 - 1) lettercap = lettercap + 1 计大写字母的个数; Else 非字母 trap = Asc(orip) 字符orip转换成ASCII码值，作为译码即保持原值 If trap = 0 Then 字符oripASCII码值为0即原值为“000” trap = 译码为空格 word = word + 1 单词计数，因为空格分隔单词 other = other + 1 其它字符计数，空格也是一个非字母字符 Else If trap 99 Then 其它字符计数 other = other + 3 Else If trap 9 Then other = other + 2 Else other = other + 1２２; End If End If End If End If End If Else trap = orip 超出ASCLL码范围的值不变 other = other + 3 End If tra = tra + tr