資源描述：
《大一、大二VB考試專用編程題》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、1．編寫程序，求2的n次冪，n的值通過鍵盤輸入。(要求用循環(huán)做，非循環(huán)不給分。)PrivateSubCommand1_Click()DimiAsLong,nAsInteger,sAsLongn=Int(Val(InputBox("請(qǐng)輸入n的值"+"輸入框")))s=1Fori=1Tons=s*2NextiPrintsEndSub2．從鍵盤上輸入兩個(gè)正整數(shù)A和B，求最大公約數(shù)。PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,nAsInteger,iAsIntegera=Text1.Textb=Text2.TextIfa<
2、bTheni=a:a=b:b=iDoWhileb<>0n=aModb:a=b:b=nLoopText3.Text=nEndSub3．編寫程序，隨機(jī)生成100個(gè)兩位整數(shù)，并統(tǒng)計(jì)出其中小于等于40、大于40小于等于70及大于70的數(shù)據(jù)個(gè)數(shù)。PrivateSubForm_Click()DimnAsIntegerDimcont1AsInteger,cont2AsInteger,cont3AsIntegern=Int(Rnd*90+10)Printncont1=0cont2=0cont3=0Ifn<40Thencont1=cont1+1EndIfIfn>40Andn<70Thenc
3、ont2=cont2+1EndIfIfn>70Thencont3=cont3+1EndIfPrintcont1:cont2:cont34．編寫程序，單擊窗體時(shí)在窗體上輸出如下所示的圖形。*****************************************PrivateSubForm_Click()DimiAsInteger,beginAsIntegerbegin=5Fori=1To5PrintTab(begin);Forj=1To2*i-1Print"*";NextjPrintbegin=begin-1Nextibegin=2Fori=1To4PrintTa
4、b(begin);Forj=1To9-2*iPrint"*";NextjPrintbegin=begin+1NextiEndSub5．編寫程序，計(jì)算并輸出下面級(jí)數(shù)前n項(xiàng)(n=80)的部分和。1-1/2+1/3-1/4+1/5+……＋1/n(n由鍵盤輸入，要求用循環(huán)做，非循環(huán)不給分。)PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimsumAsDoublen=Val(InputBox(""))sum=0Fori=1TonIfiMod2<>0Thensum=sum+(1/i)Elsesum=sum-(1/i)EndIfN
5、extiPrintsumEndSub6．有100匹馬，馱100擔(dān)貨：大馬馱3擔(dān)，中馬馱2擔(dān)，兩匹小馬馱1擔(dān)，問有大、中小馬各多少？OptionExplicitPrivateSubForm_Click()DimxAsInteger,yAsInteger,zAsIntegerPrint"大馬","中馬","小馬"Forx=0To33Fory=0To50z=100-x-yIf(x*3+y*2+z*0.5)=100ThenPrintx,y,zEndIfNextyNextxPrintPrint"共7種方案。"EndSub7．編寫程序，要求從鍵盤輸入0-6中的一任一個(gè)，可對(duì)應(yīng)得到星期
6、日、星期一---星期六。PrivateSubForm_Click()DimnAsIntegern=Int(Val(InputBox("")))SelectCasenCase0Printn;"：星期日"Case1Printn;"：星期一"Case2Printn;"：星期二"Case3Printn;"：星期三"Case4Printn;"：星期四"Case5Printn;"：星期五"Case6Printn;"：星期六"CaseElsePrintn;"：錯(cuò)誤"EndSelectEndSub8．編寫程序，輸出下列三角形：(要求用循環(huán)做，非循環(huán)不給分。)111111111111111
7、1OptionExplicitPrivateSubCommand1_Click()DimiAsInteger,jAsInteger,beginAsIntegerbegin=7Fori=1To4PrintTab(begin);Forj=1To2*i-1Print"1";NextjPrintbegin=begin-2NextiEndSub9．求公式：e=1/1!+1/2!+1/3!+……+1/n!直到最后一項(xiàng)小于10^(-6)時(shí)e的值。(注：程序代碼寫在命令按鈕Command1的Click事件中。)PrivateSubComman
