《VB程序設(shè)計(jì)》期末考試試卷(A)附答案

1、WOR/式* 學(xué)院2009-2010學(xué)年第二學(xué)期« VB程序設(shè)計(jì)期末考試試卷(A)附答案一、選擇題(2分/題，共60分)(1)要設(shè)置窗體上各控件的屬性，可以在 中進(jìn)行。A “窗體布局”窗口 B ”工程資源管理器”窗口C “屬性”窗口 D “對(duì)象”窗口(2)下面程序段 能夠正確實(shí)現(xiàn)目的：如果 x<y,則a=15，否則a=-15AIfx<yThena=15a=-15PrintaBifx<yThena=15:Printaa=-15:PrintaCIfx<yThena=15:PrintaElseA=-15:PrintaEndifDIfx<yThena=15a=-

2、15PrintaEndif(3) VB窗體設(shè)計(jì)器的主要功能是 oA建立用戶界面B編寫源程序代碼C畫圖D顯示文字(4)文本框控件的值是 屬性。ACaptionBValueCIndexDText(5)雙擊窗體中的對(duì)象后，VB將顯示的窗口是。A工具箱B “工程”窗口C “代碼”窗口 D “屬性”窗口(6)下列程序段的執(zhí)行結(jié)果是。X=int(Rnd()+4)SelectcasexCase5Print “優(yōu)秀”Case4Print “良好”Case3Print ” 通過(guò)”CaseelsePrint ”不通過(guò)”EndselectA優(yōu)秀B良好C通過(guò)D不通過(guò)(7)下列哪個(gè)不是窗體的屬性。ACaptionBTe

3、xtCControlBoxDBorderStyle(8)設(shè)組合框Combo件有3個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語(yǔ)句是ACombo1.RemoveItemTextBCombo1.RemoveItem2CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount(9)窗體BorderStyle 屬性的功能是。A設(shè)置窗體的邊框大小B設(shè)置窗體的邊框樣式，是否顯示標(biāo)題欄，是否可以調(diào)整大小等C決定是否顯示窗體的控制菜單圖標(biāo)與狀態(tài)控制按鈕D決定窗體的最大化或最小化按鈕是否有效(10)下列可作為 VB的變量名的是 oAc*DelBAlphaC4aDprint(11

4、)要把一個(gè)命令按鈕設(shè)置成無(wú)效，應(yīng)設(shè)置其哪一屬性值。A VisibleB ) EnabledC) DefaultD ) Cancel(12)下列不能作為 VB所允許的常量是 oA&O148B“china ”C3E2D&H2a(13) 是指控件本身所具有的、反映該控件功能的內(nèi)部函數(shù)或過(guò)程。A方法B事件C屬性D控件(14)表達(dá)式33Mod173*2的值是。A10B1C2D3(15)表達(dá)式 int(123.4567*100+0.5)/100 的值是。A123.47B123.45C123.461D123(16)不屬于VB6集成開發(fā)環(huán)境工作狀態(tài)的是。A “設(shè)計(jì)”狀態(tài)B編寫代碼狀態(tài)C “運(yùn)行

