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

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

2、 If x<y Then a=15a=-15Print aEnd if(3) VB窗體設(shè)計器的主要功能是。A 建立用戶界面B 編寫源程序代碼C 畫圖D顯示文字(4)文本框控件的值是 屬性。A Caption B ValueC IndexD Text(5)雙擊窗體中的對象后，VB將顯示的窗口是 oA 工具箱B “工程”窗口C “代碼”窗口 D “屬性”窗口(6)下列程序段的執(zhí)行結(jié)果是。X=int (Rnd()+4)Select case xCase 5Print“優(yōu)秀”Case 4Print“良好”Case 3Print”通過”Case elsePrint”不通過”End selectA優(yōu)

3、秀B良好C通過D不通過(7)下列哪個不是窗體的屬性。A Caption B TextC ControlBox D BorderStyle(8)設(shè)組合框Combol中有3個項目，則以下能刪除最后一項的語句是A Combo1.RemoveItem Text B Combo1.RemoveItem 2C Combo1.RemoveItem 3 D Combo1.RemoveItemCombo1.Listcount(9)窗體BorderStyle 屬性的功能是。A設(shè)置窗體的邊框大小B設(shè)置窗體的邊框樣式，是否顯示標(biāo)題欄，是否可以調(diào)整大小等C決定是否顯示窗體的控制菜單圖標(biāo)與狀態(tài)控制按鈕D決定窗體的最大化或

4、最小化按鈕是否有效(10)下列可作為VB的變量名的是。A c*Del B AlphaC 4a D print(11)要把一個命令按鈕設(shè)置成無效，應(yīng)設(shè)置其哪一屬性值。A) VisibleB) EnabledC) DefaultD) Cancel(12)下列不能作為VB所允許的常量是。A &O148 B “ china ”C 3E2 D &H2a(13) 是指控件本身所具有的、反映該控件功能的部函數(shù)或過程。A方法B事件C屬性D控件(14)表達(dá)式33Mod 173*2 的值是。A 10B 1C 2D 3(15)表達(dá)式 int (123.4567*100+0.5)/100 的值是。A

5、123.47 B 123.45C 123.461 D 123(16)不屬于VB6集成開發(fā)環(huán)境工作狀態(tài)的是。A “設(shè)計”狀態(tài) B 編寫代碼狀態(tài)C “運(yùn)行狀態(tài)”D “中斷狀態(tài)”(17)工程文件的擴(kuò)展名是 oA frmB vbpC basD frx(18)提供控件的窗口是。A “對象”窗口 B “立即”窗口C 工具箱D工具欄( 19)變量x=1234.5678 , 要保留兩位小數(shù)四舍五入輸出，如輸出結(jié)果為1235.57,正確的方法是。A Print Format(x, ” #.#” ) B Print Format( ” #.#” ,x)C Print Format(x, ” 00000.00” )

6、 D Print Format( ” 00000.00” ,x)( 20) 要顯示一個對話框，提示用戶輸入一個數(shù)據(jù)，并且對話框中要顯示的提示信息位”請輸入一個整數(shù)”,正確的是 0A Word=MsgBox(“請輸入一個整數(shù)：”，”輸入”)B Word=MsgBox( ”輸入”，“請輸入一個整數(shù)：”)C Word=InputBox( “請輸入一個整數(shù)：”，”輸入”)D Word=InputgBox( ”輸入”，“請輸入一個整數(shù)：”)(21)用于字符串連接的運(yùn)算符是 oA & B +C And D A 、 B 都可以(22)以下?lián)碛蠵rint方法的對象是。A 窗體 B 圖片框C 打印機(jī)D

7、以上都有(23)設(shè)a=2, b=3, c=4, d=5,下列表達(dá)式的值是。NOT a<=c OR 4*c=bA2 AND b<>a+cA -1 B 1C True D False(24)代碼 Print “test " &" ="，3*6 顯示的結(jié)果為。A test= 18 B test=18C test = 18 D test =18(25)在VB中，通過改變列表框 屬性的值，可以為列表框添加項目。A List B(名稱)C Caption D Text(26)在VB中，復(fù)選框(Check)的Value值有3種，分別是。A -1， 0，

8、 1 B 0, 1, 2C 1， 2， 3 D True, False, 0(27)下列程序段的執(zhí)行結(jié)果是 oX=5Y=-20If not x>0 then x=y-3 else y=x+3Print x-y; y-x A -3 3 B 5 -8C 3 -3 D 25 -25（28）要把Print方法輸出的文字顯示為粗體字，應(yīng)該設(shè)置屬性。A FontBold B FontNameC FontSize D FontItalic（29）設(shè)a=2, b=3, c=4, d=5,下列表達(dá)式的值是。3>2*b OR a=c AND b<>a+cA 1 B TrueC False

