2010年VB期中試卷ANSWER

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

2、2232425ACBBA1、以下敘述中錯誤的是（）。A）Visual Basic 是事件驅動型可視化編程工具。B）Visual Basic應用程序不具有明顯的開始和結束語句。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中的內容，應修改（）屬性。A) Locked B) MultiLine C) PassWordChar D) ScrollBar5、命令按鈕Command1的Caption屬性為“退出(x)”，要將命令按鈕的快捷鍵設為Alt+x，則應如何修改Caption屬性。（）A) 在x前插入& B) 在x后插入& C) 在x前插入# D) 在x后插入#6、對于以下函數描述不正確的是（ ）。A) Asc(A)返回值為數值 B) 表達式Len(幸運52)的值6 C) 如果Sgn(x)的值為-1，那么x是負數 D) 除去字符串左側空格的函數是Ltrim(

4、 )7、設有如下語句： Dim a , b As Integer C=VisualBasic d=#7/20/2005# 關于這段代碼的敘述中，錯誤的是（ ）。A) a被定義為Integer類型變量 B) b被定義為Integer類型變量C) c中的數據是字符串類型 D) d中的數據是日期類型8、設有語句X=InputBox(輸入數值， 0， 示例)，程序運行后，如果從鍵盤上輸入數值10并按回車鍵，則下列敘述中正確的是（）。A) 變量X的值是數值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、若要將窗體從內存中卸載出去，其實現的方法是（）。A) Show B) UnLoad C) Load D) Hide13、圖像框有一個屬性，可以自動調整圖形的大小以適應圖像框的尺寸，這個屬性是（）。

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、下列關于框架的敘述中錯誤的是（）。A) 框架是其他控件的容器，它的作用是對控件進行分組B) 框架的Enabled屬性為False時，框架中的控件不可用 C) 刪除框架時，其中的控件不會刪除D) 拖動框架時，如其中的控件不隨之移動，則該控件不在框架內18、下列表達式中值為False的是（）。A) BCD12345&ABCC) Not 2*511 D) 4=4 And 52+219、語句Print 5/4*65 Mod 2的輸出結果是（）。A) 0 B) 1 C) 2 D) 320、在窗體上畫兩個單選按鈕，名稱分別為Option1、Opt

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

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

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

12、件過程將實現如下功能：單擊該按鈕，判斷文本框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、 以下程序的功能是：計算出分段函數的值，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列表框中所選中的項目內容移動到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是否素數。請在空白處編寫代碼，實現以上功能。（注：素數是只能被1和它本身整除的數）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 & “是素數”Else Label1.caption = n & “不是素數”End ifEnd Sub2、如