2010年VB期中試卷ANSWER

1、期中試卷 （ A ）卷20092010學(xué)年第二學(xué)期 課程名稱計(jì)算機(jī)語(yǔ)言（VB）考試日期：2010年4月25日主考教師： 考試時(shí)間：90分鐘專業(yè)： 班級(jí)： 考生學(xué)號(hào)： 考生姓名： 注意：試卷評(píng)閱統(tǒng)一使用紅色筆，要求對(duì)的打“”，錯(cuò)的打“”，并采用扣分的方法評(píng)定。題號(hào)一二三總分累分人簽名題分503020100得分考生注意事項(xiàng)：1、本試卷共8頁(yè)，請(qǐng)查看試卷中是否有缺頁(yè)。 2、考試結(jié)束后，考生不得將試卷、答題紙和草稿紙帶出考場(chǎng)。一、選擇題（每小題2分，共50分，請(qǐng)將答案寫在下面的表格中）得分評(píng)卷人12345678910CBBAABADCC11121314151617181920CBBBACCBBD212

2、2232425ACBBA1、以下敘述中錯(cuò)誤的是（）。A）Visual Basic 是事件驅(qū)動(dòng)型可視化編程工具。B）Visual Basic應(yīng)用程序不具有明顯的開始和結(jié)束語(yǔ)句。C）Visual Basic工具箱中的所有標(biāo)準(zhǔn)控件都具有寬度（Width）和高度（Height）屬性。D）Visual Basic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置。2、以下敘述中不正確的是（ ）。A）雙擊鼠標(biāo)可以觸發(fā)DblClick事件B）窗體或控件的事件的名稱可以由編程人員設(shè)定C）移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)MouseMove事件D）控件的名稱可以由編程人員設(shè)定3、下列是合法變量名的是（）。A) X-Y B) X_Y C) 2Y

3、D) String4、若要使用戶不能修改文本框Text1中的內(nèi)容，應(yīng)修改（）屬性。A) Locked B) MultiLine C) PassWordChar D) ScrollBar5、命令按鈕Command1的Caption屬性為“退出(x)”，要將命令按鈕的快捷鍵設(shè)為Alt+x，則應(yīng)如何修改Caption屬性。（）A) 在x前插入& B) 在x后插入& C) 在x前插入# D) 在x后插入#6、對(duì)于以下函數(shù)描述不正確的是（ ）。A) Asc(A)返回值為數(shù)值 B) 表達(dá)式Len(幸運(yùn)52)的值6 C) 如果Sgn(x)的值為-1，那么x是負(fù)數(shù) D) 除去字符串左側(cè)空格的函數(shù)是Ltrim(

4、 )7、設(shè)有如下語(yǔ)句： Dim a , b As Integer C=VisualBasic d=#7/20/2005# 關(guān)于這段代碼的敘述中，錯(cuò)誤的是（ ）。A) a被定義為Integer類型變量 B) b被定義為Integer類型變量C) c中的數(shù)據(jù)是字符串類型 D) d中的數(shù)據(jù)是日期類型8、設(shè)有語(yǔ)句X=InputBox(輸入數(shù)值， 0， 示例)，程序運(yùn)行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則下列敘述中正確的是（）。A) 變量X的值是數(shù)值10 B) 在InputBox對(duì)話框標(biāo)題欄中顯示的是示例C) 0是默認(rèn)值 D) 變量X的值是字符串109、下列賦值語(yǔ)句中，正確的是（ ）。A) i +

5、 j = 10 B) 2i = j C) j = i + j D) i = j = 010、若要將某命令按鈕設(shè)置為默認(rèn)命令按鈕，應(yīng)將（）屬性設(shè)置為True。 A) Value B) Cancel C) Default D) Enabled11、若要設(shè)置文本框中所顯示的文本顏色，應(yīng)使用的屬性是（）。A) BackColorB) FillColor C) ForeColor D) FontColor12、若要將窗體從內(nèi)存中卸載出去，其實(shí)現(xiàn)的方法是（）。A) Show B) UnLoad C) Load D) Hide13、圖像框有一個(gè)屬性，可以自動(dòng)調(diào)整圖形的大小以適應(yīng)圖像框的尺寸，這個(gè)屬性是（）。

