11[簡答題]在考生文件夾下有一個工程文件sit3.vbp,窗體上已經(jīng)有一個標(biāo)簽Labell,請?zhí)砑右粋單選按鈕數(shù)組,名稱為Op1,含三個單選按鈕,它們的Index屬性分別為0、1、2,標(biāo)題依次為“飛機”、“火車”、“汽車”,再添加一個名稱為Textl的文本框。窗體文件中已經(jīng)給出了Opl的Click事件過程,但不完整,要求去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容,使得在程序運行時單擊“飛機”或“火車”單選按鈕時,在Textl中顯示“我坐飛機去”或“我坐火車去”,單擊“汽車”單選按鈕時,在Textl中顯示“我開汽車去”,如圖所示。
注意:不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。
參考解析:
【考點分析】本題考點有:單選按鈕數(shù)組的Name、Caption和Index屬性,文本框的Name屬性,SelectCase選擇語句,“+”字符連接。
【解題思路】通過Name屬性設(shè)置對象名稱;通過Caption屬性設(shè)置對象的標(biāo)題;設(shè)置兩個字符型變量a、b,a:"我坐",b="我開",用于SelectCase選擇語句的字符串連接;通過對單選按鈕數(shù)組Index屬性的查詢,實現(xiàn)單擊單選按鈕完成字符串連接和文本框顯示操作的功能。
【操作步驟】
步驟1:打開本題工程文件,按照題目要求建立單選按鈕數(shù)組,如圖3.9所示。
步驟2:按照題目要求建立其他控件并設(shè)置其屬性,見表3.4。
步驟3:打開代碼編輯窗口,去掉程序中的注釋符“´”,將問號改為正確的內(nèi)容。
參考答案(橫線部分是需考生填入的內(nèi)容)
Private Sub Op1_click (Index As Integer)
Dima As String,b As String,C As String
a="我坐"
b="我開"
Select Case____Index______
´通過Index值決定響應(yīng)哪一個控件數(shù)組
CaSe O
Text1.Text=a+Me.Op1(O).Caption+"去"
CaSe 1
Text1.Text=____a______+Me.Opl(1).Caption+"去"
´當(dāng)Index值為1時,選擇"我坐"
CaSe 2
Text1.Text=b+Me.Op1(2).Caption+"去"
End Select
EndSub
步驟4:調(diào)試并運行程序,關(guān)閉程序后按題目要求存盤。
【易錯提示】在窗體上復(fù)制一個控件時,如果需要創(chuàng)建控件數(shù)組,則在提示框中單擊“是”即可,如果不需要,則直接單擊“否”。
12[單選題] 下面不是鍵盤事件的是( )。
A.KeyDownB.KeyUpC.KeyPress D.KeyCode
參考答案:D
參考解析:KeyCede是KeyD0Ⅷ、K叮t’髓事件f參數(shù),不是鍵盤事件,它返回的是按鍵相應(yīng)的^盥衛(wèi)字符代碉故選項D錯誤。
13[單選題]假定有如下情況語句:
SelectCaseX
能表示fxf>5的Case子句是
A.CaseNot(-5To5)B.Case5To-5C.CaseIs<-5,Is>5D.CaseAbs(X)>5
參考答案:C
參考解析:在Select判斷語句中,如果是判斷區(qū)間變量值,可以用”表達式T0表達式”的形式;如果不是判斷區(qū)間變量值,則關(guān)系運算表達式前面要加上Is。|x|>5的VB表達式為X<-5OrX>5,故本題答案為選項C.。
14[單選題] 三角形的構(gòu)成條件是:任意2邊之和大于第3邊。設(shè)變量a.b、c是3條直線的長度,要求判斷這3條直線能否構(gòu)成一個三角形。
下面有3個程序段可以正確判斷,另一個不能正確判斷的是
參考答案:B
參考解析:三角形構(gòu)成的條件必須滿足任意2邊之和大于第3邊,即a,b,c任意兩個的和必須大于第三個。A.滿足。B.中的0r是或,條件不滿足。C.和D.可以通過判斷,均能進行正確判斷。選B.。
15[單選題] 在窗體上畫一個文本框(名稱為Textl)和一個標(biāo)簽(名稱為IJabdl),程序運行后,在文本框中每輸入一個字符.都會立即在標(biāo)簽中顯示文本框中字符的個數(shù)。以下可以實現(xiàn)上述操作的事件過程是( )。
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
參考解析:根據(jù)題意可知,在文本框中輸入字符這個動作使標(biāo)簽上顯示的內(nèi)容發(fā)生變化,說明是文本框觸發(fā)了某事件,排除D選項;文本框中每輸入一個字符,標(biāo)簽中立即就會發(fā)生變化,故是Change事件,排除B選項;標(biāo)簽中顯示的是文本框中字符的個數(shù),不是輸入的內(nèi)容,排除C選項。故A選項正確。
16[單選題] 下列循環(huán)中,可以正常結(jié)束的是
參考答案:B
參考解析:選項A中先執(zhí)行一次循環(huán)體,i的值變成1,測試循環(huán)結(jié)束條件,i<1不成立,循環(huán)繼續(xù),i值總是增加,達不到循環(huán)結(jié)束條件,不能正常結(jié)束。選項8先執(zhí)行循環(huán)體,i值加1變成2,再測試循環(huán)結(jié)束條件i=10,繼續(xù)循環(huán),i值再加1,直到i變?yōu)?0,循環(huán)結(jié)束。選項C中i初值為10,先執(zhí)行一次循環(huán)體,使i加1,然后判斷繼續(xù)循環(huán)的條件i>1是否成立,此后i值不會小于等于1,循環(huán)會一直繼續(xù)下去,不會正常結(jié)束。選項D中i初值為10,每次循環(huán)i值減2,因此它總是偶數(shù),而循環(huán)結(jié)束的條件是i=1,不可能達到,循環(huán)會一直繼續(xù)下去。
17[單選題] 在設(shè)計階段,假定在圖片框Picturel中裝入了一個圖形,為了刪除該圖片框控件,應(yīng)采用的正確操作是
參考答案:A
參考解析:刪除圖片框控件,先選擇圖片框,然后按Del鍵。
18[單選題] 通用對話框Filter屬性的作用是
A.設(shè)置對話框的標(biāo)題
B.指定對話框所選擇的文件名
C.指定對話框的打開方式
D.指定對話框中顯示的文件類型
參考答案:D
參考解析:通用對話框(CommonDialog)提供諸如打開文件、保存文件、設(shè)置打印選項、選擇顏色和字體、顯示幫助等操作的一組標(biāo)準(zhǔn)對話框,該控件運行時不可見。通用對話框的DialogTifle屬性用于返回或設(shè)置該對話框標(biāo)題欄上所顯示的文本;Action屬性用于設(shè)置被打開對話框的類型;當(dāng)通用對話框顯示為“打開”或“另存為”類型時,其FileName屬性用于返回或設(shè)置所選文件的路徑和文件名,F(xiàn)iber(過濾器)屬性用于指定在對話框的文件列表中顯示文件的類型。
19[單選題] 設(shè)在工程文件中有一個標(biāo)準(zhǔn)模塊,其中定義了如下記錄類型:
在窗體上畫一個名為Commandl的命令按鈕,要求當(dāng)執(zhí)行事件過程Commandl—Click時,在順序文件Person.txt中寫入一條記錄。下列能夠完成該操作的事件過程是( )。
A.
B.
C.
D.
參考答案:A
參考解析:數(shù)據(jù)文件的寫操作分為3步,即打開文件、寫入文件和關(guān)閉文件。
首先,在順序文件中打開文件寫入數(shù)據(jù)的打開方式為:Open文件名For Output As#文件號。因此8、c選項排除,只}看A、D選項。
寫入順序文件Prlm#語句格式為:Print#文件號,變量名,’變量名…,Write語句的的格式與Print語句一樣:Write#文件號,變量名,變量名。而記錄類型變量不能整體引用,需要指明}記錄變量中的成員名,格式為;記錄變量名.成員名,Books類型變量B成員Name和TelNum賦值和引用應(yīng)該是8.Name、B.TelNum,因此A選項正確。
20[簡答題]在考生文件夾下有一個工程文件sjt3.vbp,含有兩個窗體,名稱分別為Forml、Form2。其中Forml E有兩個控件(圖像框和計時器)和一個菜單項“操作”,含有三個子菜單(如圖l所示)。Form2匕有一個名稱為Commandl、標(biāo)題為“返回”的命令按鈕(如圖2所示)。要求當(dāng)單擊“窗體2”菜單命令時,F(xiàn)orml隱藏,F(xiàn)orm2導(dǎo)委。.單考‘動畫”菜單命令時,使小汽車開始移動,一旦移到窗口的右邊界時自動跳到窗體的左邊界重新開始移動。單擊“退出”菜單命令時,結(jié)束程序運行。請去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。注意:考生不得修改窗體文件中已經(jīng)存在的程序。最后程序按原文件名存盤。
參考解析:
在計時器的Timer事件過程中,通過設(shè)置標(biāo)簽的Left屬性值在原有基礎(chǔ)上加l00來實現(xiàn)自左向右移動的功能。在“動畫”菜單項的單擊事件過程中應(yīng)啟動計時器,使小汽車開始移動,通過圖像框的Left、Width屬性和窗體的Width屬性判斷,小汽車是否移到窗口的右邊界,如果是,則設(shè)置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
程序結(jié)束參考答案第1個?處填入:Index
第2個?處填入:True第3個?處填入:Forml.Width
第4個?處填人:0
步驟3:調(diào)試并運行程序,關(guān)閉程序后按題目要求存盤。
相關(guān)推薦:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |