vb程序设计的常用算法教案

《vb程序设计的常用算法教案》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、学生会成立以来，学生会搞了一系列的活动，而且都取得了较好的成绩。通过各部的相互努力，我们获得了不少经验。VB程序设计的常用算法教案　　www.5y　　kj.co　　m算法（Algorithm）：计算机解题的基本思想方法和步骤。算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。一、计数、求和、求阶乘等简单算法此类问题都要使用循环，要注意根据问题确定循环变量的初值、终值或结束

2、条件，更要注意用来表示计数、和、阶乘的变量的初值。例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。本题使用数组来处理，用数组a存放产生的确100个随机整数，数组x来存放个位上的数字分团结创新，尽现丰富多彩的课余生活1。庆祝##系成立之时，我们学生会举办了一次“邀明月，共成长，师生同欢”茶话会。职教系部分老师和我系全体教师以及各班班委参加了此茶话会。学生会成立以来，学生会搞了一系列的活动，而且都取得了较好的成绩。通过各部的相互努力，我们获得了不少经验。别

3、为1，2，3，4，5，6，7，8，9，0的数的个数。即个位是1的个数存放在x中，个位是2的个数存放在x中，……个位是0的个数存放在x。将程序编写在一个GetTjput过程中，代码如下：PublicSubGetTjput　　　　DimaAsInteger　　DimxAsInteger　　DimiAsInteger,pAsInteger　　'产生100个[0，99]范围内的随机整数，每行10个打印出来　　Fori=1To100　　a=Int　　Ifa<10Then　　Form1.PrintSpace;a;团结创

4、新，尽现丰富多彩的课余生活1。庆祝##系成立之时，我们学生会举办了一次“邀明月，共成长，师生同欢”茶话会。职教系部分老师和我系全体教师以及各班班委参加了此茶话会。学生会成立以来，学生会搞了一系列的活动，而且都取得了较好的成绩。通过各部的相互努力，我们获得了不少经验。　　Else　　Form1.PrintSpace;a;　　EndIf　　Ifimod10=0ThenForm1.Print　　Nexti　　'统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x,x,...,x中，将统计结果打印出来　　

5、Fori=1To100　　p=a　　mod　　0　　'求个位上的数字团结创新，尽现丰富多彩的课余生活1。庆祝##系成立之时，我们学生会举办了一次“邀明月，共成长，师生同欢”茶话会。职教系部分老师和我系全体教师以及各班班委参加了此茶话会。学生会成立以来，学生会搞了一系列的活动，而且都取得了较好的成绩。通过各部的相互努力，我们获得了不少经验。　　Ifp=0Thenp=10　　x=x+1　　Nexti　　Form1.Print"统计结果"　　Fori=1To10　　p=i　　Ifi=10Thenp=0　　Form1.Print

6、"个位数为"+Str+"共"+Str)+"个"　　NextiEndSub二、求两个整数的最大公约数、最小公倍数分析：求最大公约数的算法思想：团结创新，尽现丰富多彩的课余生活1。庆祝##系成立之时，我们学生会举办了一次“邀明月，共成长，师生同欢”茶话会。职教系部分老师和我系全体教师以及各班班委参加了此茶话会。学生会成立以来，学生会搞了一系列的活动，而且都取得了较好的成绩。通过各部的相互努力，我们获得了不少经验。　　对于已知两数m，n，使得m>n；　　m除以n得余数r；　　若r=

7、0，则n为求得的最大公约数，算法结束；否则执行；　　m←n，n←r，再重复执行。　　例如:求m=14,n=6的最大公约数.　　m　　n　　r　　　　4　　6　　2　　　　6　　2团结创新，尽现丰富多彩的课余生活1。庆祝##系成立之时，我们学生会举办了一次“邀明月，共成长，师生同欢”茶话会。职教系部分老师和我系全体教师以及各班班委参加了此茶话会。学生会成立以来，学生会搞了一系列的活动，而且都取得了较好的成绩。通过各部的相互努力，我们获得了不少经验。　　0m=inputBoxn=inputBoxnm=n*mIfm<nT

8、hent=m:m=n:n=t　　r=mmodn　　Dowhile　　　　　　m=n　　n=r　　r=mmodn　　Loop　　Print"最大公约数=",n[