11[簡答題]在考生文件夾下有一個工程文件sit3.vbp，窗體上已經有一個標簽Labell，請添加一個單選按鈕數組，名稱為Op1，含三個單選按鈕，它們的Index屬性分別為0、1、2，標題依次為“飛機”、“火車”、“汽車”，再添加一個名稱為Textl的文本框。窗體文件中已經給出了Opl的Click事件過程，但不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內容，使得在程序運行時單擊“飛機”或“火車”單選按鈕時，在Textl中顯示“我坐飛機去”或“我坐火車去”，單擊“汽車”單選按鈕時，在Textl中顯示“我開汽車去”，如圖所示。

　　注意：不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。

　　參考解析：

　　【考點分析】本題考點有：單選按鈕數組的Name、Caption和Index屬性，文本框的Name屬性，SelectCase選擇語句，“+”字符連接。

　　【解題思路】通過Name屬性設置對象名稱;通過Caption屬性設置對象的標題;設置兩個字符型變量a、b，a："我坐"，b="我開"，用于SelectCase選擇語句的字符串連接;通過對單選按鈕數組Index屬性的查詢，實現單擊單選按鈕完成字符串連接和文本框顯示操作的功能。

　　【操作步驟】

　　步驟1：打開本題工程文件，按照題目要求建立單選按鈕數組，如圖3.9所示。

　　步驟2：按照題目要求建立其他控件并設置其屬性，見表3.4。

　　步驟3：打開代碼編輯窗口，去掉程序中的注釋符“´”，將問號改為正確的內容。

　　參考答案(橫線部分是需考生填入的內容)

　　Private Sub Op1_click (Index As Integer)

　　Dima As String，b As String，C As String

　　a="我坐"

　　b="我開"

　　Select Case____Index______

　　´通過Index值決定響應哪一個控件數組

　　CaSe　O

　　Text1.Text=a+Me.Op1(O).Caption+"去"

　　CaSe　1

　　Text1.Text=____a______+Me.Opl(1).Caption+"去"

　　´當Index值為1時，選擇"我坐"

　　CaSe　2

　　Text1.Text=b+Me.Op1(2).Caption+"去"

　　End Select

　　EndSub

　　步驟4：調試并運行程序，關閉程序后按題目要求存盤。

　　【易錯提示】在窗體上復制一個控件時，如果需要創建控件數組，則在提示框中單擊“是”即可，如果不需要，則直接單擊“否”。

　　12[單選題] 下面不是鍵盤事件的是(　　)。

　　A.KeyDownB.KeyUpC.KeyPress D.KeyCode

　　參考答案：D

　　參考解析：KeyCede是KeyD0Ⅷ、K叮t’髓事件f參數，不是鍵盤事件，它返回的是按鍵相應的^盥衛字符代碉故選項D錯誤。

　　13[單選題]假定有如下情況語句：

　　SelectCaseX

　　能表示fxf>5的Case子句是

　　A.CaseNot(-5To5)B.Case5To-5C.CaseIs<-5，Is>5D.CaseAbs(X)>5

　　參考答案：C

　　參考解析：在Select判斷語句中，如果是判斷區間變量值，可以用”表達式T0表達式”的形式;如果不是判斷區間變量值，則關系運算表達式前面要加上Is。|x|>5的VB表達式為X<-5OrX>5，故本題答案為選項C.。

　　14[單選題] 三角形的構成條件是：任意2邊之和大于第3邊。設變量a.b、c是3條直線的長度，要求判斷這3條直線能否構成一個三角形。

　　下面有3個程序段可以正確判斷，另一個不能正確判斷的是

　　參考答案：B

　　參考解析：三角形構成的條件必須滿足任意2邊之和大于第3邊，即a，b，c任意兩個的和必須大于第三個。A.滿足。B.中的0r是或，條件不滿足。C.和D.可以通過判斷，均能進行正確判斷。選B.。

　　15[單選題] 在窗體上畫一個文本框(名稱為Textl)和一個標簽(名稱為IJabdl)，程序運行后，在文本框中每輸入一個字符.都會立即在標簽中顯示文本框中字符的個數。以下可以實現上述操作的事件過程是(　　)。

　　A.Private Sub Textl_Change(　　)

　　Labell.Caption=Str(Len(Textl.Text))End Sllb

　　B.Private Sub Textl—Click(　　)

　　Labell.Caption=Str(Len(Textl.Text))End Sub

　　C.Private Sub Textl_Change(　　)Labell.Caption=Textl.TextEnd Sub

　　D.Private Sub I_abell_Change(　　)

　　Labell.Caption=Str(Len(Textl.Text))End Sub

　　參考答案：A

　　參考解析：根據題意可知，在文本框中輸入字符這個動作使標簽上顯示的內容發生變化，說明是文本框觸發了某事件，排除D選項;文本框中每輸入一個字符，標簽中立即就會發生變化，故是Change事件，排除B選項;標簽中顯示的是文本框中字符的個數，不是輸入的內容，排除C選項。故A選項正確。

　　16[單選題] 下列循環中，可以正常結束的是

　　參考答案：B

