编程显示如图所示的乘法九九表.ppt

2019年11月23日,练习2：编程显示如图所示的乘法九九表,作业P772、3,在窗体上添加一个命令按钮和一个Pictrue控件,上一页,下一页,返回本章首页,2019年11月23日,编写command1_click事件的代码如下：下载可复制PrivateSubCommand1_Click()DimI%,j%DimexpssAsStringFori=1To9Forj=1Toiexpss=iNextjPicture1.PrintNextiEndSub,上一页,下一页,返回本章首页,2019年11月23日,n=CLng(Text1.Text)k=Int(Sqr(n)m=0m是一个标记：1否，0是Fori=2TokIfnModk=0Thenm=1NextiIfm=0ThenLabel2.Caption=“是一个素数”ElseLabel2.Caption=“不是一个素数”EndIfEndIfText1.SetFocusEndSub,上一页,下一页,返回本章首页,VisualBasic程序设计,山东外贸职业学院,E-mail：liushuhua08,信息管理系柳淑花,2019年11月23日,第5章循环结构,本章主要内容1、ForNext循环2、WhileWend循环3、DoWhile循环4、循环嵌套5、其它辅助语句6、综合举例,作业本章小结,退出,2019年11月23日,循环结构,循环结构：所谓循环，就是重复执行某些操作。循环结构主要包括：当型循环和直到型循环。VB提供了三种不同风格的循环语句：1、ForNext循环2、WhileWend循环3、DoWhile循环,上一页,下一页,返回本章首页,2019年11月23日,ForV=e1Toe2Stepe3ExitForNextV,循环次数已知的循环,它的一般形式如：,循环次数计算公式:循环次数=Int(E2-E1)/E3)+1,例5.1求N!（阶乘）li5_1.vbp,5.1For-Next循环,上一页,下一页,返回本章首页,2019年11月23日,例5.2判断用户输入的数是否为素数li5_2.vbp,应用程序界面如图：编写代码：PrivateSubCommand1_Click()Dimmasinteger,kasintegerDimnAsLongIfVal(Text1.Text)2147483647ThenMsgBox数据溢出，请重新输入,vbOKCancel+vbInformation,“数据错误”Text1.Text=Else,上一页,下一页,返回本章首页,2019年11月23日,例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*pPrintn=;n;时,=;pEndSub,上一页,下一页,返回本章首页,2019年11月23日,练习1：写出下面程序的运行结果,PrivateSubForm_Click()DimaAsInteger,iAsInteger,jAsIntegera=0Fori=1To5Forj=-2To2a=a+i+jNextjPrinta;NextiPrintPrinti,j,aEndSub,上一页,下一页,返回本章首页,2019年11月23日,5.2While循环,例5.5见P69,例5.4找出最大整数n,使得N!1000,上一页,下一页,返回本章首页,2019年11月23日,上一页,下一页,返回本章首页,2019年11月23日,上一页,下一页,返回本章首页,2019年11月23日,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）令mn，nr再转到（2）执行。最小公倍数：两数的乘积除以最大公约数见li5_7.vbp,上一页,下一页,返回本章首页,2019年11月23日,循环嵌套：即大循环中包含小循环。无论是Do-Loop循环，还是For-Next循环，都可以进行循环嵌套。注意：内循环一定要完整地包含在外循环内，不得相互交叉。示例：Fori=e1Toe2Stepe3Forj=d1tod2Stepd3.NextjNexti,5.4循环嵌套,上一页,下一页,返回本章首页,2019年11月23日,循环嵌套举例：例5.8：打印九九乘法表（各种格式）。例5.9：求11000之间的“水仙花数”。Li5_9.vbp注：“水仙花数”是一个三位数，其各位数的立方和等于该数本身。分析：该题可用三重循环，也可用一重循环百位i：i=n100或：i=int（n/100）十位j：j=n10i*10个位k：k=nMod10界面如图：例5.10：求sinx（见P74）,上一页,下一页,返回本章首页,2019年11月23日,5.5其他辅助语句,With语句With语句的功能是在一个单一对象或一个用户定义类型上执行一系列的语句。其语法结构为：WithEndWith,WithCmdFirst.Height=.Height+2000.Caption=“Hello”.Move0,0EndWith,如：CmdFirst.Height=CmdFirst.Height+2000CmdFirst.Caption=“Hello”CmdFirst.move0,0,上一页,下一页,返回本章首页,2019年11月23日,Exit语句,有多种形式的Exit语句，如：ExitFor-用于For循环体ExitDo-用于Do循环体ExitSub-用于Sub过程体ExitFunction-用于Function过程体其功能是：强制退出当前循环（或过程）体注意：它们通常和分支语句配合使用。,上一页,下一页,返回本章首页,2019年11月23日,5.6综合举例,数值转换：将一个十进制数m转换成(216)进值数r的思路是：将m不断除r取余数，直到商为0，以反序排列即得到结果。例11：数值转换。Li5_11.vbp,上一页,下一页,返回本章首页,2019年11月23日,5.6综合举例,数据的加密和解密：基本原理：将英文字符的ASC码加上某个值，使其变成另外一个字符，实现加密。解密的过程则是加密的逆操作。例12：对输入的文本加密和解密。Li5_12.vbp