《VB程序設(shè)計》期末考試編程題復(fù)習

#第2章.新建工程，在窗體上創(chuàng)建兩個命令按鈕Commandl、Command2,一個標簽Labell,界面如圖2-5所示，程序運行要求如下：1）單擊“改變顏色”按鈕，標簽上的文字內(nèi)容改為“顏色已經(jīng)改變”，文字顏色改為紅色?！案淖冾伾卑粹o代碼：Label1.ForeColor=vbRedLabel1.Caption="顏色已經(jīng)改變"2）單擊“改變字體”按鈕，標簽上的字體改為“黑體”?！案淖冏煮w”按鈕代碼：Label1.FontName="黑體"最后將工程文件、窗體文件分別以lx2-2.vbp、lx2-2.frm為文件名保存在D:\EX文件夾下。.設(shè)計一個留言薄。新建一個工程，在窗體上創(chuàng)建2個標簽，2個文本框，1個命令按鈕，屬性設(shè)置如圖2-6所示，。要求單擊“提交”按鈕后，上面的文本框內(nèi)容復(fù)制到下面的文本框中，且下面文本框中的內(nèi)容不能修改。單擊“清除”按鈕則清除兩個文本框中的內(nèi)容。“提交”按鈕代碼：Text2.Text=Text1.Text“清除”按鈕代碼：Text1.Text=""Text2.Text=""FoemI請你留言:VisualBasic代明不區(qū)分字符的大小寫你的留言是:提交清除FoemI請你留言:VisualBasic代明不區(qū)分字符的大小寫你的留言是:提交清除口回區(qū)］最后將工程文件、最后將工程文件、窗體文件分別以lx2-5.vbp最后將工程文件、最后將工程文件、窗體文件分別以lx2-5.vbp、lx2-5.frm為文件名保存在D:\EX文件夾圖2-6窗體文件分別以lx24.vbp、lx24flm為文件名保存在D:\EX文件夾下。.設(shè)計一個程序，程序界面如圖2-7所示。當單擊“顯示”按鈕時，在文本框中顯示“歡迎使用VB!”；當單擊“清除”按鈕時，清除文本框內(nèi)的文本；當單擊“退出”按鈕時，結(jié)束程序運行?！帮@示”按鈕代碼：Textl.Text="歡迎使用VB!"“清除”按鈕代碼：Text1.Text=""“退出”按鈕代碼：End下。第3章.設(shè)計一個程序，在文本框中輸入一個3位整數(shù)，單擊按鈕后，在標簽上輸出該數(shù)的百位數(shù)、十位數(shù)和個位數(shù)，運行界面如圖3-3所示。最后將工程文件、窗體文件分別以SL3-3.vbp、SL3-3.frm為文件名保存在D:\EX文件夾下。

