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

　　算法（algorithm）：计算机解题的基本思想方法和步骤。算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。
　　一、计数、求和、求阶乘等简单算法
　　此类问题都要使用循环，要注意根据问题确定循环变量的初值、终值或结束条件，更要注意用来表示计数、和、阶乘的变量的初值。
　　例：用随机函数产生100个〔0，99〕范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。
　　本题使用数组来处理，用数组a（1to100）存放产生的确100个随机整数，数组x（1to10）来存放个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。即个位是1的个数存放在x（1）中，个位是2的个数存放在x（2）中，hellip；hellip；个位是0的个数存放在x（10）。
　　将程序编写在一个gettjput过程中，代码如下：
　　publicsubgettjput（）
　　dima（1to100）asinteger
　　dimx（1to10）asinteger
　　dimiasinteger，pasinteger
　　产生100个〔0，99〕范围内的随机整数，每行10个打印出来
　　fori1to100
　　a（i）int（rnd100）
　　ifa（i）lt；10then
　　form1。printspace（2）；a（i）；
　　else
　　form1。printspace（1）；a（i）；
　　endif
　　ifimod100thenform1。print
　　nexti
　　统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x（1），x（2），。。。，x（10）中，将统计结果打印出来
　　fori1to100
　　pa（i）mod10求个位上的数字
　　ifp0thenp10
　　x（p）x（p）1
　　nexti
　　form1。print统计结果
　　fori1to10
　　pi
　　ifi10thenp0
　　form1。print个位数为str（p）共str（x（i））个
　　nexti
　　endsub
　　二、求两个整数的最大公约数、最小公倍数
　　分析：求最大公约数的算法思想：（最小公倍数两个整数之积最大公约数）
　　（1）对于已知两数m，n，使得mgt；n；
　　（2）m除以n得余数r；
　　（3）若r0，则n为求得的最大公约数，算法结束；否则执行（4）；
　　（4）mlarr；n，nlarr；r，再重复执行（2）。
　　例如：求m14，n6的最大公约数。mnr
　　1462
　　620
　　minputbox（m）
　　ninputbox（n）
　　nmnm
　　ifmlt；nthentm：mn：nt
　　rmmodn
　　dowhile（rlt；gt；0）
　　mn
　　nr
　　rmmodn
　　loop
　　print最大公约数，n
　　〔1〕〔2〕〔3〕〔4〕〔5〕〔6〕〔7〕下一页