VB程序的設(shè)計編程考試題與答案

./VB程序設(shè)計編程考試題及答案輸入3個數(shù),輸出最大的數(shù)PrivateSubcommand1_click<>DimmaxFori=1To3n=Val<InputBox<"輸入第"&i&"個數(shù)">>Ifn>maxThenmax=nEndIfNextPrint"三個數(shù)中最大的數(shù)是";maxEndSub有一元二次方程：aX2+bX+c=0,依次輸入a,b,c,判斷此方程是否有實根PrivateSubCommand1_Click<>Dima,b,c,na=Text1b=Text2c=Text3n=b*b-4*a*cIfn>=0ThenLabel4="方程有根"ElseLabel4="方程無根"EndIfEndSub輸入一個百分制的成績,若大于等于60,則用消息框彈出,顯示"恭喜！成績通過！",若小于60,則彈出消息框,顯示"抱歉！成績沒有通過！PrivateSubForm_Load<>Text1=""EndSubPrivateSubCommand1_Click<>Dimnn=Text1Ifn>=60ThenVal<MsgBox<"恭喜！成績通過！">>ElseVal<MsgBox<"抱歉！成績沒有通過！">>EndIfEndSub輸入一年份,判斷它是否為閏年,并顯示有關(guān)信息.〔判斷閏年的條件是：年份能被4整除但不能被100整除,或者能被400整除PrivateSubCommand1_Click<>Dimy%y=InputBox<"請輸入年份">IfyMod4=0AndyMod100<>0OryMod400=0ThenVal<MsgBox<"閏年！">>ElseVal<MsgBox<"平年！">>EndIfEndSub輸入學生的百分制成績,轉(zhuǎn)換輸出為五級制成績,90～100分轉(zhuǎn)換為優(yōu)秀,80～89轉(zhuǎn)換為良好,70～79轉(zhuǎn)換為中等,60～69轉(zhuǎn)換為及格,0～60轉(zhuǎn)換為不及格.PrivateSubCommand1_Click<>a=Val<InputBox<"請輸入成績">>Ifa>100ThenPrint"超出范圍"Ifa>=90Anda<=100ThenPrint"優(yōu)秀"Ifa>=80Anda<90ThenPrint"良好"Ifa>=70Anda<80ThenPrint"中等"Ifa>=60Anda<70ThenPrint"及格"Ifa<60ThenPrint"不及格"EndSub隨機產(chǎn)生一個三位正整數(shù),然后逆序輸出,產(chǎn)生的數(shù)與逆序數(shù)同時顯示.例如,產(chǎn)生246,輸出是642.PrivateSubCommand1_Click<>Dimx%,x1%,x2%,x3%x=Text1x1=xMod10x2=<xMod100>\10x3=x\100Label1=x1*100+x2*10+x3EndSub輸入兩個整數(shù),求它們的最大公約數(shù).privateSubCommand1_Click<>n1=InputBox<"輸入n">m1=InputBox<"輸入m">Ifm1>n1Thenm=m1:n=n1Elsem=n1:n=m1EndIfr=mModnDoWhiler<>0m=nn=rr=mModnLoopPrint"mn的最大公約數(shù)是：";nEndSub編程求200--400范圍內(nèi)5的倍數(shù)或7的倍數(shù)之和.<一個數(shù)如果同時是7和5的倍數(shù),則只能加一次..PrivateSubCommand1_Click<>Fori=200To400IfiMod5=0OriMod7=0ThenSum=Sum+iEndIfNextiFori=200To400IfiMod5=0AndiMod7=0ThenSum=Sum-iEndIfNextiPrint"倍數(shù)之和=";SumEndSub計算100~300之間所有能被3和7整除的數(shù)之和PrivateSubCommand1_Click<>DimiSum=0Fori=100To300IfiMod3=0AndiMod7=0ThenSum=Sum+iEndIfNextiPrintSumEndSub分別統(tǒng)計1-100中,滿足3的倍數(shù)、7的倍數(shù)的數(shù)各有多少.PrivateSubCommand1_Click<>Dimi,s3,s7s3=0s7=0Fori=1To100IfiMod3=0Thens3=s3+1EndIfNextiFori=1To100IfiMod7=0Thens7=s7+1EndIfNextiPrint"3的倍數(shù)";s3Print"7的倍數(shù)";s7EndSub某次歌曲大獎賽,有7個評委.如果分別輸入7個評委對某個參賽者的打分數(shù),按照去掉一個最高分和一個最低分的計算辦法,求出該參賽者的平均得分.PrivateSubCommand1_Click<>Dimmax,a<1To7>,min,sFori=1To7a<i>=Val<InputBox<"輸入第"&i&"個數(shù)">>Nextimax=a<1>min=a<1>s=a<1>Fori=2To7Ifa<i>>maxThenmax=a<i>Ifa<i><minThenmin=a<i>s=s+a<i>Nextis=s-min-maxs=s/5Print"平均分";sEndSub輸入一串字符,統(tǒng)計其中字母A<不區(qū)分大小寫>出現(xiàn)的次數(shù).PrivateSubCommand1_Click<>DimcAsString,aAsIntegerb=InputBox<"請輸入字符">Fori=1ToLen<b>c=UCase<Mid<b,i,1>>Ifc="A"Thena=a+1EndIfNextiPrint"a出現(xiàn)的次數(shù)：";aEndSub我國目前有13億人口,按人口年增長率0.8%計算,多少年后我國人口將超過26億.PrivateSubCommand1_Click<>Dima,ia=13i=0DoWhilea<26a=a*<1.008>i=i+1LoopPrintiEndSub小猴有桃若干,第一天吃掉一半多一個；第二天吃剩下桃子的一半多一個；以后每天都吃尚存桃子的一半多一個,到第7天只剩一個,問小猴原有桃多少？PrivateSubCommand1_Click<>Dima,ia=1Fori=1To6a=2*<a+1>NextiPrint"小猴原有桃";a;"只"EndSub求100以內(nèi)的素數(shù)PrivateSubCommand1_Click<>Dimi,jFori=2To100Forj=2Toi-1IfiModj=0ThenExitForNextjIfj=iThenPrintiNextiEndSub百元買百雞問題.假定小雞每只5角,公雞每只2元,母雞每只3元,編程求解購雞方案.PrivateSubCommand1_Click<>Print"小雞";"";"母雞";"";"公雞"Print""Forx=1To100Fory=1To100Forz=1To100If0.5*x+2*y+3*z=100ThenPrint"";x;"";y;"";zEndIfNextzNextyNextxEndSub編程求斐波那契數(shù)列前11項.〔斐波那契數(shù)列：F<0>=f<1>=1,F<n>=F<n-1>+F<n-2>n>=2PrivateSubCommand1_Click<>DimF<11>,iAsLongF<0>=1F<1>=1Fori=2To10F<i>=F<i-1>+F<i-2>NextiFori=0To11PrintF<i>;NextiEndSub將輸入的字符串以反序顯示.例如：輸入"ASDFGT",顯示"TGFDSA"PrivateSubCommand1_Click<>Dima,b,c,d,na=InputBox<"輸入字符串">n=Len<a>Forb=1ToInt<n\2>c=Mid<a,b,1>Mid<a,b,1>=Mid<a,n-b+1,1>Mid<a,n-b+1,1>=cNextbPrintaEndSub隨機產(chǎn)生10個[30,100]內(nèi)的整數(shù),求最大值及所對應(yīng)的下標PrivateSubCommand1_Click<>Dima<1To10>,mRandomizeForI=1To10a<I>=Int<Rnd*71>+30Printa<I>NextIMax=a<1>ForI=2To10Ifa<I>>MaxThenMax=a<I>:m=INextIPrint"max=";MaxPrint"max的下標為";mEndSub隨機產(chǎn)生10個[30,100]內(nèi)的整數(shù),求最大值、最小值和平均值.PrivateSubCommand1_Click<>Dima<1To10>Fori=1To10a<i>=Int<Rnd*71>+30Printa<i>NextiMax=a<1>Min=a<1>Avg=a<1>Fori=2To10Ifa<i>>MaxThenMax=a<i>Ifa<i><MinThenMin=a<i>Avg=Avg+a<i>NextiAvg=Avg/10Print"max=";MaxPrint"min=";MinPrint"avg=";AvgEndSub隨機產(chǎn)生10個[30,100]內(nèi)的整數(shù),求最小值及所對應(yīng)的下標.PrivateSubCommand1_Click<>Dima<1To10>,mRandomizeForI=1To10a<I>=Int<Rnd*71>+30Printa<I>NextIMin=a<1>ForI=2To10Ifa<I><MinThenMin=a<I>:m=INextIPrint"min=";MinPrint"min的下標為";mEndSub隨機生成一個整型的二維數(shù)組,范圍在[10,20]之間,以下三角形式輸出該數(shù)組.PrivateSubCommand1_Click<>Dima<1To10,1To10>,i,jAsIntegerFori=1To10Forj=1To10a<i,j>=Int<Rnd*11+10>NextNextFori=1To10Forj=1ToiPrintSpc<3>;a<i,j>;NextPrintNextEndSub隨機產(chǎn)生10個1~100的正整數(shù)放入數(shù)組,顯示產(chǎn)生的數(shù),求最大值、最小值、平均值.PrivateSubCommand1_Click<>Dima<1To10>Fori=1To10a<i>=Int<Rnd*101>+1Printa<i>NextiMax=a<1>Min=a<1>Avg=a<1>Fori=2To10Ifa<i>>MaxThenMax=a<i>Ifa<i><MinThenMin=a<i>Avg=Avg+a<i>NextiAvg=Avg/10Print"max=";MaxPrint"min=";MinPrint"avg=";AvgEndSub利用隨機函數(shù)生成一個4×4的矩陣<即二維矩陣>,范圍是[20,50]內(nèi)的整數(shù),輸出該矩陣所有數(shù)據(jù)之和PrivateSubCommand1_Click<>Dima%<4,5>,sumFori=1To4Forj=1To4a<i,j>=Int<Rnd*31>+20Printa<i,j>;sum=sum+a<i,j>NextjPrint'換行NextiPrint"sum=";sumEndSub已知有序數(shù)組a<>,編程插入x〔x的值為14.數(shù)組a中的元素分別為{12,6,4,89,75,63,100,20,31}.PrivateSubCommand1_Click<>Dima<>,i%,k%,x%,n%a=Array<4,6,12,20,31,63,75,89,100>n=UBound<a>x=Val<InputBox<"請輸入所要插入數(shù)">>Fork=0TonIfx<a<k>ThenExitForNextkReDimPreservea<n+1>Fori=nTokStep-1a<i+1>=a<i>Nextia<k>=xFori=0Ton+1Printa<i>;NextiEndSub編寫一函數(shù),計算Double類型一維數(shù)組所有元素的平均值.編一子過程ProcMin,求一維數(shù)組a中的最小值,子過程的形參自己確定PrivateSubcommand1_Click<>Dima<1To10>,min,i%Fori=1To10a<i>=Int<Rnd*101>Printa<i>;NextiCallProcMin<a<>,min>PrintPrint"min=";minEndSubSubProcMin<b<>,min>Dimi%min=b<LBound<b>>Fori=LBound<b>+1ToUBound<b>Ifb<i><minThenmin=b<i>