點(diǎn)擊查看：2015計(jì)算機(jī)二級(jí)《VB》過(guò)關(guān)習(xí)題及答案精選匯總

　　1[簡(jiǎn)答題]在考生文件夾下有一個(gè)工程文件sit5.vbp，窗體上有兩個(gè)命令按鈕，標(biāo)題分別是“讀數(shù)據(jù)”和“統(tǒng)計(jì)”，請(qǐng)?zhí)砑右粋�(gè)名稱為L(zhǎng)abel1、標(biāo)題為“回文個(gè)數(shù)為”的標(biāo)簽和一個(gè)名稱為T(mén)ext1，初始內(nèi)容為空的文本框，如圖所示。程序功能如下：

　　①單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in.5.dat文件的內(nèi)容讀到變量s中;

　�、趩螕簟敖y(tǒng)計(jì)”按鈕，則統(tǒng)計(jì)in5.dat文件(該文件中僅含由空格間隔開(kāi)的字符串)中回文的個(gè)數(shù)，并將統(tǒng)計(jì)的回文個(gè)數(shù)顯示在Textl文本框內(nèi)(所謂回文是指順讀與倒讀都一樣的字符串，如“recycer”)�！白x數(shù)據(jù)”和“統(tǒng)計(jì)”按鈕的Click事件過(guò)程已經(jīng)給出，請(qǐng)完善foundhuiwen過(guò)程的功能，實(shí)現(xiàn)上述程序功能。

　　注意：考生不得修改窗體文件中已存在的控件和程序，在結(jié)束程序運(yùn)行之前，必須先進(jìn)行統(tǒng)計(jì)，且必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無(wú)成績(jī)。最后，程序按原文件名存盤(pán)。

　　參考解析：

　　【考點(diǎn)分析】本題考點(diǎn)有：StrReverse()函數(shù)、Mid()函數(shù)、文件編輯、LOF()函數(shù)、Input()函數(shù)、For循環(huán)語(yǔ)句以及If判斷語(yǔ)句。

　　【解題思路】StrReverse()函數(shù)用于返回一個(gè)字符串，其中一個(gè)指定子字符串的字符順序是反向的。Mid()函數(shù)用于取字符子串。

　　【操作步驟】

　　步驟1：打開(kāi)本題工程文件，按照題目要求建立控件并設(shè)置屬性，如表3.29所示。

　　步驟2：打開(kāi)代碼編輯窗口，在代碼編輯窗口指定位置編寫(xiě)以下代碼。

　　參考答案

　　Function foundhuiwen(p As String)

　　If StrReverse(P)=P Then foundhuiwen

　　=True'StrReverse函數(shù)的功能是將字符串順序反轉(zhuǎn)

　　End Function

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

　　【易錯(cuò)提示】StrReverse()函數(shù)是一個(gè)不常見(jiàn)的函數(shù)，在運(yùn)用的時(shí)候要了解函數(shù)的語(yǔ)法才能應(yīng)用自如。

　　2[單選題]在編輯VB應(yīng)用程序時(shí)，如果不小心關(guān)閉了屬性窗口，則可以單擊主窗口標(biāo)準(zhǔn)工具欄上的一個(gè)按鈕直接打開(kāi)屬性窗口，這個(gè)按鈕的圖標(biāo)是

　　A.

　　B.

　　C.

　　D.

　　參考答案：D

　　參考解析：按F4鍵，或單擊工具欄中“屬性窗口”鈕，或選取“視圖”菜單中的“屬性窗口”子菜單，均可打開(kāi)屬性窗口。

　　3[單選題] 以下關(guān)于鍵盤(pán)事件的敘述中，錯(cuò)誤的是(　　)。

　　A.按下鍵盤(pán)按鍵既能觸發(fā)KeyPress事件，也能觸發(fā)KeyDown事件

　　B.KeyDown、KeyUp事件過(guò)程中，大、小寫(xiě)字母被視作相同的字符

　　C.KeyDown、KeyUp事件能夠識(shí)別Shift、Ah,Ctd等鍵

　　D.KeyCode是KeyPress事件的參數(shù)

　　參考答案：D

　　參考解析：當(dāng)用戶按下鍵盤(pán)上的任意鍵時(shí)，會(huì)觸發(fā)當(dāng)前擁有焦點(diǎn)對(duì)象的KeyDown事件，用戶松開(kāi)鍵盤(pán)上任意鍵時(shí)，就會(huì)觸發(fā)KeyUp事件。當(dāng)用戶按下又松開(kāi)鍵盤(pán)上任意鍵時(shí)，觸發(fā)KeyPress事件。故A選項(xiàng)正確。

