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

  • 格式:docx
  • 大小:57.85 KB
  • 文档页数:7

VB程序设计的常用算法教案
算法(Algrith):计算机解题的基本思想方法和步骤。

算法的描述:是对要解决一个问题或要完成一项任务所采
取的方法和步骤的描述,包括需要什么数据(输入什么数据、输出什么结果)、采用什么结构、使用什么语句以及如何
安排这些语句等。

通常使用自然语言、结构化流程图、伪代码等来描述算法。

一、计数、求和、求阶乘等简单算法
此类问题都要使用循环,要注意根据问题确定循环变量的初值、终值或结束条,更要注意用来表示计数、和、阶
乘的变量的初值。

例:用随机函数产生100个[0,99]范围内的随机整数,统计个位上的数字分别为1,2,3,4,,6,7,8,9,0的
数的个数并打印出来。

本题使用数组来处理,用数组a存放产生的确100个随机整数,数组x来存放个位上的数字分
别为1,2,3,4,,6,7,8,9,0的数的个数。

即个位是1的个数存放在x中,个位是2的个数存放在x中,……
个位是0的个数存放在x。

将程序编写在一个GetTput过程中,代码如下:PubliSubGetTput
DiaAsInteger
DixAsInteger
DiiAsInteger,pAsInteger
'产生100个[0,99]范围内的随机整数,每行10个打印出来
Fri=1T100
a=Int
Ifa<10Then
Fr1PrintSpae;a;
Else
Fr1PrintSpae;a;
EndIf
Ifid10=0ThenFr1Print
Nexti
'统计个位上的数字分别为1,2,3,4,,6,7,8,9,0的数的个数,并将统计结果保存在数组x,x,,x中,将统计结果打印出来
Fri=1T100
p=a
d
'求个位上的数字
Ifp=0Thenp=10
x=x+1
Nexti
Fr1Print&qut;统计结果&qut;
Fri=1T10
p=i
Ifi=10Thenp=0
Fr1Print&qut;个位数为&qut;+Str+&qut;共&qut;+Str)+&qut;个&qut;
Nexti
EndSub
二、求两个整数的最大公约数、最小公倍数
分析:求最大公约数的算法思想:
对于已知两数,n,使得>n;
除以n得余数r;
若r=0,则n为求得的最大公约数,算法结束;否则执行;
←n,n←r,再重复执行。

例如:求=14,n=6的最大公约数
n
r
4
6
2
6
2
=inputBx
n=inputBx
n=n*
If<nThent=:=n:n=t
r=dn
Dhile
=n
n=r
r=dn
Lp
Print&qut;最大公约数=&qut;,n
[1]
[2]
[3]
[4]
[]
[6]
[7]
下一页<。