6、A) Autosize B) Stretch C) AutoRedraw D) Appearance14、設(shè)組合框Combo1中有3個(gè)項(xiàng)目，以下能刪除最后一項(xiàng)的語(yǔ)句是（）。 A）Combo1.RemoveItem Text B）Combo1.RemoveItem 2 C）Combo1.RemoveItem 3 D）Combo1.RemoveItem Combo1.Listcount15、確定復(fù)選框是否選中，可訪問的屬性是（）。A) Value B) Checked C) Selected D) Caption16、不能觸發(fā)滾動(dòng)條Change事件的操作是（）。 A) 拖動(dòng)滾動(dòng)塊 B) 單擊兩端箭

7、頭 C) 單擊滾動(dòng)塊 D) 單擊箭頭與滾動(dòng)塊之間的區(qū)域17、下列關(guān)于框架的敘述中錯(cuò)誤的是（）。A) 框架是其他控件的容器，它的作用是對(duì)控件進(jìn)行分組B) 框架的Enabled屬性為False時(shí)，框架中的控件不可用 C) 刪除框架時(shí)，其中的控件不會(huì)刪除D) 拖動(dòng)框架時(shí)，如其中的控件不隨之移動(dòng)，則該控件不在框架內(nèi)18、下列表達(dá)式中值為False的是（）。A) BCD12345&ABCC) Not 2*511 D) 4=4 And 52+219、語(yǔ)句Print 5/4*65 Mod 2的輸出結(jié)果是（）。A) 0 B) 1 C) 2 D) 320、在窗體上畫兩個(gè)單選按鈕，名稱分別為Option1、Opt

8、ion2，標(biāo)題分別為“宋體”和“黑體”；一個(gè)復(fù)選框，名稱為Check1，標(biāo)題為“粗體”；一個(gè)文本框，名稱為Text1，Text屬性為“改變文字字體”。要求程序運(yùn)行時(shí)，“宋體”單選按鈕和“粗體”復(fù)選框被選中，則能夠?qū)崿F(xiàn)上述要求的語(yǔ)句序列是（ ）。A) Option1.Value=True B) Option1.Value=True Check1.Value=False Check1.Value=True C) Option2.Value=False D) Option1.Value=True Check1.Value=True Check1.Value=1 21、設(shè)有以下循環(huán)結(jié)構(gòu)Do 循環(huán)體Lo

9、op While 以下敘述中錯(cuò)誤的是（）。A）若條件是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體B）條件可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)C）循環(huán)體中可以使用Exit Do語(yǔ)句 D）如果條件總是為True，則不停地執(zhí)行循環(huán)體22、有如下程序 For I = 1 To 2 For j = 5 To I Step -1 Print I + j Next j, I其循環(huán)執(zhí)行的次數(shù)是（）。A) 7 B) 8 C) 9 D) 2023、下列程序段的執(zhí)行結(jié)果為（）。X = Int(Rnd + 4)Select Case x Case 5 Print 優(yōu)秀 Case 4 Print 良好 Case 3 Print

10、 通過Case Else Print 不通過End SelectA) 優(yōu)秀 B) 良好 C) 通過 D) 不通過24、以下程序段執(zhí)行后整型變量n 的值為（）。n=0For I=1 To 20 Step 5n=n+1Next IA) 50 B) 4 C) 15 D) 525、下列程序運(yùn)行后，輸出的結(jié)果為（）。B=1Do While b40 B=b*(b+1)LoopPrint BA) 42 B) 39 C) 6 D) 1二、程序填空題（每空3分，共30分）得分評(píng)卷人1、 如下圖所示的窗體Form1，在窗體內(nèi)有一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為L(zhǎng)1的標(biāo)簽。以下事件過程將實(shí)現(xiàn)功能：?jiǎn)螕?/p>