5、犬態(tài)” D “中斷狀態(tài)”(17)工程文件的擴(kuò)展名是 oAfrmBvbpCbasDfrx(18)提供控件的窗口是。A “對(duì)象”窗口 B “立即”窗口C工具箱D工具欄(19)變量x=1234.5678,要保留兩位小數(shù)四舍五入輸由，如輸生結(jié)果為 1235.57,正確的方法是。APrintFormat(x, " #.#")BPrintFormat( " #.#" ,x) CPrintFormat(x, ” 00000.00 " )DPrintFormat( ” 00000.00 ” ,x)(20)要顯示一個(gè)對(duì)話框，提示用戶輸入一個(gè)數(shù)據(jù)，并且對(duì)話框中要顯

6、示的提 示信息位“請(qǐng)輸入一個(gè)整數(shù)”，正確的是。AWord=MsgBox( “請(qǐng)輸入一個(gè)整數(shù)："，"輸入” )BWord=MsgBox輸入”，“請(qǐng)輸入一個(gè)整數(shù)：”)CWord=InputBox( “請(qǐng)輸入一個(gè)整數(shù)："，"輸入” )DWord=InputgBox( "輸入”，“請(qǐng)輸入一個(gè)整數(shù)：”)(21)用于字符串連接的運(yùn)算符是。A&B+CAndDA B都可以(22)以下?lián)碛蠵rint方法的對(duì)象是。A窗體B圖片框C打印機(jī)D以上都有(23)設(shè)a=2,b=3,c=4,d=5,下列表達(dá)式的值是。NOTa<=cOR43bA2ANDb<&

7、gt;a+cA-1B1CTrueDFalse(24)代碼Print “ test " & = ,3*6顯示的結(jié)果為。Atest=18Btest=18Ctest=18Dtest=18(25)在VB中，通過(guò)改變列表框 屬性的值，可以為列表框添加項(xiàng)目。AListB (名稱)CCaptionDText(26)在VB中，復(fù)選框(Check)的Value值有3種，分別是。A-1 , 0, 1B0,1,2C1, 2, 3DTrue,False,0(27)下列程序段的執(zhí)行結(jié)果是。X=5Y=-20Ifnotx>0thenx=y-3elsey=x+3Printx-y;y-x A-33B5-

8、8 C3-3D25-25 (28)要把Print方法輸由的文字顯示為粗體字，應(yīng)該設(shè)置屬性。AFontBoldBFontNameCFontSizeDFontItalic(29)設(shè)a=2,b=3,c=4,d=5,下列表達(dá)式的值是。3>2*bORa=cANDb<>a+cA1BTrueCFalseD-1(30)如果要在代碼窗口內(nèi)將表單 Form1的Caption屬性設(shè)置為“時(shí)鐘”，正 確的書寫形式是。AForm.Caption “時(shí)鐘” BForm.Caption= "時(shí)鐘”C.Caption= "時(shí)鐘” DForm.Caption( “時(shí)鐘”)二、判斷題(1分/

9、題，共10分，對(duì)用T表示，錯(cuò)用F表示)()1、設(shè)置屬性的語(yǔ)句格式為：”對(duì)象名.屬性名=屬性值”。()2、在窗體或模塊文件中聲明為Private的過(guò)程，只能被本窗體或模塊中的過(guò)程所調(diào)用。()3、VB的賦值語(yǔ)句只能給變量賦值。()4、在VB中，字符型常量應(yīng)使用#"號(hào)將其括起來(lái)。()5、窗體大小只能通過(guò)鼠標(biāo)拖動(dòng)窗體邊框來(lái)設(shè)置。()6、VB的Double類型數(shù)據(jù)，可以精確表示其數(shù)值范圍內(nèi)的所有實(shí)數(shù)。()7、若用戶在鍵盤上按下一個(gè)鍵，則會(huì)產(chǎn)生一個(gè)Click事件。()8、羅馬數(shù)制是進(jìn)位計(jì)數(shù)制。()9、事件過(guò)程可以由用戶事件觸發(fā)執(zhí)行，也可以由其他過(guò)程所調(diào)用。()10、DoWhile 條件.Loop

10、和 DOUntilNot 條件.Loop兩條循環(huán)語(yǔ)句，實(shí)現(xiàn)循環(huán)控制是等效的。三、讀程序并填空題(每空 2分，共10分)j1=10j2=30Ifj1<j2ThenPrintj2;j1運(yùn)行上程序段后，現(xiàn)實(shí)的結(jié)果是 A10B30C1030D30101235.58下列程序段的執(zhí)行結(jié)果是,X=5Y=-20Ifnotx>0thenx=y-3elsey=x+3Printx-y;y-x1235.59PrivateSubForm_Click()DimAasintegerA=200IfA< = 100ThenA=A*10IfA>1000ThenA=A- 10ElseA=A+ 10Endif

11、ElseA=A/10IfA=10ThenA=A- 10ElseA=A+- 10EndifEndifMsgboxStr(A)EndSub運(yùn)行程序，單擊窗體 Forml,消息框中顯示：1235.60FunctionF(aAsInteger)DimbAsIntegerStaticcAsIntegerb=b+2c=c+2F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=4Fori=1To3PrintF(a)NextiEndSub寫生程序運(yùn)行時(shí)，單擊命令按鈕在窗體上的輸生結(jié)果。1235.61PrivateSubForm_Click()D

12、imcAsInteger,jAsInteger,kAsIntegerk=0c=1Forj=1To6Ifj>4Thenc=c+4 ExitFor Elsek=k+1EndIfNextjPrintc,k EndSub 寫生程序運(yùn)行時(shí)單擊窗體后，c,k的值分別是：四、編寫程序（每題 10分，共20分）1.購(gòu)物優(yōu)惠程序。某商場(chǎng)為了加速促成商品流通，采用購(gòu)物打折的優(yōu)惠辦法， 每位顧客一次購(gòu)物（1）在200元以上者，按9.5折優(yōu)惠；（2）在300元以上者, 按9折優(yōu)惠；（3） 400元以上者，按8折優(yōu)惠；（4） 600元以上者按7折優(yōu)惠。 在窗體上添加兩個(gè)文本框和一個(gè)命令按鈕，要求在Text1中輸入

13、購(gòu)物商品總金額，單擊命令按鈕，在 Text2中輸由優(yōu)惠后的價(jià)格。程序運(yùn)行結(jié)果如圖1所示。圖1程序運(yùn)行效果2.實(shí)現(xiàn)課對(duì)所選擇課程進(jìn)行統(tǒng)計(jì)現(xiàn)實(shí)，下如圖2所示：圖2程序運(yùn)行效果答案、選擇題（每題2分，共60分）二、判斷題（1分/題，共10分）12345678910tttfftFftt三、讀程序并填空題（每空 1分，共10分）1235.62 30101235.63 -331235.64 301235.65 810121235.66 54四、編寫程序（每題 10分，共20分）1235.67 PrivateSubCommand1_Click（） （ 1 分）DimxAsSingle,yAsSinglex=

14、Val（Text1.Text） （ 1 分）Ifx<200Then （2 分）y=xElseIfx<300Then （2 分）y=9.5*xElseIfx<400Then （ 2 分）y=0.9*xElseIfx<600Then （ 2 分）y=0.8*xElsey=0.7*xEndIfEndIfEndIfEndIfText2.Text=yEndSub專業(yè)資料整理WOR幅式1235.68DimiAsIntegerPrivateSubCheck1_Click() (2 分)IfCheck1.Value=1Theni=i+1EndIfIfCheck1.Value=FalseTheni=i-1EndIfEndSubPrivateSubCheck2_Click() (2 分)IfCheck2.Value=1Theni=i+1EndIfIfCheck2.Value=FalseTheni=i-1EndIfEndSubPrivateSubCheck3_Click() (2 分)IfCheck3.Value=1Theni=i+1EndIfIfCheck3.Value=FalseTheni=i-1EndIfEndSubPrivateSubCheck4_Click()