循环结构习题

1、质数是一个大于2的数，不能被1以外的整数整除。判断某个数m是否是素数的最简单方法是：对于m，i=2，3、查找质数，查找100以内的质数，如何在循环语句中表示一个数是否是质数？定义一个布尔变量Flag，Flag=true表示一个数是素数，Flag=false表示一个数不是素数。解题思路：(1)如何判断一个数m是否是素数；(m除以i=2)。(2)用循环语句找出1100之间的所有质数。私有子命令1_Click() Dim i As Integer，m As Integer，n as integer Dim标志As Boolean : n=0 For m=2 To 100标志=真如果标志=真，则打印m

2、；”；N=n 1如果n mod 10=0则打印结束如果下一个m end sub，判断一个数字是否是质数，用标志标记它，假设m是质数，根据标志打印质数，对于I=2 tosqr (m)如果(m mod 1)=0则标志=假下一个I，在表单上换行的输出方法，10个数字输出在一个固定行，常用算法，1。累加和倍数，累加是在原始和的基础上一次加一个数。Sum=sum i。乘法是在原始乘积的基础上一次乘一个数。T=t * i，该算法描述了解决问题的过程，并计算总和1！2！3！10！私有子窗体_Click()点心作为长点心I作为整数点心t作为长点心=0: t=1对于i=1到10 t=t * i总和=总和t下一步

3、I打印1！2！3！10！=；求和结束子，求自然对数e的近似值，误差小于0.00001，近似公式为：这个例子涉及两个问题：(1)寻找循环结构级数的和。在本例中，根据某个值(t)的精度控制循环的结束(计算精度要求为0.00001)。(2)累加：e=e t清除循环系统外累加和的变量，e=0，乘：n=n*i设置循环系统外连续乘积的变量，n=1，系列t，连续乘积n，累加和e，私有子窗体_ click () dim I%，n=e结束sub，水仙花的数量是1通过穷举方法例如，153是水仙花的数量153=13 53 33。思考：找出1000以内的所有完美数字。完全数的定义：一个数正好等于它的因子之和，这个数叫

4、做完全数。例如，因子为1，2和3的数字6，只有一个等式：6=1，2，3成立，所以6是一个完美的数字。回文数字：第一位等于最后一位，第二位等于倒数第二位，第n位等于倒数第二位。私有子命令1 _ Click()Dim n As Integer Dim I As Integer Dim I As Integer Dim me As Integer For n=1 To 1000 sum=0 For I=1 To n-1如果n Mod i=0则sum=sum i Next i如果sum=n则text 1 . text=text 1 . text n vbc LRF end If Next n end

5、Sub，perfect num，私有子命令1 _ Click()Dim num As String Dim str As String Dim As Integer num=text 1。文本串=为i=1到透镜(数量)串=中间(数量，I，1)串下一个I如果串=数量然后标签2。caption=num是回文号Else标签2。标题=num不是回文数End If End Sub，回文数，“递归方法”也称为“迭代法”，其基本思想是将复杂的计算过程转化为简单过程的多次重复。每次重复都会从旧的值中推导出新的值，并用新的值替换旧的值。实验D，问题7，4。递归法，在几个数中寻找最大值，一般假设较小的数是最大值的

6、初始值，如果较小的值无法估计，取第一个数作为最大值的初始值；然后将每个数字与最大值进行比较，如果该数字大于最大值，则用最大值替换该数字；逐一比较。随机生成10个100200之间的数字以获得最大值。private子命令1 _ click () dim max as integer，x as integer max=100 I=1到10x=int(rnd * 101 100)print x max end sub，5。最小值和最大值，随机输入10名学生的分数，并在表格中显示分数。并显示最好的一个及其序列号。自定义输入和输出表单。例如：输入85，74，62，37，98，77，65，77，69，81显

7、示：5号成绩最好，98分，私有子窗体_单击()将i调至整数，cj调至整数最大值为整数，最大值为整数最大值=0:最大值=0，i=1至10 cj=值（输入框（请输入第如果i Mod 5=0，则打印如果cj最大值，则最大值=cj:最大值=i下一次打印第maxn号的得分最高，为最大端接头，思考：增加显示最差成绩和平均分4号成绩最差37岁分平均分为，XX，统计问题（一)，私有子命令1 _单击()统计按钮的事件过程将字符串作为字符串：将子木作为整数：将shuzi作为整数将qita作为整数：将i作为整数：将ccstr作为字符串* 1子木=0:shuzi=0:qita=0字符串=文本1 .文本为i=1至Len

8、(str) ccstr=中(str，I，1)选择案例ccstr案例A至z，A至Z子木=子木1案例0至9 shuzi=shuzi 1案例否则qita=qita 1结束选择下一个i文本2 .文本=子木：文本3 .课文4 .文本=qita结束子，统计问题（二)，输入一个字符串，统计其中每个字母（不区分大小写)出现的频率，私有子文本1 _按键(按键1)为整数)变暗字符串$，i%，ccstr$变暗n(26)为整数如果柯亚西=13则字符串=文本1 .i=1的文本至Len(str) ccstr=UCase(Mid(str，I，1)n(Asc(ccstr)-65 1)=n(Asc(ccstr)-65 1)1下一个I对于i=1至26如果n(i) 0则图像1 .打印Chr(i 65 - 1)出现了n(i)次如果下一个结束我结束如果结束子，私有子命令1 _单击()图片1 .Cls文本1 .文本=结束子清屏，是否已经按下回车键得判断，文本框得按键