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)AsIntegerDimx(1To10)AsIntegerDimiAsInteger,pAsInteger'产生100个[0，99]范围内的随机整数，每行10个打印出来Fori=1To100a(i)=Int(Rnd*100)Ifa(i)10ThenForm1.PrintSpace(2);a(i);ElseForm1.PrintSpace(1);a(i);EndIfIfiMod10=0ThenForm1.PrintNexti'统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来Fori=1To100p=a(i)Mod10'求个位上的数字Ifp=0Thenp=10x(p)=x(p)+1NextiForm1.Print统计结果Fori=1To10p=iIfi=10Thenp=0Form1.Print个位数为+Str(p)+共+Str(x(i))+个NextiEndSub二、求两个整数的最大公约数、最小公倍数分析：求最大公约数的算法思想：(最小公倍数=两个整数之积/最大公约数)(1)对于已知两数m，n，使得mn；(2)m除以n得余数r；(3)若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；(4)m←n，n←r，再重复执行(2)。例如:求m=14,n=6的最大公约数.mnr1462620m=inputBox(m=)n=inputBox(n=)nm=n*mIfmnThent=m:m=n:n=tr=mmodnDoWhile(r0)m=nn=rr=mmodnLoopPrint最大公约数=,nPrint最小公倍数=,nm/n三、判断素数只能被1或本身整除的数称为素数基本思想：把m作为被除数，将2—INT（m）作为除数，如果都除不尽，m就是素数，否则就不是。（可用以下程序段实现）m=val(InputBox(请输入一个数))Fori=2Toint(sqr(m))IfmModi=0ThenExitForNextiIfiint(sqr(m))ThenPrint该数是素数ElsePrint该数不是素数EndIf将其写成一函数,若为素数返回True，不是则返回FalsePrivateFunctionPrime(masInteger)AsBooleanDimi%Prime=TrueFori=2Toint(sqr(m))IfmModi=0ThenPrime=False:ExitForNextiEndFunction四、验证哥德巴赫猜想（任意一个大于等于6的偶数都可以分解为两个素数之和）基本思想：n为大于等于6的任一偶数，可分解为n1和n2两个数，分别检查n1和n2是否为素数，如都是，则为一组解。如n1不是素数，就不必再检查n2是否素数。先从n1=3开始，检验n1和n2（n2=N-n1）是否素数。然后使n1+2再检验n1、n2是否素数，…直到n1=n/2为止。利用上面的prime函数，验证哥德巴赫猜想的程序代码如下：Dimn%,n1%,n2%n=Val(InputBox(输入大于6的正整数))Forn1=3ton\2step2n2=n-n1Ifprime(n1)ThenIfprime(n2)thenPrintn&=&n1&+&n2ExitFor'结束循环EndifEndifNextn1五、排序问题1．选择法排序（升序）基本思想：1）对有n个数的序列（存放在数组a(n)中），从中选出最小的数，与第1个数交换位置；2）除第1个数外，其余n-1个数中选最小的数，与第2个数交换位置；3）依次类推，选择了n-1次后，这个数列已按升序排列。程序代码如下：Fori=1Ton-1imin=iForj=i+1TonIfa(imin)a(j)Thenimin=jNextjtemp=a(i)a(i)=a(imin)a(imin)=tempNextI2．冒泡法排序（升序）基本思想：(将相邻两个数比较，小的调到前头)1）有n个数（存放在数组a(n)中），第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”；2）第二趟对余下的n-1个数（最大的数已“沉底”）按上法比较，经n-2次两两相邻比较后得次大的数；3）依次类推，n个数共进行n-1趟比较，在第j趟中要进行n-j次两两比较。程序段如下Fori=1Ton-1Forj=1Ton-iIfa(j)a(j+1)Thentemp=a(j)：a(j)=a(j+1)：a(j+1)=tempEndifNextjNexti3．合并法排序（将两个有序数组A、B合并成另一个有序的数组C，升序）基本思想：1）先在A、B数组中各取第一个元素进行比较，将小的元素放入C数组；2）取小的元素所在数组的下一个元素与另一数组中上次比较后较大的元素比较，重复上述比较过程，直到某个数组被先排完；3）将另一个数组剩余元素抄入C数组，合并排序完成。程序段如下：DoWhileia=UBound(A)Andib=UBound(B)'当A和B数组均未比较完IfA(ia)B(ib)ThenC(ic)=A(ia)：ia=ia+1ElseC(ic)=B(ib)：ib=ib+1EndIfic=ic+1LoopDoWhileia=UBound(A)'A数组中的剩余元素抄入C数组C(ic)=A(ia)ia=ia+1：ic=ic+1LoopDoWhileib=UBound(B)'B数组中的剩余元素抄入C数组C(ic)=B(ib)ib=ib+1：ic=ic+1Loop六、查找问题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=1DoWhilexa(p)Andp=np=p+1Loop下面写一查找函数Find，若找到则返回下标值，找不到返回0OptionBase1PrivateFunctionFind(a()AsSingle,xAsSingle)AsIntegerDimn%,p%n=Ubound(a)p=1DoWhilexa(p)Andp=np=p+1LoopIfpnthenp=0Find=pEndFunction②基本思想：一列数放在数组a(1)---a(n)中，待查找的关键值为key，把key与a数组中的元素从头到尾一一进行比较查找，若相同，查找成功，若找不到，则查找失败。(查找子过程如下。index：存放找到元素的下标。)PublicSubSearch(a()AsVariant,keyAsVariant,index%)Dimi%Fori=LBound(a)ToUBound(a)Ifkey=a(i)Thenindex=iExitSubEndIfNextiindex=-1EndSub2．折半查找法（只能对有序数列进行查找）基本思想：设n个有序数（从小到大）存放在数组a(1)----a(n)中，要查找的数为x。用变量bot、top、mid分别表示查找数据范围的底部（数组下界）、顶部（数组的上界）和中间，mid=(top+bot)/2，折半查找的算法如下：（1）x=a(mid)，则已找到退出循环，否则进行下面的判断；（2）xa(mid)，x必定落在bot和mid-1的范围之内，即top=mid-1；（3）xa(mid)，x必定落在mid+1和top的范围之内，即bot=mid+1；（4）在确定了新的查找范围后，重复进行以上比较，直到找到或者bot=top。将上面的算法写成如下函数，若找到则返回该数所在的下标值，没找到则返回-1。Functionsearch(a()AsInteger,xAsInteger)AsIntegerDimbot%,top%,mid%DimfindAsBoolean'代表是否找到bot=LBound(a)top=UBound(a)find=False'判断是否找到的逻辑变量，初值为FalseDoWhilebot=topAndNotfindmid=(top+bot)\2Ifx=a(mid)Thenfind=TrueExitDoElseIfxa(mid)Thentop=mid-1Elsebot=mid+1EndIfLoopIffindThensearch=midElsesearch=-1EndIfEndFunction七、插入法把一个数插到有序数列中，插入后数列仍然有序基本思想：n个有序数（从小到大）存放在数组a(1)—a(n)中，要插入的数x。首先确定x插在数组中的位置P；（可由以下语句实现）p=1dowhilexa(p)andp=np=p+1loopa(p)—a(n)元素向后顺移一个位置以空出a(p)元素放入x，可由以下语句实现：fori=ntopstep-1a(i+1)=a(i)nextia(p)=x将其写成一插入函数PrivateSubInstert(a()AsSingle,xAsSingle)Dimp%,n%,i%n=UBound(a)ReDimPreservea(n+1)p=0DoWhilexa(p)Andp=n'确定x应插入的位置p=p+1LoopFori=nTopStep-1a(i+1)=a(i)Nextia(p)=xEndSub八、矩阵（二维数组）运算（1）矩阵的加、减运算C(i,j)=a(i,j)+b(i,j)加法C(i,j)=a(i,j)-b(i,j)减法（2）矩阵相乘（矩阵A有M*L个元素，矩阵B有L*N个元素，则矩阵C=A*B有M*N个元素）。矩阵C中任一元素lkjkbkiajic1)),(),((),((i=1,2,…,m;j=1,2,…,n)Fori=0TomForj=0Tonc(i,j)=0Fork=0Tolc(i,j)=c(i,j)+a(i,k)*b(k,j)NextkNextjNexti（3）矩阵传置例:有二维数组a(5,5)，要对它实现转置，可用下面两种方式：Fori=1to5(2)Fori=2to5Forj=i+1to5Forj=1toit=a(i,j)t=a(i,j)a(i,j)=a(j,i)a(i,j)=a(j,i)a(j,i)=ta(j,i)=tNextjNextjNextiNexti（4）求二维数组中最小元素及其所在的行和列基本思路同一维数组，可用下面程序段实现（以二维数组a(2,3)为例）：‘变量max中存放最大值，row,column存放最大值所在行列号Max=a(1,1):row=1:Column=1F