11、該按鈕，在標(biāo)簽上顯示“Hello World!”。請(qǐng)?jiān)诳瞻滋帉⒊绦蜓a(bǔ)充完整。Private Sub Command1_Click()1 L1.Caption= “Hello World!” End Sub2、 以下程序的功能是：生成20個(gè)200到300之間的隨機(jī)整數(shù)，在窗體上計(jì)算并輸出它們的和。請(qǐng)?jiān)诳瞻滋帉⒊绦蜓a(bǔ)充完整。Private Sub Commandl_C1ick()S0For i1 To 20x2Int(Rnd*101+200) 3 s=s+i Next iPrint “Sum”：SEnd Sub3、 如下圖所示的窗體Form1，在窗體內(nèi)有一個(gè)名稱為Command1的命令按鈕。以下事

12、件過程將實(shí)現(xiàn)如下功能：?jiǎn)螕粼摪粹o，判斷文本框Text1中輸入的年份是否閏年。如果是閏年，在窗體上輸出“是閏年”，否則輸出“不是閏年”。請(qǐng)?jiān)诳瞻滋帉⒊绦蜓a(bǔ)充完整。（注：閏年的判斷方法：如果年份能被4整除，但不能被100整除或年份能被400整除。） Private Sub Command1_Click() n = Val(Text1.Text) If 4n Mod 4=0 And n Mod 1000 Or n Mod 400=0 ThenPrint 是閏年ElsePrint 不是閏年 End IfEnd Sub4、 以下程序的功能是：計(jì)算出分段函數(shù)的值，x從文本框（Text1）獲得。請(qǐng)?jiān)诳瞻滋帉?/p>

13、程序補(bǔ)充完整。Private Sub Command1_Click()x = Val(Text1.Text)If x = 1 Then5y=(2*x+5)(1/3)-1/3*x ElseIf x 0 and x1 Theny = xElsey = x + 1End IfPrint yEnd Sub5、 如下圖，在窗體上畫一個(gè)標(biāo)簽（Label1）、一個(gè)計(jì)時(shí)器（Timer1）和一個(gè)命令按鈕(Command1)，程序運(yùn)行后單擊按鈕，將在標(biāo)簽中顯示當(dāng)前時(shí)間，每隔1秒鐘變換一次。請(qǐng)?jiān)诳瞻滋帉⒊绦蜓a(bǔ)充完整。 Private Sub Form_Load()Timer1.Enabled = FalseTime

14、r1.Interval = 1000End SubPrivate Sub Command1_Click()6 Timer1.Enabled =True End SubPrivate Sub Timer1_Timer()7 Label1.Caption=Time End Sub6、如圖所示的窗體，窗體上有一個(gè)文本框（Text1），一個(gè)標(biāo)簽（Label1），要求在文本框中輸入任意字母，標(biāo)簽中同步顯示其小寫字母。Private Sub Text1_Change()8Label1.Caption=Lcase(Text1.Text) End Sub7、 如圖1所示，窗體左邊有一個(gè)名稱為L(zhǎng)ist1的列表框

15、，MultiSelect屬性為0，右邊有一個(gè)名稱為L(zhǎng)ist2的列表框，一個(gè)名稱為Command1、標(biāo)題為“移動(dòng)”的命令按鈕。程序運(yùn)行后，如圖2所示，單擊命令按鈕，將List1列表框中所選中的項(xiàng)目?jī)?nèi)容移動(dòng)到List2末尾（圖3）。請(qǐng)?jiān)诳瞻滋帉⒊绦蜓a(bǔ)充完整。圖1圖3圖2Private Sub Command1_Click()9List2.AddItem List1.Text 10List1.RemoveItem List1.ListIndex End Sub三、程序設(shè)計(jì)題（每小題10分，共20分）得分評(píng)卷人1、 如下圖窗體中有兩個(gè)標(biāo)簽（Label1和 Label2），一個(gè)文本框（Text1）和一個(gè)命令按鈕（Command1）。在文本框Text1中輸入N的值，單擊命令按鈕，在標(biāo)簽Label2中顯示N是否素?cái)?shù)。請(qǐng)?jiān)诳瞻滋幘帉懘a，實(shí)現(xiàn)以上功能。（注：素?cái)?shù)是只能被1和它本身整除的數(shù)）Private Sub Command1_Click()Dim n%,i% N=val(text1.text)For i=2 to n-1 If n mod i =0 then exit forNext iIf i=n then Label1.caption = n & “是素?cái)?shù)”Else Label1.caption = n & “不是素?cái)?shù)”End ifEnd Sub2、如