11[簡答題]在考生文件夾下有一個工程文件sit3.vbp，相應(yīng)的窗體文件為sit3.frm。其功能是隨機(jī)產(chǎn)生30個0～1000的整數(shù)，放入一個數(shù)組中，然后輸出其中的最小值。程序運行后，單擊命令按鈕(名稱為Command1，標(biāo)題為“輸出最小值”)，即可求出其最小值，并在窗體上顯示出來(如圖所示)。這個程序不完整，請把它補(bǔ)充完整，并使其能正確運行。

　　要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分。最后將修改后的文件按原名存盤。

　　參考解析：

　　【考點分析】本題考點有：Randomize語句、Rnd()函數(shù)、Int()函數(shù)、循環(huán)語句、判斷語句以及Print方法。

　　【解題思路】本題程序用變量Min記錄最小數(shù)，最初把數(shù)組的第一個元素的值賦給Min，然后通過For循環(huán)語句將其后的元素依次與之比較，如果其值小于Min，則將其賦值給Min，依次類推，最終Min的值就是數(shù)組各元素中的最小值。

　　【操作步驟】

　　步驟1：打開本題工程文件。

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

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

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim arrN(30) As Integer

　　Dim Min As Integer

　　RandomiZe

　　For i=1 To30

　　arrN(i)：Int(Rnd*____1000______)

　　Next　i

　　___Min_______=arrN(1)將第一個數(shù)賦給Min，以提供判斷

　　For i=2 T0 30

　　If_____arrN(i)

　　Then´比較最小值與其他數(shù)值，找出最小值

　　Min=arrN(i)

　　End If

　　Next i

　　Print Min

　　End Sub

　　步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。

　　【易錯提示】產(chǎn)生0～1000范圍內(nèi)的隨機(jī)數(shù)，應(yīng)該是RndX1000。

　　12[單選題] 窗體上有一個名稱為Commandl的命令按鈕，并有

　　運行程序，單擊命令按鈕后，窗體上顯示的是

　　A.0B.2C.8D.20

　　參考答案：D

　　參考解析：Commandl_Click()中通過嵌套循環(huán)給數(shù)組a元素賦初值，執(zhí)行完后a(1，1)=2，a(2，2)=4，a(3，3)=6，n(4，4)=8;Callf(8，B.語句調(diào)用子函數(shù)Subf(x()AsIn-teger，ByRefYAsInteger)。該函數(shù)內(nèi)For循環(huán)把a(bǔ)數(shù)組中一維下標(biāo)和二維下標(biāo)相同的元素值相加。值為20，選D.。

　　13[單選題] 在滿足實體完整性約束的條件下

　　A.一個關(guān)系中應(yīng)該有一個或多個候選關(guān)鍵字

　　B.一個關(guān)系中只能有一個候選關(guān)鍵字

　　C.一個關(guān)系中必須有多個候選關(guān)鍵字

　　D.一個關(guān)系中可以沒有候選關(guān)鍵字

　　參考答案：A

　　參考解析：實體完整性約束要求關(guān)系的主鍵中屬性值不能為空值，所以選擇A。

　　14[單選題] 有三個關(guān)系R、s和T如下：

　　由關(guān)系R和s通過運算得到關(guān)系T，則所使用的運算為(　　)。

　　A.笛卡爾積B.交C.并D.自然連接

　　參考答案：D

　　參考解析：自然連接是一種特殊的等值連接，它要求兩個關(guān)系中進(jìn)行比較的分量必須是相同的屬性組，并且在結(jié)果中把重復(fù)的屬性列去掉，所以根據(jù)T關(guān)系中的有序組可知R與S進(jìn)行的是自然連接操作。

　　15[單選題] 設(shè)窗體上有1個水平滾動條，已經(jīng)通過屬性窗口把它的Max屬性設(shè)置為1，Min屬性設(shè)置為100。下面敘述中正確的是( )。

　　A.程序運行時，若使?jié)L動塊向左移動，滾動條的Value屬性值就增加

　　B.程序運行時，若使?jié)L動塊向左移動，滾動條的Value屬性值就減少

　　C.由于滾動條的Max屬性值小于Min屬性值，程序會出錯

　　D.由于滾動條的Max屬性值小于Min屬性值，程序運行時滾動條的長度會縮為一點，滾動塊無法移動

　　參考答案：A

