6[單選題] 下面哪個(gè)屬性肯定不是框架控件的屬性( )。
A.TextB.CaptionC.LeftD.Enabled
參考答案：A
7[單選題]編寫如下程序：
程序運(yùn)行后，單擊命令按鈕Commandl，并輸入數(shù)值lO和15，則輸出結(jié)果為
A.10115B.20115C.3515D.2015
參考答案：D
參考解析：程序中過程f的參數(shù)a默認(rèn)為按址傳遞，參數(shù)b指定按值傳遞，因此調(diào)用f(x，y)時(shí)，x的值會(huì)受到影響，y的值不會(huì)。程序中輸入10和15，則x=10，y=15。調(diào)用f(x，y)，在過程中a=a*2，即a=10*2=20，變量x是過程f中的局部變量，沒有用處可不用理會(huì)，b=b+100，即b=15+100=115。a的值即按鈕單擊事件中變量x的值，因此x=20，而y的值仍是原來的值l5，因此Printx，y輸出2015。
8[簡(jiǎn)答題]在名稱為Form1，標(biāo)題為“圖片”的窗體上添加l個(gè)名稱為Image1的圖像框，其高為2500，寬為2000。請(qǐng)通過屬性窗口設(shè)置適當(dāng)屬性，將考生文件夾下的圖片文件pic1.jPg插入圖像框，并使圖片自動(dòng)適應(yīng)圖像框的大小(如圖所示)。
注意：存盤時(shí)必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sit1.frm。
參考解析：
【考點(diǎn)分析】本題考點(diǎn)有：圖像框的Name、Picture、Stretch、Height和Width屬性以及窗體的Caption屬性。
【解題思路】圖像框(Image)的Picture屬性用于在設(shè)計(jì)階段設(shè)置圖像框中顯示的圖片，它的Stretch(自動(dòng)伸縮)屬性返回/設(shè)置一個(gè)值，決定是否調(diào)整圖形的大小以適應(yīng)圖像框控件。圖像框的寬和高分別由其Width屬性和Height屬性設(shè)置。
【操作步驟】
步驟1：新建一個(gè)窗體，按照題目要求建立控件并設(shè)置其屬性，如表3.33所示。
步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。
9[簡(jiǎn)答題]在考生文件夾下有一個(gè)工程文件sjt3.vbp，窗體中有兩個(gè)圖片框，名稱分別為P1、P2，其中的圖片內(nèi)容分別是一架航天飛機(jī)和一朵云彩，一個(gè)命令按鈕，名稱為Cl，標(biāo)題為“發(fā)射”，還有一個(gè)計(jì)時(shí)器，名稱為Timer1。并給出了兩個(gè)事件過程，但并不完整，要求：
�、僭O(shè)置Timerl的屬性，使其在初始狀態(tài)下不計(jì)時(shí);
②設(shè)置Timerl的屬性，使其每隔0.1秒調(diào)用Timer事件過程一次：
�、廴サ舫绦蛑械淖⑨尫殉绦蛑械�?改為正確的內(nèi)容，使得在運(yùn)行時(shí)單擊“發(fā)射”按鈕，則航天飛機(jī)每隔0.1秒向上移動(dòng)一次，當(dāng)?shù)竭_(dá)P2的下方時(shí)停止移動(dòng)，如圖所示。
注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。
參考解析：
【考點(diǎn)分析】本題考點(diǎn)有：計(jì)時(shí)器控件的Enabled和Interval屬性，圖片框的Move方法，圖片框的Height、Width、Top和Left屬性以及命令按鈕的Caption屬性，If判斷語句。
【解題思路】工程文件中已建立全部控件，只需編寫事件過程即可。Timerl控件的Imen：-al屬性用來控制計(jì)時(shí)器事件發(fā)生的時(shí)間間隔，通過題意可知，該屬性設(shè)置為100(Interval是以毫秒為單位)。當(dāng)單擊“發(fā)射”按鈕時(shí)開始計(jì)時(shí)，將計(jì)時(shí)器控件的Enabled屬性設(shè)置為True。如果使航天飛機(jī)即Pl停止移動(dòng)，則將計(jì)時(shí)器控件的Enabled屬性設(shè)置為False。
【操作步驟】
步驟1：按題目要求打開工程文件，設(shè)置計(jì)時(shí)器屬性，如圖3.14所示。
步驟2：打開代碼編輯窗口，去掉程序中的注釋符“´”，將問號(hào)改為正確的內(nèi)容。
參考答案(陰影部分是需考生填入的內(nèi)容)
Private Sub C1-click()
Timerl.Enabled=_True_________’單擊”發(fā)射”按鈕，則
Timer生效
End Sub
Private Sub Timer1_Timer()
Static a%
a=a+1
If P1.Top>P2.Top+P2.__Height________Then’判定P1是否接觸到P2
P1.Move P1.Left，Pl.Top-5-a，
P1.Width，Pl.Height
ElSe
Timer1.Enabled=__False________’當(dāng)P1接觸到P2時(shí)Timer事件停止
End If
End Sub
步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。
10[簡(jiǎn)答題] 在考生文件夾下有一個(gè)工程文件sjt4.vbp，相應(yīng)的窗體文件為sit4.frm，在窗體上有一個(gè)文本框和一個(gè)命令按鈕。程序運(yùn)行后，單擊命令按鈕，即可計(jì)算出0～1000范圍內(nèi)不能被7整除的整數(shù)的個(gè)數(shù)，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計(jì)算不能被7整除的整數(shù)的個(gè)數(shù)的操作在通用過程Fun中實(shí)現(xiàn)，請(qǐng)編寫該過程的代碼。
要求：請(qǐng)勿改動(dòng)程序中的任何內(nèi)容，只在FunctionFun()和EndFunction之間填入你編寫的若干語句。最后將修改后的文件按原文件名存盤。
參考解析：
【考點(diǎn)分析】本題考點(diǎn)有：Mod運(yùn)算符、文件編輯、For循環(huán)語句、If判斷語句以及過程函數(shù)。
【解題思路】可通過求余運(yùn)算符Mod來計(jì)算某數(shù)M能否被7整除，如果MMod7=0，那么M能被7整除;如果MMod7<>0，那么M不能被7整除�？衫肍or循環(huán)語句來逐個(gè)判斷0～1000范圍內(nèi)的整數(shù)能否被7整除，然后用一個(gè)變量來統(tǒng)計(jì)不能被7整除的整數(shù)個(gè)數(shù)。
【操作步驟】
步驟1：打開本題工程文件。
步驟2：打開代碼編輯窗口，在代碼編輯窗口指定位置編寫以下代碼。
參考答案
Function Fun()
Dim S As Integer，i As Integer
For i=0 To 1000。求0～1000中滿足條件的數(shù)
If i Mod 7<>O Then
s=s+1´將滿足條件的數(shù)的個(gè)數(shù)累加
End If
Next i
Fun=s’返回結(jié)果
End Function
步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。
相關(guān)推薦：
各地2015年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢?nèi)肟趨R總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