　　KeyDown事件和KeyUp事件均向事件過(guò)程返回兩個(gè)參數(shù)KeyCode和Shift。KeyCode參數(shù)返回所按鍵對(duì)應(yīng)的ASCⅡ字符代碼的整型數(shù)值或鍵代碼常數(shù)，大小寫(xiě)字符被看作是相同字符，返回同一個(gè)KeyCode值。故B選項(xiàng)正確。

　　Shift參數(shù)用于判斷用戶是否按下Shift、Ctrl和Alt鍵，若用戶按下了對(duì)應(yīng)的鍵，Shift參數(shù)會(huì)返回不同的值。根據(jù)以上KeyDown和KeyUp事件能識(shí)別Shift、Ctrl和Alt鍵。故c選項(xiàng)正確。

　　KeyPress事件只有一個(gè)參數(shù)KeyAscii，它可以返回按鍵對(duì)應(yīng)的Ascii值，大小寫(xiě)字母Ascii值不同。KeyCode不是Key-Press事件的參數(shù)。故D選項(xiàng)錯(cuò)誤。

　　4[單選題] 有如下數(shù)據(jù)定義語(yǔ)句：

　　Dim a，b As Integer

　　Dim x%.y as Integer

　　執(zhí)行上述語(yǔ)旬后，不是整型變量的是

　　A.aB.bC.xD.Y

　　參考答案：A

　　參考解析：在VisualBasic中，變量的定義格式有兩種，第一種是：Declare變量名As類型，“Declare”可以是Dim，Static，Redim，Public或Private，“As”是關(guān)鍵字，“類型”可以是基本的數(shù)據(jù)類型也可以是用戶自定義的類型;第二種是用類型說(shuō)明符來(lái)定義變量，即在定義變量名后面加上類型說(shuō)明符;如果變量名后面沒(méi)有類型說(shuō)明符，又不是第一種定義方式的話，則定義的變量是變體變量。

　　5[單選題] 窗體上有一個(gè)由兩個(gè)文本框組成的控件數(shù)組，名稱為T(mén)extl，并有如下事件過(guò)程：

　　關(guān)于上述程序，以下敘述中錯(cuò)誤的是(　　)。

　　A.Index用于標(biāo)識(shí)數(shù)組元素

　　B.本程序中Case Else分支的語(yǔ)句永遠(yuǎn)不會(huì)被執(zhí)行

　　C.向任何一個(gè)文本框輸入字符，都會(huì)在另一個(gè)文本框中顯示該字符

　　D.下標(biāo)為0的文本框中顯示的字符尺寸將越來(lái)越小

　　參考答案：D

　　參考解析：控件數(shù)組的Index屬性作為控件數(shù)組的下標(biāo)，用于標(biāo)識(shí)數(shù)組元素。題目中程序功能是當(dāng)任一個(gè)文本框內(nèi)容改變時(shí)設(shè)置第2個(gè)文本框的字號(hào)是第1個(gè)文本框字號(hào)的2倍，同時(shí)兩個(gè)文本框顯示相同文字。假如用戶沒(méi)有使用控件數(shù)組的Index屬性的默認(rèn)值程序?qū)?zhí)行到Else分支。

　　6[單選題] 設(shè)有如下事件過(guò)程：

　　運(yùn)行程序，輸出是

　　A.2B.3C.5D.9

　　參考答案：B

　　參考解析：本題程序中內(nèi)層For循環(huán)是統(tǒng)計(jì)具有相同值素的個(gè)數(shù)，外層循環(huán)的功能則是，對(duì)數(shù)組中的所有元素進(jìn)行統(tǒng)計(jì)，找出第1個(gè)具有相同值的元素個(gè)數(shù)最多的那個(gè)元素值。數(shù)組組中元素值為3的元素有5個(gè)，元素值為5的元素有5個(gè)，元素值為6的元素為3個(gè)，元素值為2的元素有1個(gè)，元素值為4的元素有1個(gè)，元素值為9的元素有1個(gè)。因此第1個(gè)具有相同元素值的最多個(gè)的元素值是3。

　　7[單選題] 設(shè)有以下定義語(yǔ)句：

　　PrivateTypepoint

　　下面語(yǔ)句中正確的是

　　A.a=12B.a.x=12C.point=12D.point.X=12

　　參考答案：B

　　參考解析：用戶可以利用Type語(yǔ)句定義自己的數(shù)據(jù)類型，其格式如下：

　　Type自定義類型名

　　元素名(下標(biāo))As類型名

　　[元素名(下標(biāo))As類型名]

　　EndType

　　要表示某個(gè)自定義數(shù)據(jù)類型的變量中某個(gè)元素時(shí)，形式如下：變量名.元素名。所以選項(xiàng)B.是正確的。

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

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

