2010年VB期中試卷ANSWER

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

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

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

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

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

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

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

8、ion2，標題分別為“宋體”和“黑體”；一個復選框，名稱為Check1，標題為“粗體”；一個文本框，名稱為Text1，Text屬性為“改變文字字體”。要求程序運行時，“宋體”單選按鈕和“粗體”復選框被選中，則能夠?qū)崿F(xiàn)上述要求的語句序列是（ ）。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、設有以下循環(huán)結(jié)構(gòu)Do 循環(huán)體Lo

9、op While 以下敘述中錯誤的是（）。A）若條件是一個為0的常數(shù)，則一次也不執(zhí)行循環(huán)體B）條件可以是關(guān)系表達式、邏輯表達式或常數(shù)C）循環(huán)體中可以使用Exit Do語句 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、下列程序運行后，輸出的結(jié)果為（）。B=1Do While b40 B=b*(b+1)LoopPrint BA) 42 B) 39 C) 6 D) 1二、程序填空題（每空3分，共30分）得分評卷人1、 如下圖所示的窗體Form1，在窗體內(nèi)有一個名稱為Command1的命令按鈕和一個名稱為L1的標簽。以下事件過程將實現(xiàn)功能：單擊

11、該按鈕，在標簽上顯示“Hello World!”。請在空白處將程序補充完整。Private Sub Command1_Click()1 L1.Caption= “Hello World!” End Sub2、 以下程序的功能是：生成20個200到300之間的隨機整數(shù)，在窗體上計算并輸出它們的和。請在空白處將程序補充完整。Private Sub Commandl_C1ick()S0For i1 To 20x2Int(Rnd*101+200) 3 s=s+i Next iPrint “Sum”：SEnd Sub3、 如下圖所示的窗體Form1，在窗體內(nèi)有一個名稱為Command1的命令按鈕。以下事

12、件過程將實現(xiàn)如下功能：單擊該按鈕，判斷文本框Text1中輸入的年份是否閏年。如果是閏年，在窗體上輸出“是閏年”，否則輸出“不是閏年”。請在空白處將程序補充完整。（注：閏年的判斷方法：如果年份能被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、 以下程序的功能是：計算出分段函數(shù)的值，x從文本框（Text1）獲得。請在空白處將

13、程序補充完整。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、 如下圖，在窗體上畫一個標簽（Label1）、一個計時器（Timer1）和一個命令按鈕(Command1)，程序運行后單擊按鈕，將在標簽中顯示當前時間，每隔1秒鐘變換一次。請在空白處將程序補充完整。 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、如圖所示的窗體，窗體上有一個文本框（Text1），一個標簽（Label1），要求在文本框中輸入任意字母，標簽中同步顯示其小寫字母。Private Sub Text1_Change()8Label1.Caption=Lcase(Text1.Text) End Sub7、 如圖1所示，窗體左邊有一個名稱為List1的列表框

15、，MultiSelect屬性為0，右邊有一個名稱為List2的列表框，一個名稱為Command1、標題為“移動”的命令按鈕。程序運行后，如圖2所示，單擊命令按鈕，將List1列表框中所選中的項目內(nèi)容移動到List2末尾（圖3）。請在空白處將程序補充完整。圖1圖3圖2Private Sub Command1_Click()9List2.AddItem List1.Text 10List1.RemoveItem List1.ListIndex End Sub三、程序設計題（每小題10分，共20分）得分評卷人1、 如下圖窗體中有兩個標簽（Label1和 Label2），一個文本框（Text1）和一個命令按鈕（Command1）。在文本框Text1中輸入N的值，單擊命令按鈕，在標簽Label2中顯示N是否素數(shù)。請在空白處編寫代碼，實現(xiàn)以上功能。（注：素數(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 & “是素數(shù)”Else Label1.caption = n & “不是素數(shù)”End ifEnd Sub2、如