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

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

　　參考解析：

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

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

　　【操作步驟】

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

　　步驟2：打開代碼編輯窗口，去掉程序中的注釋符“´”，將問號(hào)改為正確的內(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)將第一個(gè)數(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)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。

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

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

　　運(yùn)行程序，單擊命令按鈕后，窗體上顯示的是

　　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[單選題] 在滿足實(shí)體完整性約束的條件下

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

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

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

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

　　參考答案：A

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

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

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

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

　　參考答案：D

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

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

　　A.程序運(yùn)行時(shí)，若使?jié)L動(dòng)塊向左移動(dòng)，滾動(dòng)條的Value屬性值就增加

　　B.程序運(yùn)行時(shí)，若使?jié)L動(dòng)塊向左移動(dòng)，滾動(dòng)條的Value屬性值就減少

　　C.由于滾動(dòng)條的Max屬性值小于Min屬性值，程序會(huì)出錯(cuò)

　　D.由于滾動(dòng)條的Max屬性值小于Min屬性值，程序運(yùn)行時(shí)滾動(dòng)條的長度會(huì)縮為一點(diǎn)，滾動(dòng)塊無法移動(dòng)

　　參考答案：A

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

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

　　Dim n As Integer

　　Private Sub Timerl_Timer()

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

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

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

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

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

　　參考答案：A

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

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

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

　　A.cdcbaB.cbacdC.cdacdD.cbed

　　參考答案：A

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

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

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

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

　　參考答案：A

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

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

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

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

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

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

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

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

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

　　D.把2個(gè)Form2.input.Visible中的“Form2.”刪去

　　參考答案：B

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

　　相關(guān)推薦：

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

　　各地2016年全國計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總

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