vb-4循环结构程序设计-实例.pptVIP

第4章 循环结构程序设计 循环结构 用For-Next语句实现循环结构 用Do While-Loop语句实现循环结构 嵌套的循环结构 循环的嵌套 在一个循环体内又出现另外的循环语句称为循环嵌套，也称为多重循环。 在嵌套结构中，对嵌套的层数没有限制，有几层嵌套，就说是几重循环。 多重循环的执行过程是，外循环每执行一次，内循环都要从头到尾执行一遍。 嵌套时，内层循环必须完全包含在外层循环之内，不能相互“交叉”。 多重循环应用举例 字符图形的输出 输出矩阵图形 例：请输入n值，编写程序输出下列图形（例如n=5）. 1 2 3 4 5 1 1 2 3 4 1 1 1 2 3 1 1 1 1 2 1 1 1 1 1 代码 Private Sub Form_Activate() Dim i As Integer, j As Integer For i = 1 To 5 For j = 1 To i Print 1; Next j For j = 2 To 6 - i Print j; Next j Print Next i End Sub 实例4.4 （2）方程求解 （3）其他综合应用 判断r是否素数 For i = 2 To r - 1 If r Mod i = 0 Then Exit For Next i If i = r Then End if 补充例题 译密码: 字母翻译：按26个字母排列顺序向后移动n位，若移出了最后一个则移到字母a或A并顺序往后移 例：今天是28号，a 向后移动28位 abcdefghijklmnopqrstuvwxyz 补充例题代码 If ch = a And ch = z Then asch = Asc(ch) - 97 + 1 ’在26个小写字母中的位置 trap = Chr$(( asch + n ) Mod 26 + 97 - 1) ‘求出按规则转换后的字符 补充例题 题目要求：输入一行数字，按相反的顺序输出。 例如：输入“1 2 3 4 5 6 7 8” 输出“8 7 6 5 4 3 2 1” 难点：如何获得各位数字 补充例题代码 Private Sub lblout_Click() n = Val(txtin.Text) While n 0 r = n Mod 10 lblout.Caption = lblout.Caption r n = n \ 10 Wend End Sub 译码器——密码检测窗体设计 译码器——密码检测窗体设计 添加窗体：工程||添加窗体 密码框属性：PasswordChar * 代码 Dim n As Integer ‘定义n为窗体级变量，用于累计验证密码的次数 Private Sub cmdok_Click() 　Const password = 061216 　Const name = santa 　n = n + 1 　If n = 3 Then 控制验证密码的次数 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 译码器——译码器窗体设计 译码器——译码器窗体设计 函数 Asc（C）的功能是将字符转换成ASCII码值，如Asc（“A”）的值65 Chr(65)其功能是将ASCII码值转换成字符，如Chr（65）的值“A” LTrim(C)是去掉字符串左边的空格，如LTrim(“└┘└┘ABVC”)的值为ABVC Mid(C，N1，N2)是取字符子串，在C中从N1位开始向右取N2个字符 译码器——译码器窗体设计 约定 “原文”文本框中的数字字符串每三位代表一个完整的信息，如一个字母（065表示字符“A”）或一个空格（000表示空格），一个数字（033非字母或空格，表示数字33），字符串结束（“###”） 译码器——“译码”代码 n = 1 ori = LTrim$(txtori.Text) 去掉“原文”文本框字符串右边的空格，赋值给变量ori orip = Mid$(ori, n, 3) 从字符串ori的第一个位置