《(33)--4-4-5 Visual Basic 程序设计循环的应用（3）.ppt》由会员分享，可在线阅读，更多相关《(33)--4-4-5 Visual Basic 程序设计循环的应用（3）.ppt（10页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、4-4-5 循环的应用（3）Visual Basic程序设计本节内容素数最大最小数12最大公约最小公倍数31.最大最小数最大最小数在若干个数中求最大值，一般先假设一个较小的数为最大值的初值，若无法估计较小的值，则取第一个数为最大值的初值；然后将每一个数与最大值比较，若该数大于最大值，将该数替换为最大值；依次逐一比较。例 随机产生10个100200之间的数，求最大值。Private Sub Command1_Click()Max=100For i=1 To 10 x=Int(Rnd*101+100)Print x;If x Max Then Max=xNext iPrintPrint 最大值=;
2、MaxEnd Sub2.素数素数是一个大于2，且不能被1和本身以外的整数整除的整数。问题：输入一个大于2的正整数m，判断是否为素数。方法一：判别某数m是否为素数最简单的方法是:对于m 从 i=2，3，m-1判别m能否被i整除，只要有一个能整除，m不是素数，否则m是素数。方法一方法二设置标志位2.素数素数是一个大于2，且不能被1和本身以外的整数整除的整数。问题：输入一个大于2的正整数m，判断是否为素数。方法三：方法一的改进：对于m 从 i=2，3，Sqr(m)判别m能否被i整除即可，只要有一个能整除，m不是素数，否则m是素数。2.素数问题：输出10-100之间的素数，每行输出5个Private
3、Sub Command3_Click()Dim i%,m%,tag As Boolean,n As Integern=0 n做计数器For m=10 To 100 tag=True For i=2 To m-1 If(m Mod i)=0 Then tag=False Exit For End If Next i If tag=True Then Print m;n=n+1 If n Mod 5=0 Then Print 输出5个后换行 End IfNext mEnd Sub3.最大公约最小公倍数例例 辗转相除法求两自然数m，n的最大公约数和最小公倍数。分析：求最大公约数的算法思想：(1)对于已知两数m，n，使得mn；(2)m除以n得余数r；(3)若r=0，则n为最大公约数结束；否则执行(4)；(4)mn，nr，再重复执行(2)。m n r 14 6 2 6 2 0 例 求 m=14,n=6 的最大公约数.If m n Then t=m:m=n:n=t r=m mod n Do While(r 0)m=n n=r r=m mod n Loop Print 最大公约数最大公约数=,n u最大最小数最大最小数u素数素数u最大公约最小公倍数最大公约最小公倍数模块小结模块小结