　　參考解析：

　　本題要產(chǎn)生隨機(jī)整數(shù)，須使用Rnd函數(shù)和

　　Int函數(shù)。

　　Int函數(shù)是將參數(shù)轉(zhuǎn)換成整數(shù)。

　　Rnd函數(shù)返回小于l，但大于或等于0的值，為了生成某個(gè)范圍內(nèi)的隨機(jī)整數(shù)，可使用以下公式：

　　Int((upperbound—lowerbound+1)}Rnd+lowerbound)

　　這里，upperbound是隨機(jī)數(shù)范圍的上限，lowerbound則是隨機(jī)數(shù)范圍的下限。

　　【操作步驟】

　　步驟l：打開(kāi)本題工程文件。步驟2：分析并編寫(xiě)程序代碼。程序提供代碼.

　　Option Base l

　　Private Sub Commandl—Click()Dim afrN(20)As IntegerDim Sum As Integer

　　RandomiZe

　　Fori=1 T0 20

　　'arrN(i)=Int(Rnd}?)Nexti

　　'Sum=?

　　Fori=1 T0 20Ⅱ7 Then

　　"sum=?

　　End If。Nexti

　　蹦nt SumEnd Sub

　　程序結(jié)束參考答案第1個(gè)?處填入：l000

　　第2個(gè)?處填入：0

　　第3個(gè)?處填入：arrN(i)<500第4個(gè)?處填入：Sam+arrN(i)步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。

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

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

　　參考解析：

　　表達(dá)式Int(Rnd*1000)可生成o～1000 范圍內(nèi)隨機(jī)整數(shù)。根據(jù)題意求出20個(gè)隨機(jī)整數(shù)的平均值，須 用For循環(huán)語(yǔ)句逐一將數(shù)組中的各元素累加到變量Sum，然后 求出平均值。

　　【操作步驟】

　　步驟l：打開(kāi)本題工程文件。

　　步驟2：分析并編寫(xiě)程序代碼。

　　程序提供代碼

　　程序結(jié)束

　　參考答案

　　第1個(gè)?處填入：l000

　　第2個(gè)?處填入：0

　　第3個(gè)?處填入：Sum+arrN(i)

　　第4個(gè)?處填入：Sum/20

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

　　10[簡(jiǎn)答題] 在考生文件夾下有一個(gè)工程文件sjt4.vbp，相應(yīng)的窗體文件為sit4.frm，在窗體上有一個(gè)文本框和一個(gè)命令按鈕。程序運(yùn)行后，單擊命令按鈕，即可計(jì)算出0～1000范圍內(nèi)不能被7整除的整數(shù)的個(gè)數(shù)，并在文本框中顯示出來(lái)。在窗體的代碼窗口中，已給出了部分程序，其中計(jì)算不能被7整除的整數(shù)的個(gè)數(shù)的操作在通用過(guò)程Fun中實(shí)現(xiàn)，請(qǐng)編寫(xiě)該過(guò)程的代碼。

　　要求：請(qǐng)勿改動(dòng)程序中的任何內(nèi)容，只在FunctionFun()和EndFunction之間填入你編寫(xiě)的若干語(yǔ)句。最后將修改后的文件按原文件名存盤(pán)。

　　參考解析：

　　【考點(diǎn)分析】本題考點(diǎn)有：Mod運(yùn)算符、文件編輯、For循環(huán)語(yǔ)句、If判斷語(yǔ)句以及過(guò)程函數(shù)。

　　【解題思路】可通過(guò)求余運(yùn)算符Mod來(lái)計(jì)算某數(shù)M能否被7整除，如果MMod7=0，那么M能被7整除;如果MMod7<>0，那么M不能被7整除�？衫肍or循環(huán)語(yǔ)句來(lái)逐個(gè)判斷0～1000范圍內(nèi)的整數(shù)能否被7整除，然后用一個(gè)變量來(lái)統(tǒng)計(jì)不能被7整除的整數(shù)個(gè)數(shù)。

　　【操作步驟】

　　步驟1：打開(kāi)本題工程文件。

　　步驟2：打開(kāi)代碼編輯窗口，在代碼編輯窗口指定位置編寫(xiě)以下代碼。

　　參考答案

　　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)閉程序后按題目要求存盤(pán)。

　　相關(guān)推薦：

　　2015計(jì)算機(jī)二級(jí)《C語(yǔ)言》精選練習(xí)題及答案匯總

　　2015計(jì)算機(jī)二級(jí)考試《VB》模擬練習(xí)題及解析匯總

　　2015年12月計(jì)算機(jī)等級(jí)考試通關(guān)分享：如何做題？