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

1、*學(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=-15。 A If x<y Then a=15 a=-15 Print a B if x<y Then a=15:Print a a=-15: Print a C If x<y Then a=15: Print a Else A=-15: Print a End if

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

3、 else Print”不通過” End select A 優(yōu)秀 B 良好 C 通過 D 不通過（7）下列哪個(gè)不是窗體的屬性。 A Caption B Text C ControlBox D BorderStyle（8）設(shè)組合框Combo1 中有 3 個(gè)項(xiàng)目,則以下能刪除最后一項(xiàng)的語(yǔ)句是。 A Combo1.RemoveItem Text B Combo1.RemoveItem 2 C Combo1.RemoveItem 3 D Combo1.RemoveItemCombo1.Listcount（9）窗體BorderStyle 屬性的功能是。 A 設(shè)置窗體的邊框大小 B 設(shè)置窗體的邊框樣式，是

4、否顯示標(biāo)題欄，是否可以調(diào)整大小等 C 決定是否顯示窗體的控制菜單圖標(biāo)與狀態(tài)控制按鈕 D 決定窗體的最大化或最小化按鈕是否有效（10）下列可作為VB 的變量名的是。 A c*Del B Alpha C 4a D print（11）要把一個(gè)命令按鈕設(shè)置成無效，應(yīng)設(shè)置其哪一屬性值。  A）Visible  B）Enabled   C）Default    D）Cancel （12） 下列不能作為VB 所允許的常量是。 A &O148 B “china” C 3E2 D &H2a（13）是指控件本

5、身所具有的、反映該控件功能的內(nèi)部函數(shù)或過程。 A 方法 B 事件 C 屬性 D 控件（14）表達(dá)式 33Mod 173*2 的值是。 A 10 B 1 C 2 D 3（15）表達(dá)式int (123.4567*100+0.5)/100的值是。 A 123.47 B 123.45 C 123.461 D 123（16）不屬于VB6 集成開發(fā)環(huán)境工作狀態(tài)的是。 A “設(shè)計(jì)”狀態(tài) B 編寫代碼狀態(tài) C “運(yùn)行狀態(tài)” D “中斷狀態(tài)” （17）工程文件的擴(kuò)展名是。 A frm B vbp C bas D frx （18）提供控件的窗口是。 A “對(duì)象”窗口 B “立即”窗口 C 工具箱 D 工具欄（19

6、）變量x=1234.5678 , 要保留兩位小數(shù)四舍五入輸出，如輸出結(jié)果為1235.57，正確的方法是。 A Print Format(x,”#.#”) B Print Format(”#.#”,x) C Print Format(x,”00000.00”) D Print Format(”00000.00”,x)（20）要顯示一個(gè)對(duì)話框，提示用戶輸入一個(gè)數(shù)據(jù)，并且對(duì)話框中要顯示的提示信息位“請(qǐng)輸入一個(gè)整數(shù)”，正確的是。 A Word=MsgBox(“請(qǐng)輸入一個(gè)整數(shù)：”，”輸入”) B Word=MsgBox(”輸入”，“請(qǐng)輸入一個(gè)整數(shù)：”) C Word=InputBox(“請(qǐng)輸入一個(gè)整數(shù)：

7、”，”輸入”) D Word=InputgBox(”輸入”，“請(qǐng)輸入一個(gè)整數(shù)：”)（21）用于字符串連接的運(yùn)算符是。 A & B + C And D A、B 都可以（22）以下?lián)碛?Print 方法的對(duì)象是。 A 窗體 B 圖片框 C 打印機(jī) D 以上都有（23）設(shè) a=2, b=3, c=4, d=5, 下列表達(dá)式的值是。 NOT a<=c OR 4*c=b2 AND b<>a+c A -1 B 1 C True D False（24）代碼 Print “test”&”=”,3*6顯示的結(jié)果為。 A test= 18 B test=18 C test = 1

