计算机二级vb常用算法经典题型代码

《计算机二级vb常用算法经典题型代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、常用算法经典题型代码1．求100－200的偶数的个数及和。Privatesubform_click()Dimn%,s&,i%n=0s=0fori=100to200step2n=n+1s=s+inextiprint“个数是：”;n,“和是:”;sendsub2.从键盘输入2个正整数，求他们的最大公约数和最小公倍数Privatesubform_click()Dimm%,n%,a&,r%,t%m=val(inputbox(“请输入第一个数”)n=val(inputbox(“请输入第二个数”)a=m*nr=mmodndowhiler<>0m=nn=rr=mmodnloopprint“最大公约数是：”

2、;n,“最小公倍数是:”;a/nendsub3.产生10个0－100的随机整数，从高到低排序。（三种方法掌握一种即可）比较法：privatesubform_click()Dima%(1to10),i%,t%Fori=1to10a(i)=int(rnd*(101))nextifori=1to9forj=i+1to10ifa(i)

3、d*(101))nextifori=1to9k=iforj=i+1to10ifa(k)

4、endsub4.产生10个0－100间的随机整数，求最大最小值。privatesubform_click()Dima%(1to10),i%,t%Fori=1to10a(i)=int(rnd*(101))nextimax=a(1)min=a(1)fori=2to10ifa(i)>maxthenmax=a(i)ifa(i)

5、henn=n+1s=s+iendifnextiprint“个数是：”;n,“和是:”;sendsub6.在窗体上输出所有的水仙花数Privatesubform_click()Dimi%,j&,k%fori=1to9forj=0to9fork=0to9ifi^3+j^3+k^3=i*100+j*10+kthenprinti*100+j*10+knextknextjnextiendsub7.输出1000－2000间的所有闰年年份。Privatesubform_click()Dimi%fori=1000to2000ifimod4=0andimod100<>orimod400=0thenprinti

6、;nextiendsub8.输出100－200间的素数Privatesubform_click()Dimi%,j%fori=100to200forj=2toint(sqr(i))ifimodj=0thenexitfornextjifj>int(sqr(i))thenprinti;nextiendsub9.求1！＋2！＋3！＋4!+5!Privatesubform_click()Dims#,p#s=0fori=1to5p=1forj=1toip=p*inextjs=s+pnextiprintsendsub10.输入一个3*3矩阵的元素，交换第1行和第3行的元素，并输出对角线元素之和。Optio

7、nBase1PrivateSubForm_Click()Dima(3,3)AsInteger,i%,j%,t%,s&s=0Fori=1To3Forj=1To3"a(i,j)=Val(InputBox("请输入a("&i&",&j&")的值"))NextjNextiPrint"交换前矩阵元素"Fori=1To3Forj=1To3Printa(i,j);NextjPrintNextiForj=1To3t=a(1,