vb程序设计语言与程序设计第5章.ppt

VisualBasic程序设计 山东外贸职业学院 E mail liushuhua08 信息管理系柳淑花 2020年2月12日 第5章循环结构 本章主要内容1 For Next循环2 While Wend循环3 Do While循环4 循环嵌套5 其它辅助语句6 综合举例 作业本章小结 退出 2020年2月12日 循环结构 循环结构 所谓循环 就是重复执行某些操作 循环结构主要包括 当型循环和直到型循环 VB提供了三种不同风格的循环语句 1 For Next循环2 While Wend循环3 Do While循环 上一页 下一页 返回本章首页 2020年2月12日 ForV e1Toe2 Stepe3 ExitFor NextV 循环次数已知的循环 它的一般形式如 循环次数计算公式 循环次数 Int E2 E1 E3 1 例5 1求N 阶乘 li5 1 vbp 5 1For Next循环 上一页 下一页 返回本章首页 2020年2月12日 例5 2判断用户输入的数是否为素数li5 2 vbp 应用程序界面如图 编写代码 PrivateSubCommand1 Click Dimmasinteger kasintegerDimnAsLongIfVal Text1 Text 2147483647ThenMsgBox 数据溢出 请重新输入 vbOKCancel vbInformation 数据错误 Text1 Text Else 上一页 下一页 返回本章首页 2020年2月12日 n CLng Text1 Text k Int Sqr n m 0 m是一个标记 1 否 0 是Fori 2TokIfnModk 0Thenm 1NextiIfm 0ThenLabel2 Caption 是一个素数 ElseLabel2 Caption 不是一个素数 EndIfEndIfText1 SetFocusEndSub 上一页 下一页 返回本章首页 2020年2月12日 例5 3 求 的值 计算公式见P67 应用程序li5 3 vbp界面如图 编写代码 PrivateSubForm Click DimI n p n InputBox 请输入n的值 1 32767 p 1ForI 1Tonp p 4 I I 2 I 1 2 I 1 NextIp 2 pPrint n n 时 pEndSub 上一页 下一页 返回本章首页 2020年2月12日 练习1 写出下面程序的运行结果 PrivateSubForm Click DimaAsInteger iAsInteger jAsIntegera 0Fori 1To5Forj 2To2a a i jNextjPrinta NextiPrintPrinti j aEndSub 上一页 下一页 返回本章首页 2020年2月12日 练习2 编程显示如图所示的乘法九九表 作业P772 3 在窗体上添加一个命令按钮和一个Pictrue控件 上一页 下一页 返回本章首页 2020年2月12日 编写command1 click事件的代码如下 PrivateSubCommand1 Click DimI j DimexpssAsStringFori 1To9Forj 1Toiexpss iNextjPicture1 PrintNextiEndSub 上一页 下一页 返回本章首页 2020年2月12日 5 2While循环 例5 5见P69 例5 4找出最大整数n 使得N 1000 上一页 下一页 返回本章首页 2020年2月12日 上一页 下一页 返回本章首页 2020年2月12日 上一页 下一页 返回本章首页 2020年2月12日 Do循环举例 例5 6求s 1 2 3 100的和例5 7求两自然数m n的最大公约数和最小公倍数其设计思路是 最大公约数 辗转相除法 1 假设m大于n 2 m除以n 得余数r 3 若r 0 则n即为所求的最大公约数 结束 否则 执行步骤 4 4 令m n n r再转到 2 执行 最小公倍数 两数的乘积除以最大公约数见li5 7 vbp 上一页 下一页 返回本章首页 2020年2月12日 循环嵌套 即大循环中包含小循环 无论是Do Loop循环 还是For Next循环 都可以进行循环嵌套 注意 内循环一定要完整地包含在外循环内 不得相互交叉 示例 Fori e1Toe2 Stepe3 Forj d1tod2 Stepd3 Nextj Nexti 5 4循环嵌套 上一页 下一页 返回本章首页 2020年2月12日 循环嵌套举例 例5 8 打印九九乘法表 各种格式 例5 9 求1 1000之间的 水仙花数 Li5 9 vbp注 水仙花数 是一个三位数 其各位数的立方和等于该数本身 分析 该题可用三重循环 也可用一重循环百位i i n 100或 i int n 100 十位j j n 10 i 10个位k k nMod10界面如图 例5 10 求sinx 见P74 上一页 下一页 返回本章首页 2020年2月12日 5 5其他辅助语句 With语句With语句的功能是在一个单一对象或一个用户定义类型上执行一系列的语句 其语法结构为 With EndWith WithCmdFirst Height Height 2000 Caption Hello Move0 0EndWith 如 CmdFirst Height CmdFirst Height 2000CmdFirst Caption Hello CmdFirst move0 0 上一页 下一页 返回本章首页 2020年2月12日 Exit语句 有多种形式的Exit语句 如 ExitFor 用于For循环体ExitDo 用于Do循环体ExitSub 用于Sub过程体ExitFunction 用于Function过程体其功能是 强制退出当前循环 或过程 体注意 它们通常和分支语句配合使用 上一页 下一页 返回本章首页 2020年2月12日 5 6综合举例 数值转换 将一个十进制数m转换成 2 16 进值数r的思路是 将m不断除r取余数 直到商为0 以反序排列即得到结果 例11 数值转换 Li5 11 vbp 上一页 下一页 返回本章首页 2020年2月12日 5 6综合举例 数据的加密和解密 基本原理 将英文字符的ASC 码加上某个值 使其变成另外一个字符 实现加密 解密的过程则是加密的逆操作 例12 对输入的文本加密和解密 Li5 12 vbp 上