8、8 D test =18（25）在 VB 中，通過改變列表框?qū)傩缘闹担梢詾榱斜砜蛱砑禹?xiàng)目。 A List B （名稱） C Caption D Text（26）在 VB 中，復(fù)選框（Check）的 Value 值有3種，分別是。 A -1，0，1 B 0, 1, 2 C 1，2，3 D True, False, 0（27）下列程序段的執(zhí)行結(jié)果是。 X=5 Y=-20 If not x>0 then x=y-3 else y=x+3 Print x-y; y-x A -3 3 B 5 -8 C 3 -3 D 25 -25(28)要把Print 方法輸出的文字顯示為粗體字，應(yīng)該設(shè)置屬性。

9、A FontBold B FontName C FontSize D FontItalic（29）設(shè) a=2, b=3, c=4, d=5, 下列表達(dá)式的值是。 3>2*b OR a=c AND b<>a+c A 1 B True C False D -1（30）如果要在代碼窗口內(nèi)將表單Form1 的Caption 屬性設(shè)置為“時(shí)鐘”，正確的書寫形式是。 A Form.Caption “時(shí)鐘” B Form.Caption = “時(shí)鐘” C .Caption = “時(shí)鐘” D Form.Caption(“時(shí)鐘”)二、判斷題（1分/題，共10分，對(duì)用T表示，錯(cuò)用F表示）（ ）1

10、、設(shè)置屬性的語(yǔ)句格式為：“對(duì)象名屬性名屬性值”。（）2、在窗體或模塊文件中聲明為Private的過程，只能被本窗體或模塊中的過程所調(diào)用。（）3、的賦值語(yǔ)句只能給變量賦值。（）4、在中，字符型常量應(yīng)使用號(hào)將其括起來。（）5、窗體大小只能通過鼠標(biāo)拖動(dòng)窗體邊框來設(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、事件過程可以由用戶事件觸發(fā)執(zhí)行，也可以由其他過程所調(diào)用。（）10、Do While條件.Loop和DO Until Not 條件.Loop 兩條循環(huán)語(yǔ)句，實(shí)現(xiàn)循環(huán)控

11、制是等效的。三、讀程序并填空題（每空2分，共10分）1. j1=10 j2=30 If j1<j2 Then Print j2; j1運(yùn)行上程序段后，現(xiàn)實(shí)的結(jié)果是_ , _ A 10 B 30 C 10 30 D 30 102. 下列程序段的執(zhí)行結(jié)果是_ , _ X=5 Y=-20 If not x>0 then x=y-3 else y=x+3 Print x-y; y-x3. Private Sub Form_Click( )Dim A as integerA=200If A<100 Then A=A*10If A>1000 Then A=A10 ElseA=A10

12、EndifElseA=A / 10If A=10 Then A=A10 ElseA=A10EndifEndifMsgbox Str(A)End Sub運(yùn)行程序，單擊窗體Form1，消息框中顯示:4.Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 2 c = c + 2 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 4 For i = 1 To 3 Print F(a) Next iEnd Sub寫出程

13、序運(yùn)行時(shí)，單擊命令按鈕在窗體上的輸出結(jié)果。5. Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 0c = 1For j = 1 To 6 If j > 4 Then c = c + 4 Exit For Else k = k + 1End IfNext jPrint c, kEnd Sub 寫出程序運(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)惠；

14、（2）在300元以上者，按9折優(yōu)惠；（3）400元以上者，按8折優(yōu)惠；（4）600元以上者按7折優(yōu)惠。在窗體上添加兩個(gè)文本框和一個(gè)命令按鈕，要求在Text1中輸入購(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分）12345678910CCADCBBBBB11121314151617181920BABBAABCAB21222324252627282930DADADBAABC二、判斷題（1分/題，共10分）12345678910TTTFFT

15、FFTT三、讀程序并填空題（每空1分，共10分）1. 30 102. -3 3 3. 304. 8 10 125. 5 4四、編寫程序（每題10分，共20分）1. Private Sub Command1_Click()（1分） Dim x As Single, y As Single x = Val(Text1.Text) （1分） If x < 200 Then（2分） y = x Else If x < 300 Then（2分） y = 9.5 * x Else If x < 400 Then（2分） y = 0.9 * x Else If x < 600 The

16、n（2分） y = 0.8 * x Else y = 0.7 * x End If End If End If End If Text2.Text = yEnd Sub2.Dim 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 + 1End IfIf Check3.Value = False Theni = i - 1End IfEnd SubPrivate Sub Check4_C