Frivate2，u口l-ommaiuii_l-±ickl.jDimn%,a%,b%,c%n=V：dl(Textl.Text)a二n1ULIb=(n-a*100：：l 10匚二nMud10Label2,Caption="百位數(shù)："他a他二十位數(shù)：“他b他二個位數(shù)：“他匚EndSub5設(shè).計一個程序，實現(xiàn)簡單計算的功能，運行界面如圖3-7所示。最后將工程文件、窗體文件分別以lx3-3.vbp、lx3-3.frm為文件名保存在D:\EX文件夾下。圖3-7程序運行界面PriuateSubCommand3_Click()~~…*”按鈕的代用Labell.Caption=Text3.Text=Ual(Text1,Text)*Ual(Text2.Text)EndSubPriuateSubCommand5clic)'"elm"按鈕的代用Textl-Text=一Text2,Text=""Text3,Text=""EndSub提示：按鈕的代碼： 是雙引號空字符串的意思設(shè)計一個程序（程序運行界面自定），使用inputbox函數(shù)輸入某品牌電腦的單價和購買的數(shù)量，計算并用msgbox函數(shù)輸出需付款金額。最后將工程文件、窗體文件分別以lx3-4.vbp、lx3-4.frm為文件名保存在D:\EX文件夾下。PriuateSubForm_Click（）Dimdj&,shl^,je&dj=UalflnputB口 輸入某品牌電腦的單價:“））shl=Ual（InputB口工「輸入某品牌電腦的購買的數(shù)量「））je=dj*shlMsgBox”需付款金頷二"&jeEndSub|rnd函數(shù)產(chǎn)生一個［0,1）的單精度隨機數(shù)。設(shè)計一個程序（程序運行界面自定），用此函數(shù)產(chǎn)生一個兩位的隨機整數(shù)并用msgbox函數(shù)輸出該整數(shù)值。最后將工程文件、窗體文件分別以lx3-5.vbp、lx3-5.frm為文件名保存在D:\EX文件夾下。PriuateSubForm_Click（）Dimzh%Randomizezh=Int（90*Rnd）+10MsgBox1兩位的隨機整數(shù)是:，，&zhEndSub第4章一、順序結(jié)構(gòu)8.例：輸入數(shù)據(jù)?輸入時間（小時，分，杪），然后輸出總計多少秒.?解：法一：使用文本框輸入數(shù)據(jù)運行時界面如下：最后將工程文件和窗體文件分別以3和存，并保存在 文件夾下。3文-件1名.保從輸入框中輸入圓的半徑，計算圓的周長和面積(1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性(2)編寫程序代碼PrivateSubCommandlCfickQDimrAsSingle,kAsSingle,sAsSingle『=Giw由期"請輸入圓的半徑”「旬算圓的周長和面積"))k=2*314159*rs=3.14159。*rTextl.Text=kText2.Text=s?強解，甘算已完成TJ甘算圓的周長和面積"EndS*bTOC\o"1-5"\h\zPrivateSubCommand2click0 wEnd -EndSwb ￥最后將工程文件和窗體文件分別以 和并保存在 文件夾下。最后將工程文件和窗體文件分別以 和并保存在 文件夾下。文件名保存,給定一個兩位數(shù)曲36),交換個位數(shù)和十位數(shù)的位置，把處理后的數(shù)顯示在窗體上編寫的窗體單擊事件過程代碼如下，PrivateS>bEoTMJGlkfcODimxAsIst&ger^aAsIntegerDimbAsInteger^cAsIntegerx=363=藏疝，10) ，求十位致b=xMod10 ，求個位數(shù)c=b*10+a ，生成卦的甄PriEt”處理后的數(shù)二二cEndSib .運行程序后單擊窗體，輸出結(jié)果是，處理后的數(shù)：63 ￥★最后將工程文件和窗體文件分別以-和5文件名保存,并保存在D E文件夾下。11編.制程序，在一個文本框中輸入一串字符（長度大于2），單擊“處理”按鈕時，則取出該字符串的頭、尾部各一個字符，合并后顯示在第二個文本框中。如輸入“ABCDEF”，則輸出“A”。PrivateSubCommandlClickf)DimxAsString,yAsStringx=Teitl.Teity= 1)+Rjgfclfc1)y=Text2.TextEndSuby=Text2.TextEndSubText2.Text=文件名保存，最后將工程文件和窗體文件分別以 和文件名保存，并保存在D EX件夾下。二、選擇結(jié)構(gòu)12．請參考如圖4-所8示程序的運行結(jié)果，新建一個工程，完成“健康稱”程序的設(shè)計。具體要求如下：（1）窗體的標題為“健康稱”，固定邊框。（）窗體的左邊有兩個標簽， 的標題為“身高”、 的標題為“體重”它們的旁邊分別有兩個文本框， 用于輸入身高、 用于輸入體重；在文本框的右邊有兩個標簽， 的標題為“m 的標題為“”。（3）將兩個文本框文字對齊方式均設(shè)置為右對齊，最多接受3個字符。（4）兩個文本框均不接受非數(shù)字鍵。（）單擊“健康狀況”按鈕Ca根據(jù)計算公式將相應(yīng)的提示信息顯示在標簽中。計算公式為：標準體重=身高-10；5體重高于標準體重*1.為1偏胖，提示“偏胖，注意節(jié)食”；體重低于標準體重*0.為9偏瘦，提示“偏瘦，增加營養(yǎng)”；其他為正常，提示“正常，繼續(xù)保持”。FrivateSuhCumm：±iLdl_C1ickUDimEhengauAsIriteger.,tizhungAsIritegerDimbi：±uzhixn%,shuuhujEhenggao=V：dl(Textl.Text)tizhong=Vai(Text2.Text)biaoiIlijil=Ehenggau-105IftizhunK》bi：±oeIliixl*1.1ThenShuchu="偏胖」注意節(jié)食"ElselftizhorLE<hiaozKiitl:*:0.9Thenshuchu="偏瘦』均加營養(yǎng)"E1Jhuchu="正常J繼箜保持〃EndIfLabel5.Caption=shuchuEndSubFrivathSuhTE*tl_ChangEQIfIeNuitieric(Tex11)-Fai”ThenTextlEndSubFrivathSuhTE*t2_ChangEQIfIeNuitieric(Text2)-Fai”ThenText2EndSub最后將工程文件、窗體文件分別以lx4-1.vbp、lx4-1.frm為文件名保存在D:\EX文件夾下?！鼋】捣Q13.編寫模擬袖珍計算器的程序，運行界面如圖4-9所示。要求如下⑴輸入兩個操作數(shù)和一個四則運算操作符，根據(jù)操作符決定所做的運算。⑵輸入的數(shù)據(jù)進行合法檢驗，當輸入出錯時，調(diào)用MsgBox()提示?？诳趖iimExplicitFrivateSubCommandl_C1ick(..)Dimx!,v!x=Vai(Textl)y=V：il(Text2：：lSelectCaseTrim(Text3')CaseText4=x+yiTiT -L-ase-Text4=x-yCaseText4=x*yCaseIfy=0Then正磔口乂“除數(shù)不能為0!TextZ.SetFuiZUEText4=ElseText4=x/7EndI￡EndSeleiztEndSubFrivateSubCommandS」二工iukUEnd -EndSub最后將工程文件、窗體文件分別以lx4-2.vbp、lx4-2.frm為文件名保存在D:\EX文件夾下。三、循環(huán)結(jié)構(gòu)下。三、循環(huán)結(jié)構(gòu)輸入任意一個整數(shù)，求到之間所有偶數(shù)和；可參考課本 頁利用文本框來實現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-1.vbp、XH4-1.frm為文件名保存在D:\EX文件夾下。輸入任意一個整數(shù)，計算階乘；！ 可參考課本 頁利用文本框來實現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-2.vbp、XH4-2.frm為文件名保存在D:\EX文件夾下。輸入任意一個整數(shù)，輸出 … 的計算結(jié)果；可參考課本頁利用文本框來實現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-3.vbp、XH4-3.frm為文件名保存在D:\EX文件夾下。輸入任意一個整數(shù)，輸出以內(nèi)的倍數(shù)之和（即……）；可參考課本頁利用文本框來實現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-4.vbp、XH4-4.frm為文件名保存在D:\EX文件夾下。輸入任意一個整數(shù)，輸出XXX^X的計算結(jié)果；可參考課本頁利用文本框來實現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-5.vbp、XH4-5.frm為文件名保存在D:\EX文件夾下。輸入任意一個整數(shù)，輸出以內(nèi)的所有的倍數(shù)的積；可參考課本頁利用文本框來實現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-6.vbp、XH4-6.frm為文件名保存在D:\EX文件夾下。輸入任意一個整數(shù)，輸出C.’…C.’…Ln-的計算結(jié)果；可參考課本頁3）利用文本框來實現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-7.vbp、XH4-7.frm為文件名保存在D:\EX文件夾下。輸入任意一個整數(shù)，輸出 ?「…的累加和；可參考課本 頁和課本 頁利用文本框來實現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-8.vbp、

