计算机二级v常用算法经典题型代码.docVIP

常用算法经典题型代码 求100－200的偶数的个数及和。 Private sub form_click() Dim n%,s,i% n=0 s=0 for i=100 to 200 step 2 n=n+1 s=s+i next i print “个数是：”;n,“和是:”;s end sub 2.从键盘输入2个正整数，求他们的最大公约数和最小公倍数 Private sub form_click() Dim m%,n%,a,r%,t% m=val(inputbox(“请输入第一个数”) n= val(inputbox(“请输入第二个数”) a=m*n r=m mod n do while r0 m=n n=r r= m mod n loop print “最大公约数是：”;n,“最小公倍数是:”;a/n end sub 3.产生10个0－100的随机整数，从高到低排序。（三种方法掌握一种即可） 比较法： private sub form_click() Dim a%(1 to 10), i%,t% For i=1 to 10 a(i)=int(rnd*(101)) next i for i=1 to 9 for j=i+1 to 10 if a(i)a(j) then t=a(i) a(i)=(j) a(j)=t next j next i For i=1 to 10 Print a(i); next i end sub 选择法： private sub form_click() Dim a%(1 to 10), i%,t% For i=1 to 10 a(i)=int(rnd*(101)) next i for i=1 to 9 k=i for j=i+1 to 10 if a(k)a(j) then k=j next j t=a(i) a(i)=a(k) a(k)=t next i For i=1 to 10 Print a(i); next i end sub 冒泡法： private sub form_click() Dim a%(1 to 10), i%,t% For i=1 to 10 a(i)=int(rnd*(101)) next i for i=1 to 9 for j= 10 to i+1 step -1 if a(j-1)a(j) then t=a(j-1) a(j-1)=a(j) a(j)=t next j next i For i=1 to 10 Print a(i); next i end sub 4.产生10个0－100间的随机整数，求最大最小值。 private sub form_click() Dim a%(1 to 10), i%,t% For i=1 to 10 a(i)=int(rnd*(101)) next i max=a(1) min=a(1) for i=2 to 10 if a(i)max then max=a(i) if a(i) min hen min=a(i) next i print “最大值是：”;max; “最小值是：”;min end sub 5. 求500－600间能被3整除的个数及与和。 Private sub form_click() Dim n%,s,i% n=0 s=0 for i=500 to 600 if i mod 5=0 then n=n+1 s=s+i end if next i print “个数