9、D -1（ 30） ）如果要在代碼窗口將表單Form1 的 Caption 屬性設(shè)置為“時鐘”，正確的書寫形式是。A Form.Caption “時鐘”B Form.Caption = “時鐘”C .Caption = “時鐘”D Form.Caption（ “時鐘” ）二、判斷題（1 分 / 題，共 10 分，對用T 表示，錯用F 表示）（）1、設(shè)置屬性的語句格式為：”對象名.屬性名=屬性值”。（） 2、在窗體或模塊文件中聲明為Private 的過程，只能被本窗體或模塊中的過程所調(diào)用。（）3、V B的賦值語句只能給變量賦值。（）4、在VB中，字符型常量應(yīng)使用"#"號將其括

10、起來。（）5、窗體大小只能通過鼠標(biāo)拖動窗體邊框來設(shè)置。（）6、VB的Double類型數(shù)據(jù)，可以精確表示其數(shù)值圍的所有實數(shù)。（）7、若用戶在鍵盤上按下一個鍵，則會產(chǎn)生一個Click 事件。（）8、羅馬數(shù)制是進(jìn)位計數(shù)制。（）9、事件過程可以由用戶事件觸發(fā)執(zhí)行，也可以由其他過程所調(diào)用。（） 10、 Do While 條件 Loop 和 DO Until Not 條件 Loop 兩條循環(huán)語句，實現(xiàn)循環(huán)控制是等效的。三、讀程序并填空題（每空2 分，共 10 分）1.j1=10j2=30If j1<j2 Then Print j2; j1運(yùn)行上程序段后，現(xiàn)實的結(jié)果是A 10 B 30C 10 30

11、D 30 102.下列程序段的執(zhí)行結(jié)果是, _X=5Y=-20If not x>0 then x=y-3 else y=x+3Print x-y; y-x3.Private Sub Form_Click( )Dim A as integerA=200If A< =100 ThenA=A*10If A>1000 ThenA=A 10ElseA=A 10EndifElseA=A / 10If A=10 ThenA=A 10ElseA=A 10EndifEndifMsgbox Str(A)End Sub運(yùn)行程序，單擊窗體Forml,消息框中顯示： 4.Function F(a As

12、 Integer)Dim b As IntegerStatic c As Integerb = b + 2c = c + 2F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = 4For i = 1 To 3Print F(a)Next iEnd Sub寫出程序運(yùn)行時，單擊命令按鈕在窗體上的輸出結(jié)果。5.Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 0c = 1For j = 1 To 6If j >

13、 4 ThenExit ForElsek = k + 1End IfNext jPrint c, kEnd Sub寫出程序運(yùn)行時單擊窗體后，c,k 的值分別是：四、編寫程序（每題10 分，共 20 分）1. 購物優(yōu)惠程序。某商場為了加速促成商品流通，采用購物打折的優(yōu)惠辦法，每位顧客一次購物（1）在 200 元以上者，按9.5 折優(yōu)惠； （ 2）在300元以上者，按 9 折優(yōu)惠； （ 3） 400 元以上者，按8 折優(yōu)惠； （ 4） 600 元以上者按7 折優(yōu)惠。在窗體上添加兩個文本框和一個命令按鈕，要求在Text1 中輸入購物商品總金額，單擊命令按鈕，在Text2 中輸出優(yōu)惠后的價格。程序運(yùn)行

14、結(jié)果如圖1 所示。圖 1 程序運(yùn)行效果2.實現(xiàn)課對所選擇課程進(jìn)行統(tǒng)計現(xiàn)實，下如圖2 所示：a F5m2 ° latfM課程Lt:語言|7 VB口單片機(jī)i最后牖認(rèn)I廠電路貨折圖2程序運(yùn)行效果答案、選擇題（每題2分，共60分）12345678910Cc 1AdCBBBBB11121314151617181920BABBAABCAB2122 2324252627282930DADADBAABC、判斷題（1分/題，共10分）12345678910TTTFFTFFTT三、讀程序并填空題（每空 1分，共10分）1. 30 102. -3 33. 304. 810125. 54四、編寫程序（每題

15、10分，共20分）1. Private Sub Command1_Click（）（ 1 分）Dim x As Single, y As Singlex = Val（Text1.Text） （ 1 分）If x < 200 Then（ 2 分）y = xElseIf x < 300 Then（ 2分）y = 9.5 * xElseIf x < 400 Then（ 2分）y = 0.9 * xElseIf x < 600 Then（ 2分）y = 0.8 * xElsey = 0.7 * xEnd IfEnd IfEnd IfEnd IfText2.Text = y2.Di

16、m i As IntegerPrivate Sub Check1_Click() ( 2 分)If Check1.Value = 1 Theni = i + 1End IfIf Check1.Value = False Theni = i - 1End IfEnd SubPrivate Sub Check2_Click() ( 2 分)If Check2.Value = 1 Theni = i + 1End IfIf Check2.Value = False Theni = i - 1End IfEnd SubPrivate Sub Check3_Click() ( 2 分)If Check3.Value = 1 Theni = i + 1If Check3.Value = False Theni = i - 1End IfEnd SubPrivate Sub Check4_Click() ( 2 分)If Che