歷年vb題目整理(帶答案)

歷年vb題目整理(帶答案)

ID:47475026

大小:90.51 KB

頁(yè)數(shù):8頁(yè)

時(shí)間:2020-01-11

歷年vb題目整理(帶答案)_第1頁(yè)
歷年vb題目整理(帶答案)_第2頁(yè)
歷年vb題目整理(帶答案)_第3頁(yè)
歷年vb題目整理(帶答案)_第4頁(yè)
歷年vb題目整理(帶答案)_第5頁(yè)
資源描述:

《歷年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ǔ)句DoWhilestu

4、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

當(dāng)前文檔最多預(yù)覽五頁(yè),下載文檔查看全文

此文檔下載收益歸作者所有

當(dāng)前文檔最多預(yù)覽五頁(yè),下載文檔查看全文
溫馨提示:
1. 部分包含數(shù)學(xué)公式或PPT動(dòng)畫(huà)的文件,查看預(yù)覽時(shí)可能會(huì)顯示錯(cuò)亂或異常,文件下載后無(wú)此問(wèn)題,請(qǐng)放心下載。
2. 本文檔由用戶(hù)上傳,版權(quán)歸屬用戶(hù),天天文庫(kù)負(fù)責(zé)整理代發(fā)布。如果您對(duì)本文檔版權(quán)有爭(zhēng)議請(qǐng)及時(shí)聯(lián)系客服。
3. 下載前請(qǐng)仔細(xì)閱讀文檔內(nèi)容,確認(rèn)文檔內(nèi)容符合您的需求后進(jìn)行下載,若出現(xiàn)內(nèi)容與標(biāo)題不符可向本站投訴處理。
4. 下載文檔時(shí)可能由于網(wǎng)絡(luò)波動(dòng)等原因無(wú)法下載或下載錯(cuò)誤,付費(fèi)完成后未能成功下載的用戶(hù)請(qǐng)聯(lián)系客服處理。