VB程序设计的常用算法.docx
- 文档编号:10979692
- 上传时间:2023-02-24
- 格式:DOCX
- 页数:14
- 大小:25.79KB
VB程序设计的常用算法.docx
《VB程序设计的常用算法.docx》由会员分享,可在线阅读,更多相关《VB程序设计的常用算法.docx(14页珍藏版)》请在冰豆网上搜索。
VB程序设计的常用算法
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)中,……个位是0的个数存放在x(10)。
将程序编写在一个GetTJput过程中,代码如下:
PublicSubGetTJput()
Dima(1To100)AsInteger
Dimx(1To10)AsInteger
DimiAsInteger,pAsInteger
'产生100个[0,99]范围内的随机整数,每行10个打印出来
Fori=1To100
a(i)=Int(Rnd*100)
Ifa(i)<10Then
Form1.PrintSpace
(2);a(i);
Else
Form1.PrintSpace
(1);a(i);
EndIf
IfiMod10=0ThenForm1.Print
Nexti
'统计个位上的数字分别为1,2,3,4,5,6,7,8,9,0的数的个数,并将统计结果保存在数组x
(1),x
(2),...,x(10)中,将统计结果打印出来
Fori=1To100
p=a(i)Mod10'求个位上的数字
Ifp=0Thenp=10
x(p)=x(p)+1
Nexti
Form1.Print"统计结果"
Fori=1To10
p=i
Ifi=10Thenp=0
Form1.Print"个位数为"+Str(p)+"共"+Str(x(i))+"个"
Nexti
EndSub
二、求两个整数的最大公约数、最小公倍数
分析:
求最大公约数的算法思想:
(最小公倍数=两个整数之积/最大公约数)
(1)对于已知两数m,n,使得m>n;
(2)m除以n得余数r;
(3)若r=0,则n为求得的最大公约数,算法结束;否则执行(4);
(4)m←n,n←r,再重复执行
(2)。
例如:
求m=14,n=6的最大公约数.mnr
1462
620
m=inputBox("m=")
n=inputBox("n=")
nm=n*m
Ifm m=n: n=t r=mmodn DoWhile(r<>0) m=n n=r r=mmodn Loop Print"最大公约数=",n Print"最小公倍数=",nm/n 三、判断素数 只能被1或本身整除的数称为素数基本思想: 把m作为被除数,将2—INT( )作为除数,如果都除不尽,m就是素数,否则就不是。 (可用以下程序段实现) m=val(InputBox("请输入一个数")) Fori=2Toint(sqr(m)) IfmModi=0ThenExitFor Nexti Ifi>int(sqr(m))Then Print"该数是素数" Else Print"该数不是素数" EndIf 将其写成一函数,若为素数返回True,不是则返回False PrivateFunctionPrime(masInteger)AsBoolean Dimi% Prime=True Fori=2Toint(sqr(m)) IfmModi=0ThenPrime=False: ExitFor Nexti EndFunction 四、排序问题 1.选择法排序(升序) 基本思想: 1)对有n个数的序列(存放在数组a(n)中),从中选出最小的数,与第1个数交换位置; 2)除第1个数外,其余n-1个数中选最小的数,与第2个数交换位置; 3)依次类推,选择了n-1次后,这个数列已按升序排列。 程序代码如下: Fori=1Ton-1 imin=i Forj=i+1Ton Ifa(imin)>a(j)Thenimin=j Nextj t=a(i) a(i)=a(imin) a(imin)=t NextI 五、查找问题 1.①顺序查找法(在一列数中查找某数x) 基本思想: 一列数放在数组a (1)---a(n)中,待查找的数放在x中,把x与a数组中的元素从头到尾一一进行比较查找。 用变量p表示a数组元素下标,p初值为1,使x与a(p)比较,如果x不等于a(p),则使p=p+1,不断重复这个过程;一旦x等于a(p)则退出循环;另外,如果p大于数组长度,循环也应该停止。 (这个过程可由下语句实现) p=1 DoWhilex<>a(p)Andp<=n p=p+1 Loop 下面写一查找函数Find,若找到则返回下标值,找不到返回0 OptionBase1 PrivateFunctionFind(a()AsSingle,xAsSingle)AsInteger Dimn%,p% n=Ubound(a) p=1 DoWhilex<>a(p)Andp<=n p=p+1 Loop Ifp>nthenp=0 Find=p EndFunction ②基本思想: 一列数放在数组a (1)---a(n)中,待查找的关键值为key,把key与a数组中的元素从头到尾一一进行比较查找,若相同,查找成功,若找不到,则查找失败。 (查找子过程如下。 index: 存放找到元素的下标。 ) PublicSubSearch(a()AsVariant,keyAsVariant,index%) Dimi% Fori=LBound(a)ToUBound(a) Ifkey=a(i)Then index=i ExitSub EndIf Nexti index=-1 EndSub 2.折半查找法(只能对有序数列进行查找) 基本思想: 设n个有序数(从小到大)存放在数组a (1)----a(n)中,要查找的数为x。 用变量bot、top、mid分别表示查找数据范围的底部(数组下界)、顶部(数组的上界)和中间,mid=(top+bot)/2,折半查找的算法如下: (1)x=a(mid),则已找到退出循环,否则进行下面的判断;
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 常用 算法