资源描述：
《vb_常用算法总结》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、一、变量值的交换算法思想：若交换两个变量的值，必须引入第三个新的变量进行传递。以下代码是错误的：X=12：Y=34：X=Y：Y=X正确的代码是：X=12：Y=23：T=X：X=Y：Y=T二、判断一个数是否能被另一个数整除算法思想：可以用整除的定义（余数为0）或X除以Y等于X整除Y等表达式进行判断。条件表达式可以为：XmodY=0或X＼Y=X/Y或Int(X/Y)=X/Y如果以上条件表达式为True，则表示X能被Y整除。三、累加、阶乘、计数和求平均值算法思想：使用循环语句，并用一个变量存放累加的中间及最终结果。注：累加求和时变量初值为0，计算阶乘时变量初
2、值为1。统计计个数（计数）时可用一个变量作为统计个数的累加变量，每次加1即可。求平均值算法思想是先求和，再除以个数。条件求和（或计数）：在循环语句中加入If－EndIf判断语句。例题：计算1到10之间所有整数的累加和以及10！。n=10sum=0‘累加求和时，变量的初值一定为0prod=1‘累乘（连乘）时，变量的初值一定为1Fori=1Tonsum=sum+iprod=prod*iNextiPrintsum,prod例题：统计0—100之间能被3整除的数的个数、累加和及其平均值。s=0n=0Fori=0To100Ifimod3=0Thens=s+in=
3、n+1EndIfNextiPrintn,s,s/n四、对数组中的元素逐一进行操作算法思想：在VB中，对于数组中元素的操作，往往使用到For循环。通用代码为：Dim数组名([下标下界]To下标上界)……Fori=LBound(数组名)ToUBound(数组名)……数组名(i)…………Nexti通过以上循环，可以对数组中所有元素逐一操作。注：1）LBound函数：返回数组的下界UBound函数：返回数组的上界2）如果数组上界和下界已经确定，可以不使用函数，直接指明即可。例如OptionBase1Dima(100)AsIntegerFori=1To100……
4、7a(i)…………Nexti3）对于二维数组，要使用For循环的嵌套实现对数组中元素的操作，其中外层循环变量控制第一维下标的变化，内层循环变量控制第二维下标的变化，例如：OptionBase1Dima(2,3)AsIntegerFori=1to2Forj=1to3……a(i,j)…………NextjNexti例题：1．对下标为偶数的元素进行处理的程序代码OptionBase1……Fori=1toUBound(a)‘循环变量i可代表数组元素的下标Ifimod2=0Thena(i)……EndIfNexti2．对数组元素中数据为偶数的元素进行处理OptionB
5、ase1……Fori=1toUBound(a)‘循环变量i代表数组元素的下标Ifa(i)mod2=0Thena(i)……EndIfNexti五、交换数组元素算法思想：若某一维数组有n个元素，将第1个元素和第n个元素交换，将第2个元素和第n-1个元素交换……，需要交换n＼2次（如果交换n次，则回到初始状态）；对于二维数组，若进行行交换或列交换，需要使用循环语句，每次循环需要使用变量值交换算法。例题：交换一维数组（5个元素）的元素值b=Array(1,3,5,7,9)Fori=0To5＼2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpN
6、extiEndSub例题：一维数组元素交换的通用代码：n=UBound(数组名)Fori=LBound(数组名)Ton＼2t=b(i)b(i)=b(n)b(n)=tn=n-1Nexti例题：交换二维数组Mat第二列和第四列的数据Fori=LBound(Mat,1)ToUBound(Mat,1)t=Mat(i,2)Mat(i,2)=Mat(i,4)Mat(i,4)=tNexti7例题：交换二维数组Mat第一行和第三行的数据Forj=LBound(Mat,2)ToUBound(Mat,2)t=Mat(1,j)Mat(1,j)=Mat(3,j)Mat(3,j
7、)=tNexti六、求数组元素中的最大值、最小值算法思想：假设数组中第一个元素为最大值，并赋给变量Max，然后使用循环结构依次与第2个数组元素至最后一个元素进行比较，如果某数组元素的值大于Max，则将该元素的值赋给Max（同时可记录下该数组元素在数组中的位置）。例题：显示数组a中的最大值及其下标。OptionBase1DimMaxAsInteger,IndexAsIntegerMax=a(1)aIndex=1Fori=2toUBound(a)Ifa(i)>MaxThenMax=a(i)aIndex=iEndIfNextiPrintMax,i求最小值的方
8、法与此类似，差别在于取第一个元素为最小值Min，与2个数组元素至最后一个元素进行比较时判断关系