XH4-8.frm為文件名保存在D:\EX文件夾下。FrivateSubCommandl_C1ick0Dimi瑞e%,p%,n%-E=0p二1n=Vai(Textl.Text)Fori=1Tonp=p*ie=e+pNextText2.Text=wEndSub編程求出 之內(nèi)的全部素數(shù)；可參考課本 頁）最后將工程文件、窗體文件分別以XH4-9.vbp、XH4-9.frm為文件名保存在D:\EX文件夾下。編寫程序打印如下九九乘法表（使用雙重循環(huán)實現(xiàn)）?？蓞⒖颊n本頁最后將工程文件、窗體文件分別以XH4-10.vbp、XH4-10.frm為文件名保存在D:\EX文件夾下。XXXXX X24編.一程序，顯示所有的水仙花數(shù)，如下圖。所謂水仙花數(shù)，是指一個3位數(shù)，其各位數(shù)字立方和等于該數(shù)字本身。例如，1533+=351+33。最后將工程文件、窗體文件分別以XH4-11.vbp、XH4-11.frm為文件名保存在D:\EX文件夾下。

□?pti口itEx.liuitFrivateSubC口mmandl_C1ick()Dima瑞b&c%Fori=100To999a=工nt(i/100)b= -a*100)/10)c=i-a*100-b*10工fi=a"3+b"3+c"3ThenPrinti,NextEndSub25.我國古代數(shù)學(xué)家張丘建在“算經(jīng)”里提出一個世界數(shù)學(xué)史上有名的百雞百元問題：雞翁一，值錢五；雞母一，值錢三;雞雛三，值錢一。百元買百雞，問雞翁、雞母、雞雛各幾何?意思是：用10元0錢買10只0雞，公雞5元一只，母雞3元一只，小雞1元3只；10只雞中必須包括雞翁、雞母和雞雛。自行設(shè)計界面并在圖形框中輸出百雞百元的幾種解。最后將工程文件、窗體文件分別以XH4-12.vbp、XH4-12.frm為文件名保存在D:\EX文件夾下。提示：按題意列出方程組，并己知雞翁不能超過19只，雞母不能超過32只。123PSIS481218114123PSIS481218114788184求解BSSi退出口Dti口nFrivateSiibC口mmari.d.1_C1ickI.)Dimi%,i%,k%,n%Ficturel.PrintTab?);"公雞";Tab(13);"母雞";Tab(18);"小雞"Fori=1ToI'dFori=1To32k=1LILI-i-iIfi+5+j*3+k/3=lULiThen口二n+iFicturel.PrintTab(1);“解"也nSt"：";Tab(8);i;Tab(13);i;Tab(18);kEndIf -NextjNextiEnd.MubPrivateSubCtmm：”Ld2_C1ic!kOEnd "EndSub第5章.編寫程序，將隨機產(chǎn)生的兩位數(shù)的一維數(shù)組A(10)中的元素向后移動一個位置，最后一個元素移到第一個元素的位置上。最后將工程文件、窗體文件分別以lx6-2.vbp、lx6-2.frm為文件名保存在D:\EX文件夾下。

