中職電子與信息：VB技能模塊模擬考題1

VB技能模塊模擬考題1.下列VB程序段實(shí)現(xiàn)如下功能：?jiǎn)螕舸绑w后輸出S的計(jì)算結(jié)果(N從鍵盤上輸入)。請(qǐng)根據(jù)要求,將程序補(bǔ)充完整。S的值用消息框顯示操作要求：((1)要求將l.txt文件復(fù)制到窗體單擊事件中，完成(1)、(2)、(3)、(4)的填空；11111」1,=1一7+3一齊+豆一宗+.“+(-1)滔DimsAsSingle,N%,F%,t!S=O:t=l:f=lN二Fori=1toS=s+F*TT二F=-fnexti.VB程序功能：是將十進(jìn)制轉(zhuǎn)化成十六進(jìn)制的數(shù)。如下圖2所示，例：在文本框1輸入2015,單擊“轉(zhuǎn)換”按鈕，在文本框2顯示結(jié)果：7DF。根據(jù)題意將程序補(bǔ)充完整。操作要求：(1)創(chuàng)建如圖2的界面，設(shè)置相應(yīng)的屬性；(2)將2.TXT文件復(fù)制到“轉(zhuǎn)換”按鈕事件中，完成(1)(2)(3)(4)(5)的填空；Dimaa=Array(0,1,2,3,4,5,6,7,8,9,”A「B?！癊-F”)Dimx%,y$,k%,n%x=Val(Textl.Text)DoUntilk=K表示被16整除的余數(shù)x='X表示被16整除的商數(shù)y=LoopText2.Text=3.用VB循環(huán)結(jié)構(gòu)語句編制一個(gè)程序，應(yīng)程序的功能為：當(dāng)用戶單擊“圖形輸出”按鈕（Commandl）,在窗口輸出由字符“*”組成的如第3題圖所示的圖形；單擊“清除”（Commadn2）按鈕，將窗體上的圖形清除。操作要求：（1）完成“圖形輸出”按鈕的事件（注：用一個(gè)二重循環(huán)結(jié)構(gòu)完成）模板格式是：Fori=toPrinttab（）;Forj=to打印內(nèi)容；NextjPrintNextiPrivateSubCommandl_Click()Fori=-5To5IfThenPrintTab();ElsePrintTab(16+Abs(i));EndIfForj=1ToIfi=0ThenPrintElsePrintEndIfNextjPrintNextiEndSubPrivateSubCommand2_Click()CisEndSub4.某職校評(píng)比市優(yōu)秀學(xué)生，現(xiàn)在有10位候選人，進(jìn)行網(wǎng)上模擬投票，每位學(xué)生只能選一號(hào)碼，每位候選人的號(hào)碼分別是1?10,號(hào)碼與姓名如下表：號(hào)碼12345姓名李一北張二南王三西陳四東謝一東號(hào)碼678910姓名呂開心李高興董麗麗釗?凱劉軍編一個(gè)程序要求單擊“排序”按鈕，從鍵盤輸入選票，直到輸入-1時(shí)程序結(jié)束，并統(tǒng)計(jì)10位候選人的得票情況，按選票多少進(jìn)行排序結(jié)果居中顯示在文本框。如第4題圖所示。操作要求：（25分）（1）（6分）創(chuàng)建如圖4的界面，設(shè)置相應(yīng)的屬性;（17分）完成“排序”事件的代碼（2分）保存工程文件4.vbp和窗體文件4.frm.?選票排序十位學(xué)生的選票排序

李一北的票數(shù)12

董麗麗的票數(shù)7

呂開心的票數(shù)6

王三西的票數(shù)5

陳四東的票數(shù)2

謝一東的票數(shù)2

李高興的票數(shù)2鐘凱的票數(shù)2

張二南的票數(shù)1劉軍的票數(shù)1排序PrivateSubCommand1_Click()定義數(shù)組函數(shù)Dimaa二Array(，”李一北“，“張二南“，“王三西“，“陳四東“，“謝一東“，“呂開心“，“李高興“，“董麗麗”,“鐘凱“，“劉軍”)Dimx%(lTo10)'統(tǒng)計(jì)相應(yīng)號(hào)碼的選票Dimn%'n表示輸入的號(hào)碼n=Val(InputBox("請(qǐng)輸入選票的號(hào)碼”))DoUntilx(n)=Loop'排序Fori=1To9Forj=1ToIfThent二x(j)：x(j)=X。+1)：t二a(j)：a(j)=a(j+1):a(j+1)=