　　參考解析：水平滾動條的Max和Min屬性值可以是0～32767中任意值。當(dāng)Max>Min屬性值時，滾動塊向右移動Value屬性值增加，向左移動Value屬性值減少;反之，當(dāng)Max

　　16[單選題] 窗體上有一個名稱為Labell的標(biāo)簽;一個名稱為Timed的計時器，其Enabled和Interval屬性分別為True和1000。編寫如下程序：

　　Dim n As Integer

　　Private Sub Timerl_Timer()

　　運行程序，將在標(biāo)簽中

　　A.不停地依次顯示字符“A”、“B"、“C”、“D”，直至窗體被關(guān)閉

　　B.依次顯示字符“A”、“B”、“C”、“D”各一次

　　C.每隔1秒顯示字符“A”一次

　　D.每隔1秒依次顯示26個英文字母中的一個

　　參考答案：A

　　參考解析：Asc函數(shù)返回字符的ASCIl，Chr函數(shù)將數(shù)值轉(zhuǎn)換成相應(yīng)的ASCIII碼字符。計時器間隔Interval屬性設(shè)置為1000，則計時器事件每1秒鐘發(fā)生一次。n的值每次調(diào)用計時器事件過程都會加1，n=nMod4又會使n值只能為0、1、2、3，因此程序運行后每1秒Labell標(biāo)簽將依次顯示“A”、“B”、“C”、“D”。

　　17[單選題] 編寫如下程序：

　　程序運行后，單擊命令按鈕Commandl，輸出結(jié)果為

　　A.cdcbaB.cbacdC.cdacdD.cbed

　　參考答案：A

　　參考解析：Right(”abed”，2)從字串的右邊截取2個字符“cd”，Mid(”deba”，2，3)從第二個字符開始截取3個字符“cba”然后判斷X和Y的大小。選A.。

　　18[單選題] 假定有如下程序：

　　運行程序，單擊窗體，依次輸入3,6、9，輸出結(jié)果為

　　A.3B.6C.9D.1

　　參考答案：A

　　參考解析：For循環(huán)對數(shù)組a和b賦值。b(3)=a(1)，b

　　(2)=a(2)，b(1)=a(3)，循環(huán)結(jié)束時k=3。因此選A.。

　　19[單選題] 在窗體上畫一個名為Commandl的命令按鈕，然后編寫以下程序：

　　運行程序，單擊命令按鈕，在窗體上顯示的是( )。.

　　A.6B.5C.7 D.8

　　參考答案：A

　　參考解析：從程序中可知，數(shù)組M元素M(1)～M(10)的值為11、10、9、8、7、6、5、4,3、2。則M(8)的值為4，M(2+M(8))即M(2+4)，即M(6)。M(6)的值為6。因此窗體上 顯示為6。

　　20[單選題] 設(shè)工程中有2個窗體：Forml、Form2，F(xiàn)orml為啟動窗體。Form2中有菜單，其結(jié)構(gòu)如表。要求在程序運行時，在Forml的文本框Textl中輸入口令并按回車鍵(回車鍵的ASCIl碼為l3)后，隱藏Forml，顯示Foma2。若口令為“Teacher”，所有菜單都可見;否則看不到“成績錄入”菜單項。為此，某人在Forml窗體文件中編寫如下程序：

　　程序運行時發(fā)現(xiàn)剛輸入l3令時就隱藏了Forml，顯示了Form2，程序需要修改。下面修改方案中正確的是(　　)。

　　A.把Forml中Textl文本框及相關(guān)程序放到Form2窗體中

　　B.把Forml.Hide、Form2.Show兩行移到2個End If之間

　　C.把If KeyAscii=13 Then改為If KeyAscii=”Teacher”Then

　　D.把2個Form2.input.Visible中的“Form2.”刪去

　　參考答案：B

　　參考解析：原程序的執(zhí)行流程為，當(dāng)按下一個鍵后，激活KeyPress事件，事件中隱藏Fermi和顯示From2的語句與判斷是否按了回車鍵的語句是順序的，即不論按了什么鍵，都會執(zhí)行隱藏Forml和顯示From2的語句。這兩句應(yīng)該上移列第二個Endlf前面，也就是放在判斷是否按了回車鍵的If語句塊中。因此B選項正確。

　　相關(guān)推薦：

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

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

　　2016年計算機(jī)等級考試各級別報考適合專業(yè)類別