a jBB'a jBB''原數(shù)組為:25-5-44IT~24~-69-94蔗—8171現(xiàn)數(shù)祖為：712539443324699486SIPrivateSubPrivateSubForm_ClickDima(.10.)AsInteger,temp%F-mireFori=1To10a(i：l二工nt?？诳?Md)Ifi=1ThenFrint"原數(shù)蛆為Printa(i)：*】NextiPrinttemp=a(10)Fori=9To1Step-1a(i+1')=a(i')Nextia(.1J-tempFori=1To10Ifi=1ThenPrint"現(xiàn)數(shù)組為Printa(i；l;"\NextiEndSub.輸入某小組5個同學(xué)的成績，計算總分和平均分（取小數(shù)后一位）。本例利用InputBox函數(shù)來輸入成績，輸入完畢后經(jīng)過計算，再采用Print直接在窗體上輸出結(jié)果。最后將工程文件、窗體文件分別以SZ5-1.vbp、SZ5-1.frm為文件名保存在D:\EX文件夾下。FrivateSubForm_ClickFrivateSubForm_ClickI。Dimd(.5.)AsIritegHrDimiAsInteser,t口taiAsSiri^le.averaEeAsSinticFori二1To5 輸入成豉 - .d(i)=YalClnputEw】請輸入第"曲i青"個學(xué)生的成績:"輸入成績"))Nexti=0Fori二1To5 '計算總苛tut：±l二tut：±l+d(i)Nextiaverage=t口tai./5Print"總分:";totalPrint"平均分：";Format(average^"##.0")EndSub28.輸入10名學(xué)生的成績，求出最高分和最低分FofmILabell刃日匕家刁工：煙也array也不干刖，、;”「刀‘奴；中E"五伙F^5^^Wflmand2）后，開始查找最高分和最低分，找到后顯示在標簽Labell上。最后將工程文件、窗體文件分別以SZ5-2.vbp、

SZ5-2.frm為文件名保存在D:\EX文件夾下。OptioilBase1工limm?二口r2他VariantPrivateSubFurmLoad(..JLabell.Caption="單擊"查找”按鈕開蛤查找最高分和量低分1Tscore=Array(89,96,81,67,79,90,63,85,95,83)End.Sub FrivateSubcummandl_click(..'IDimmaxAsIriteger.,minAsIntegerm32i-ecore(1) .謾定初值min=ecore[1)Fori=2To10Ifm：ax(ecore(i')Then '我;最高二分,max=ECure(.i.)EndIfItmin),scure(i')Theri .找星低二分miil=ei：ore(.i.)EndIfNexti,Chr(⑶起換行作用Latiell.Captiun二"最高二分："+Str[max)+_Chr(13)+"最便缶："+Strain)EndSub.建立一個文本框控件數(shù)組Textl和一個文本框Text2,在控件數(shù)組Textl中輸入一組數(shù)后，把累加值存放在Text2。最后將工程文件、窗體文件分別以SZ5-4.vbp、SZ5-4.frm為文件名保存在D:\EX文件夾下。FrivateSubCummandl_C1ick(..)E二UFori=0To3名二s+Vdll'Tex11(.i.).Text'INextiTextS.Text二eEndSub.按下圖設(shè)計窗體，其中一組（共3個）單選按鈕構(gòu)成控件數(shù)組，要求當單擊某個單選按鈕時，能夠改變文本框中文字的大小。最后將工程文件、窗體文件分別以SZ5-5.vbp、SZ5-5.frm為文件名保存在D:\EX文件夾下。

「控件〕「控件〕數(shù)組FrivateSubFurm_Luad(..JOptionl(0),Value=True '選定第一個單選按鈕Textl.FontSize=12 ，設(shè)定交本框中的字號End.Sub FrivateSubOptionl_C1ickI'lridex^AsIriteger.'ISelectCaseIndex 1墓透充自劫良回工ndexl直Case0Textl.FontSire=12Case1Textl.FuntSile=20Case￡Textl.FuntSire=28EndSeleiitEndSub第7章31.在窗體上放置三個復(fù)選框，標題依次為“旅游”、“體育”、“音樂”，另有一個命令按鈕，標題為“興趣”。程序運行后，選中復(fù)選框，再點擊命令按鈕，則在窗體上顯示相應(yīng)的的信息。運行界面如圖1-012所示。最后將窗體文件、工程文件分別以LX10-1、為文件名保存在文件夾下。圖10-12復(fù)選框運行界面圖10-12復(fù)選框運行界面UptionExplicit[Iim溫FrivateSubCummandl_C1ickUI￡Checkl.V：dlue=1Thena=a&“旅游"EndIfI￡Check2.Value=1Thena=aft"體育“EndIfI￡Checkl.Value=1Thena=aft"音樂"EndIfFrint"我的興趣是"&aEndSub32.設(shè)置如圖10-13所示界面所示的程序，要求程序運行時選中組合框中的某一項，將彈出如下對話框加以說明。最后將窗體文件、工程文件分別以LX10-2.frm、LX10-2.vbp為文件名保存在D:\EX文件夾下。圖10-13組合框運行界面PrivateSubCumboljZlick0Me磔0*“我的興趣愛好是“電匚皿b口1.Tex",“興趣愛好”EndEhlb*￡:日鏟砂FrivateSubF口rm_L。ad(..)Combu1.Add!tem"eCombul.AddItem"fCombul.Adilltem"生Combol.Additem“方匚口mb口1.Add!tem，V*￡:日鏟砂EndSub33.在窗體上畫一個名稱為HS1的水平滾動條(min=0,max=100)和三個名稱分別為C1,C2,C3,標題分別為“左端”，“居中”，“右端”的命令按鈕。編程是的程序運行后，單擊C1,則滾動框位于滾動條的最左端；單擊C2,則滾動框位于滾動條的中間處；單擊C3,則滾動框位于滾動條的最右端，運行界面如圖10-14所示。最后將窗體文件、工程文件分別以LX10-3.frm、LX10-3.vbp為文件名保存在D:\EX文件夾下。

VIVI圖10-14滾動條運行界面PrivateSubC1_C1ick()HS1.Value="0EndMubPrivateSubC2_C1ick()HS.1.V：dlue="50EndSubPrivateSubC3_C1ickHS.1.V：dlue="100EndSub34.列表框舉例。窗體上添加二個列表框、二個命令按鈕，設(shè)置完屬性后的界面如圖10-16所示。要求:（1）選中列表框中的某一條目，單擊命令按鈕，將其移動到另一列表框中。（2）雙擊列表框中的某一條目，直接將其移動到另一列表框中。完成運行界面所達到的要求，最后將窗體文件、工程文件分別以LX10-6.frm、LX10-6.vbp為文件名保存在D:\EX文件夾下。二河九五四弘江毛壬李A(yù)s-Ft圖10-16題目6二河九五四弘江毛壬李A(yù)s-Ft圖10-16題目6的設(shè)計界面（其中右圖為題目6的運行結(jié)果）口三四五六七河九ad張李王越孫江毛口三四五六七河九ad張李王越孫江毛DM""":::="LEndPrivateSubCommandl_Click(..) '"按鈕的單擊事件ListE.AdiiltemListl.TextListl.RemuveltemListl.List工ndE*EndSubFrivateSub匚口mmand2_l二］.iuk。 ’'C按鈕的單擊事件Listl.AdiJItHmList2.TextList2.RemuTeltemList2.