　　參考解析：選項A中先執行一次循環體，i的值變成1，測試循環結束條件，i<1不成立，循環繼續，i值總是增加，達不到循環結束條件，不能正常結束。選項8先執行循環體，i值加1變成2，再測試循環結束條件i=10，繼續循環，i值再加1，直到i變為10，循環結束。選項C中i初值為10，先執行一次循環體，使i加1，然后判斷繼續循環的條件i>1是否成立，此后i值不會小于等于1，循環會一直繼續下去，不會正常結束。選項D中i初值為10，每次循環i值減2，因此它總是偶數，而循環結束的條件是i=1，不可能達到，循環會一直繼續下去。

　　17[單選題] 在設計階段，假定在圖片框Picturel中裝入了一個圖形，為了刪除該圖片框控件，應采用的正確操作是

　　參考答案：A

　　參考解析：刪除圖片框控件，先選擇圖片框，然后按Del鍵。

　　18[單選題] 通用對話框Filter屬性的作用是

　　A.設置對話框的標題

　　B.指定對話框所選擇的文件名

　　C.指定對話框的打開方式

　　D.指定對話框中顯示的文件類型

　　參考答案：D

　　參考解析：通用對話框(CommonDialog)提供諸如打開文件、保存文件、設置打印選項、選擇顏色和字體、顯示幫助等操作的一組標準對話框，該控件運行時不可見。通用對話框的DialogTifle屬性用于返回或設置該對話框標題欄上所顯示的文本;Action屬性用于設置被打開對話框的類型;當通用對話框顯示為“打開”或“另存為”類型時，其FileName屬性用于返回或設置所選文件的路徑和文件名，Fiber(過濾器)屬性用于指定在對話框的文件列表中顯示文件的類型。

　　19[單選題] 設在工程文件中有一個標準模塊，其中定義了如下記錄類型：

　　在窗體上畫一個名為Commandl的命令按鈕，要求當執行事件過程Commandl—Click時，在順序文件Person.txt中寫入一條記錄。下列能夠完成該操作的事件過程是(　　)。

　　A.

　　B.

　　C.

　　D.

　　參考答案：A

　　參考解析：數據文件的寫操作分為3步，即打開文件、寫入文件和關閉文件。

　　首先，在順序文件中打開文件寫入數據的打開方式為：Open文件名For Output As#文件號。因此8、c選項排除，只}看A、D選項。

　　寫入順序文件Prlm#語句格式為：Print#文件號，變量名，’變量名…，Write語句的的格式與Print語句一樣：Write#文件號，變量名，變量名。而記錄類型變量不能整體引用，需要指明}記錄變量中的成員名，格式為;記錄變量名.成員名，Books類型變量B成員Name和TelNum賦值和引用應該是8.Name、B.TelNum，因此A選項正確。

　　20[簡答題]在考生文件夾下有一個工程文件sjt3.vbp，含有兩個窗體，名稱分別為Forml、Form2。其中Forml E有兩個控件(圖像框和計時器)和一個菜單項“操作”，含有三個子菜單(如圖l所示)。Form2匕有一個名稱為Commandl、標題為“返回”的命令按鈕(如圖2所示)。要求當單擊“窗體2”菜單命令時，Forml隱藏，Form2導委。.單考‘動畫”菜單命令時，使小汽車開始移動，一旦移到窗口的右邊界時自動跳到窗體的左邊界重新開始移動。單擊“退出”菜單命令時，結束程序運行。請去掉程序中的注釋符，把程序中的?改為正確的內容。注意：考生不得修改窗體文件中已經存在的程序。最后程序按原文件名存盤。

　　參考解析：

　　在計時器的Timer事件過程中，通過設置標簽的Left屬性值在原有基礎上加l00來實現自左向右移動的功能。在“動畫”菜單項的單擊事件過程中應啟動計時器，使小汽車開始移動，通過圖像框的Left、Width屬性和窗體的Width屬性判斷，小汽車是否移到窗口的右邊界，如果是，則設置Pieturel的Left屬性為0，自動跳到窗體的左邊界重新移動。在“窗體2”菜單項的單擊事件過程中，通過窗體的Hide、Show方法，隱藏Forml，顯示Form2。在“退出”菜單項的單擊事件過程中，通過End語句退出程序。

　　【操作步驟】

　　步驟l：打開本題工程文件。步驟2：分析并編寫程序代碼。程序提供代碼

　　窗體l‘的代碼

　　Private Sub mnuOper_Cliek(Index As Integer)'Select Case?

　　Case l

　　Form2.ShowForml.HideCase 2

　　Timerl.Enabled=?

　　Case 3EndEnd SelectEnd Sub

　　Private Sub Timerl_Timer()

　　Pieturel.Left=Pieturel.Left+100

　　If Picturel.Left+Pieturel.Width>=’Then

　　Pieturel.Left=?End IfEnd Sub

　　窗體2的代碼

　　Private Sub Commandl—Click()Forml.Show

　　Fomn2.HideEnd Sub

　　程序結束參考答案第1個?處填入：Index

　　第2個?處填入：True第3個?處填入：Forml.Width

　　第4個?處填人：0

　　步驟3：調試并運行程序，關閉程序后按題目要求存盤。

　　相關推薦：

　　2016年全國計算機等級考試時間

　　各地2016年全國計算機等級考試費用匯總

　　各地2016年全國計算機等級考試報名時間匯總

　　2016計算機等級考試各級別考試科目常見問題解答