-.z.VB經典案例1輸入3個數，輸出最大的數*=val(te*t1)y=val(te*t2)z=val(te*t3)if*>=ythenif*>=zthenprint*elseprintzendifelseify>=zthenprintyendif2有一元二次方程：a*2+b*+c=0，依次輸入a，b，c，判斷此方程是否有實根a=val(te*t1)b=val(te*t2)c=val(te*t3)Ifb*b-4*a*c>=0thenprint"有實根〞elseprint"無實根〞endif3輸入一個成績，假設大于等于60，則用消息框顯示"恭喜！成績通過！〞，假設小于60，則彈出消息框顯示"抱歉！成績沒有通過！〞N=val(te*t1)ifn>=60thenmsgbo*〞恭喜！成績通過!〞elsemsgbo*"抱歉！成績沒有通過！〞endif4輸入一年份，判斷它是否為閏年，并顯示有關信息(判斷閏年的條件是：年份能被4整除但不能被100整除，或者能被400整除〕y=val(te*t1)ifymod4=0andymod100=0thenprint"y是閏年〞elseprinty"不是閏年’〞endif5輸入學生的百分制成績，轉換輸出為五級制成績，90～100分轉換為優秀，80～89轉換為良好，70～79轉換為中等，60～69轉換為及格，0～60轉換為不及格。Ifmark>=90thengrade=‘優’elseIfmark>=80thengrade=‘良’elseIfmark>=70thengrade=‘中’elseIfmark>=60thengrade=‘及格’elsegrade=〞不及格〞6隨機產生一個三位正整數，然后逆序輸出，產生的數與逆序數同時顯示。例如，產生246，輸出是642。n=int(rnd*900+100)dim*%,a%,b%,c%a=*mod10b=int((*mod100)/10)c=int(*/100)print*;a*100+b*10+c7輸入兩個整數，求它們的最大公約數。Functiongcd%(byvalm%,byvaln%)ifm<nthent=m:m=n:n=tR=mmodndowhile(r<>0)m=n:n=r:r=modnloopgcd=nendfunction8編程求200--400*圍內5的倍數或7的倍數之和。dims%,i%s=0Fori=200to400ifimod5=0orimod7=0thens=s+iendifne*tiprints9計算100~300之間所有能被3和7整除的數之和dims%,i%s=0fori=100to300Ifimod3=0andimod7=0thens=s+iendifne*tiprint"s=〞&s10分別統計1-100中，滿足3的倍數、7的倍數的數各有多少。Dimn1%,n2%,i%n1=0:n2=0Fori=1to100ifimod3=0thenn1=n1+1ifimod7=0thenn2=n2+1ne*tiprintn1,n211*次歌曲大獎賽，有7個評委。如果分別輸入7個評委對*個參賽者的打分數，按照去掉一個最高分和一個最低分的計算方法，求出該參賽者的平均得分。Dima(6)asintegeri%,ma*%,min%,sum%a(0)=val(te*t1.te*t)省略a(6〕=val(te*t7.te*t)sum=a(0)+a(1)+a(2)+a(3)+a(4)+a(5)+a(6)ma*=a(0)min=a(0)fori=1to6ifmin>a(i)thenmin=a(i)Ifma*<a(i)thenma*=a(i)sum=sum+a(i)ne*tiprint"平均分〞;(sum-min-ma*)/512輸入一串字符，統計其中字母A出現的次數。dims$,i%，n%s=te*t1n=0fori=1tolen(s〕c=mid(s,i,1)Ifc=〞A〞ORc=〞a〞thenn=n+1ne*tiprintn13我國目前有13億人口，按人口年增長率0.8%計算，多少年后我國人口將超過26億。*=13n=0dowhile*<26*=**1.008n=n+1loopprint"年數為：〞;n;〞人數為:〞;*m=log(2)/log(1.008)ifint(m)<>mthenm=int(m)+1printm14小猴有桃假設干，第一天吃掉一半多一個；第二天吃剩下桃子的一半多一個；以后每天都吃尚存桃子的一半多一個，到第7天只剩一個，問小猴原有桃多少Dimn%,i%*=1fori=6to1step-1*=2*(*+1)print*ne*ti-.z.-.z.15求100以內的素數Dimm%,i%,tagasbooleanform=3to100step2tag=truefori=2tom-1ifmmodi=0Thentag=falsene*tiIftag=truethenprintm&〞是素數〞elseprintm&〞不是素數〞Endifne*tm16百元買百雞問題。假定小雞每只5角，公雞每只2元，母雞每只3元，編程求解購雞案。Dim*%，y%,z%,n%n=0print"母雞〞，〞公雞〞，〞小雞’for*=0to33fory=0to50Z=100-*-yn=n+1if3**+2*y+0.5*z=100thenprint*,y,zne*tyne*t*17編程求斐波那契數列前11項。〔斐波那契數列：F(0)=f(1)=1,F(n)=F(n-1)+F(n-2)n>=2〕Dim*()asintegerdimi%n=16redim*(n-1)*(0)=1*(1)=1fori=2ton-1*(i)=*(i-1)+*(i-2)ne*tifori=0ton-1print*(i),if(i+1)mod5=0thenprintne*t18將輸入的字符串以反序顯示。例如：輸入"ASDFGT〞，顯示"TGFDSA〞Dimi,a,b,nasstringn=inputbo*("輸入字符〞)i=len(n)fora=1toi/2b=mid(n,a,1)Mid(n,a,1)=mid(n,i+1-a,1)mid(n,i+1-a,1)=bne*taprintn19隨機產生10個[30,100]內的整數，求最大值及所對應的下標Dima(0to9)asintegeri%,ma*%,ima*%fori=0to9a(i)=int(rnd*71+30)printa(i);ne*tima*=a(0)ima*=0fori=1to9Ifa(i)>ma*thenma*=a(i):ima*=ine*tiprint"ma*=〞;ma*,〞ima*=〞;ima*20隨機產生10個[30,100]內的整數，求最大值、最小值和平均值。Dima(0to9)asintegeri%,ma*%,min%,aver!fori=0to9a(i)=int(rnd*71+30)Ne*timin=a(0)ma*=a(0)aver=a(0)fori=1to9ifa(i)>ma*thenma*=a(i)Ifa(i)<minthenmain=a(i)aver=aver+a(i)ne*tifori=0to9printa(i);ne*tiprintPrint"ma*=〞;ma*,〞min=〞;min,"aver=〞;aver/1021隨機產生10個[30,100]內的整數，求最小值及所對應的下標。Dima(0to9)asintegeri%,min%,imin%fori=0to9a(i)=int(rnd*71+30)printa(i);ne*timin=a(0)imin=0fori=1to9Ifa(i)<minthenmin=a(i):imin=ine*tiprint"min=〞;min,〞imin=〞;imin22隨機生成一個整型的二維數組，*圍在[10,20]之間，以下三角形式輸出該數組。Dima(4,4)asintegerfori=0to4forj=0to4a(i,j)=int(rnd*11+10)ne*tjne*tiFori=0to4fori=0to4printa(i,j);ne*tjprintne*ti23隨機產生10個1~100的正整數放入數組，顯示產生的數，求最大值、最小值、平均值。Dima(1to10)asinteger,i%,ma*%,min%,aver%fori=1to10a(i)=int(rnd*100+1)ne*tiMin=a(1)ma*=a(1)aver=a(1)fori=2to10ifa(i)>ma*thenma*=a(i)Ifa(i)<minthenMin=a(i)aver=aver+a(i)ne*tiprintprint"ma*=〞;ma*,〞min=〞;min,〞aver=〞;aver/1024利用隨機函數生成一個4×4的矩陣的二維矩陣,*圍是[20,50]內的整數,輸出該矩陣所有數據之和Dima(2,3),sum%fori=0to3forj=0to3a(i,j)=int(rnd*31+20)ne*tine*tjFori=0to3forj=0to3printa(i,j);ne*tjprintne*tifori=0to3forj=0to3Sum=sum+a(i,j)ne*tjne*tiprint〞sum=〞;sum25有序數組a()，編程插入*〔*的值為14〕。數組a中的元素分別為{12，6，4，89，75，63，100，20，31}。Dima(),i%,k%,*%,n%a=array(12,6,4,89,75,63,100,20,31)n=ubound(a)*=val(te*t1)fork=0tonif*<a(k)thene*itforne*tkredimpreservea(n+1)fori=ntokstep-1a(i+1)=a(i)ne*tia(k)=*fori=0ton+1printa(i);ne*ti26編寫一函數，計算Double類型一維數組所有元素的平均值。Functionavg(a())asdoubledimi%,s#m%,n%s=0m=Lbound(a);n=ubound(a)fori=mtons=s+a(i)ne*tiAvg=s/(n-m+1)endfunction27用函數過程求表達式1+1/2+1/3+1/4+…+1/n的和。Functionsum(n%)assingledimi%s!S=0fori=1tonS=s+1/ine*tisum=sendfunction28編一子過程ProcMin,求一維數組a中的最小值，子過程的形參自己確定。Dima(1to10),amin,i%fori=1to10a(i)=-int(rnd*101+300)printa(i);ne*tiCalls(a(),amin)printprint〞最小值〞;aminends