資源描述:
《歷年vb題目整理(帶答案)》由會(huì)員上傳分享,免費(fèi)在線(xiàn)閱讀,更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、1、算法描述:求的1~100之間所有偶數(shù)的和'注:請(qǐng)不要更改原程序結(jié)構(gòu),刪除(1)、(2)、(3),并在對(duì)應(yīng)位置填寫(xiě)正確的代碼'Functionfunc()(1)iAsIntegerdimfunc=(2)0Fori=2To100Step(3)2func=func+iNextiEndFunction2、操作要求:順序查找單詞“name”:輸入10個(gè)不同的單詞給數(shù)組,查找單詞“name”是否在數(shù)組中;如果在,輸出單詞在數(shù)組中的位置,否則,輸出“不在數(shù)組中”。Submain()DimiAsIntegerDimbu
2、zaiAsBoolean'定義數(shù)組d,下界為1,上界為10,數(shù)據(jù)類(lèi)型為string,在dim后完善語(yǔ)句Dim(1)d(1To10)AsString'輸入10個(gè)單詞,在for語(yǔ)句后完善i的初始值與終值Fori=(2)1to10'輸入每個(gè)單詞給數(shù)組元素,在賦值號(hào)左側(cè)添加變量(3)=InputBox("Pleaseinputword"&i)d(i)Nextibuzai=Truei=0Whilebuzai=TrueAndi<10'順序查找單詞,數(shù)組下標(biāo)增1,在賦值號(hào)右側(cè)添加表達(dá)式i=(4)i+1'判斷數(shù)組元素是否為
3、單詞"name",在if語(yǔ)句后添加判斷條件If(5)Thend(i)="name"buzai=FalseEndIfWendIfbuzai=FalseThenMsgBox"在數(shù)組中的位置為:"+Str(i)ElseMsgBox"不在數(shù)組中"EndIfEndSub3、小王今年26歲,資助了一名貧困大學(xué)生,'他想從明年開(kāi)始每年比上一年多資助一名貧困大學(xué)生。'編程求解小王到多少歲,就能資助到n名甚至更多大學(xué)生?Functionfunc(n)stu=1age=26'請(qǐng)完善下面兩條語(yǔ)句DoWhilestu4、age=age+(1)1stu=(2)+age–25stuLoopfunc=ageEndFunctionSubMain()IfCommand="assess"ThenOpen"in.txt"ForInputAs#1LineInput#1,nClose#1Open"out.txt"ForOutputAs#1Print#1,func(n)Close#1Else'請(qǐng)完善大學(xué)生數(shù)n的輸入語(yǔ)句(3)=InputBox("請(qǐng)輸入大學(xué)生數(shù)n:","Input")nMsgBoxfunc(n)EndIfEndSub4、操作要
5、求:設(shè)計(jì)一個(gè)VB學(xué)習(xí)指導(dǎo)程序的窗口運(yùn)行界面,界面設(shè)計(jì)如下圖。要求(1)打開(kāi)“C:MyExam工程1.vbp”,設(shè)置窗體Form1屬性值:將該窗體標(biāo)題命名為“VB學(xué)習(xí)指導(dǎo)”;(2)添加一個(gè)標(biāo)簽控件Label1,并設(shè)置如下屬性值:該控件填充內(nèi)容“VB學(xué)習(xí)指導(dǎo)”;字體為隸書(shū),字形為粗體,字號(hào)為三號(hào),字體顏色為調(diào)色板中第5行第7列,并居中對(duì)齊;(3)對(duì)標(biāo)簽控件Label2(請(qǐng)輸入口令:),設(shè)置如下屬性值:根據(jù)字體大小自動(dòng)調(diào)整;(4)添加一個(gè)文本框控件Text1,并設(shè)置如下屬性值:文本框高度為650,寬度為221
6、5;文本框內(nèi)容為空;(5)添加一個(gè)命令按鈕Option2,并設(shè)置如下屬性值:將該按鈕標(biāo)題命名為“退出”;字體為黑體,字號(hào)為四號(hào);按鈕寬度1575,高度735;(5)保存并提交。5、操作要求:打開(kāi)"C:MyExam工程1.vbp”,補(bǔ)充完成程序。實(shí)現(xiàn)當(dāng)從鍵盤(pán)上輸入x的值后,求函數(shù)y的值(當(dāng)x<0時(shí),y=
7、3x+1
8、;當(dāng)x>=0時(shí),y=4x+1)。如:輸入-2后,輸出結(jié)果:5.Functionfunc(x)Ifx<0Thenfunc=(1)abs(3*x+1)Elsefunc=(2)4*x+1EndIfEn
9、dFunction6、操作要求:打開(kāi)“C:MyExam工程1.vbp”補(bǔ)充完成程序并保存!該程序的功能是:從鍵盤(pán)上輸入兩個(gè)數(shù)a和b,比較a和b的大小,并輸出較小的數(shù)。Functionfunc(a,b)If(1)Thenabfunc=bElsefunc="兩數(shù)相等"EndIfEndIfEndFunction7、操作要求:輸入a、b、c的值,判斷一元二次方程ax^2+bx+c=0是否有解,如果無(wú)解則輸出“無(wú)解”,如果兩個(gè)解相同則輸出“兩解相同”,否則輸出“兩解不
10、同”。Functionf(a,b,c)'請(qǐng)完成其它的判斷語(yǔ)句Ifb*b-4*a*c<0Thenf="無(wú)解"Ifb*b-4*a*c=0Then(1)f="兩解相同"(2)Ifb*b-4*a*c>0Thenf="兩解不同"EndFunctionSubMain()IfCommand="assess"ThenOpen"in.txt"ForInputAs#1LineInput#1,aLineInput#1,bLineInp