超碰伊人这里只有精品,国产草莓视频无码免费视频

相關(guān)推薦

2017計(jì)算機(jī)二級(jí)《VB》考試鞏固習(xí)題及答案

　　“一分耕耘一分收獲”只要我們肯付出汗水付出努力，那么我們會(huì)得到學(xué)習(xí)中最大的快樂。以下是百分網(wǎng)小編整理的2017計(jì)算機(jī)二級(jí)《VB》考試鞏固習(xí)題及答案，歡迎學(xué)習(xí)!

2017計(jì)算機(jī)二級(jí)《VB》考試鞏固習(xí)題及答案

　　一、基本操作題

　　(1)在名稱為Forml的窗體上畫兩個(gè)標(biāo)簽(名稱分別為Labell和Label2，標(biāo)題分別為“姓名”和“年齡”)、兩個(gè)文本框(名稱分別為Textl和Text2，初始內(nèi)容均為空)和一個(gè)命令按鈕(名稱為Commandl，標(biāo)題為“顯示”)。然后編寫命令按鈕的Click事件過程。程序運(yùn)行后，在兩個(gè)文本框中分別輸人姓名和年齡，然后單擊“顯示”按鈕，則在窗體上顯示兩個(gè)文本框中的內(nèi)容，如圖所示。要求程序中不得使用任何變量。

　　注意：存盤時(shí)必須存放在考生文件夾下，工程文件名保存為sjtl.vbp，窗體文件名保存為sjtl.frm。

　　(2)在名稱為Forml的窗體上畫一個(gè)圖片框，其名稱為Picturel，一個(gè)水平滾動(dòng)條，名稱為HScrolll，一個(gè)命令按鈕，名稱為Commandl，標(biāo)題為“設(shè)置屬性”，通過屬性窗口在圖片框中裝入一個(gè)圖形(文件名為piel.jPg，位于考生目錄下)，圖片框的高度與圖形的高度相同，圖片框的寬度任意(如圖1所示)。編寫適當(dāng)?shù)氖录^程，程序運(yùn)行后，如果單擊命令按鈕，則設(shè)置水平滾動(dòng)條的屬性如下：

　　Minl00

　　Maxl500

　　LargeChangel00

　　SmaUChangel0

　　之后就可以通過移動(dòng)滾動(dòng)條上的滾動(dòng)塊來放大或縮小圖片框。程序運(yùn)行后的窗體如圖2所示。要求程序中不得使用任何變量。

　　注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。

　　二、簡單應(yīng)用題

　　(1)在考生文件夾下有一個(gè)工程文件sit3.vbp(相應(yīng)的窗體文件名為sit3.frm)，在窗體上添加一個(gè)名稱為Listl的列表框和一個(gè)名稱為Textl的文本框，如圖1所示。編寫窗體的MouseDown事件過程。程序運(yùn)行后，如果用鼠標(biāo)單擊窗體，則從鍵盤上輸入要添加到列表框中的項(xiàng)目(內(nèi)容任意，不少于三個(gè));如果用鼠標(biāo)右鍵單擊窗體，則從鍵盤上輸入要?jiǎng)h除的項(xiàng)目，將其從列表框中刪除。程序的運(yùn)行情況如圖2所示。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。

　　要求：去掉程序中的注釋符，把程序中的?改為適當(dāng)?shù)膬?nèi)容，使其正確運(yùn)行，但不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。

　　(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp(相應(yīng)的窗體文件名為sjt4.frm)，其功能是通過調(diào)用過程FindMin求數(shù)組的最小值。程序運(yùn)行后，在4個(gè)文本框中各輸入一個(gè)整數(shù)，然后單擊命令按鈕，即可求出數(shù)組的最小值，并在窗體上顯示出來(如圖所示)。

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

　　最后把修改后的文件按原文件名存盤。

　　三、綜合應(yīng)用題

　　在窗體上建立三個(gè)菜單(名稱分別為Read、Cale和Save，標(biāo)題分別為“讀人數(shù)據(jù)”、“計(jì)算并輸出”和“存盤”)，然后再添加一個(gè)文本框，名稱為Textl，MuhiLine屬性設(shè)置為True，ScrollBars屬性設(shè)置為2(如圖所示)。程序運(yùn)行后，如果執(zhí)行“讀人數(shù)據(jù)”命令，則讀入考生文件夾下datainl.txt文件中的100個(gè)整數(shù)，放人一個(gè)數(shù)組中，數(shù)組的下界為1;如果單擊“計(jì)算并輸出”按鈕，則把該數(shù)組中下標(biāo)為偶數(shù)的元素在文本框中顯示出來，求出它們的和，并把所求得的和在窗體上顯示出來;如果單擊“存盤”按鈕，則把所求得的和存入考牛文件夾下的dataout.txt文件中。

　　在考生文件夾下有一個(gè)工程文件sjt5.vbp，窗體文件中的ReadData過程可以把datainl.txt文件中的100個(gè)整數(shù)讀入Arr數(shù)組中;而WriteData過程可以把指定的整數(shù)值寫到考生文件夾下指定的文件中(整數(shù)值通過計(jì)算求得，文件名為dataout.txt)。

　　注意：考生不得修改窗體文件中已經(jīng)存在的程序。存盤時(shí)，工程文件名仍保存為sit5.vbp，窗體文件名仍保存為sjt5.frm。

　　參考答案及解析：

　　一、基本操作題

　　(1)【考點(diǎn)分析】本題考點(diǎn)有：標(biāo)簽的Name和Caption屬性、文本框Name和Text屬性、命令按鈕的Name和Caption屬性、“&”和“+”運(yùn)算符以及Print方法。

　　【解題思路】通過標(biāo)簽的Name和Caption屬性設(shè)置標(biāo)簽的名稱和標(biāo)題，通過文本框Name和Text屬性設(shè)置文本框的名稱和文本，通過命令按鈕的Name和Caption屬性設(shè)置命令按鈕的名稱和標(biāo)題，“&”和“+”運(yùn)算符均可將兩個(gè)表達(dá)式作為字符串連接。在窗體上輸出文本內(nèi)容可使用Print方法。

　　【操作步驟】

　　步驟1：新建一個(gè)窗體，按照題目要求建立控件并設(shè)置相應(yīng)屬性，程序中用到的控件及屬性如表3.16所示。

　　步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。

　　參考答案

　　PrivateSubCommandl_Click()

　　Forml.PrintTextl.Text&"，現(xiàn)年"&

　　Text2.Text&"歲"

　　EndSub

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

　　(2)【考點(diǎn)分析】本題考點(diǎn)有：水平滾動(dòng)條的Name、Max、Min、LargeChange、SmallChange和Value屬性，圖片框的Width、Name和Picture屬性以及命令按鈕的Name和Caption屬性。

　　【解題思路】在設(shè)計(jì)階段通過Picture屬性為圖片框指定顯示的圖片，通過Wi&h屬性來設(shè)定或修改圖片框的寬度。通過調(diào)整滾動(dòng)條滑塊的位置即可改變其Value屬性的值，滾動(dòng)條的Max和Min屬性限定了滾動(dòng)條所能表示的最大值和最小值，LargeChange屬性用于設(shè)置當(dāng)單擊滑塊與兩側(cè)箭頭問區(qū)域時(shí)Value屬性值的改變量，SmallChange屬性用于設(shè)置當(dāng)單擊滾動(dòng)條兩側(cè)箭頭時(shí)Value屬性值的改變量。當(dāng)改變滾動(dòng)條滑塊位置后將觸發(fā)其Change事件。

　　【操作步驟】

　　步驟1：新建一個(gè)窗體，添加控件并設(shè)置相應(yīng)的屬性。程序中用到的控件及其屬性見表3.17。

　　步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。

　　參考答案

　　PrivateSubCommandl_Click()

　　HScrolii.Max=1500´設(shè)置滾動(dòng)條的最大值、最小

　　值、最大改變值、最小改變值

　　HSCro111.Min=100

　　HScrolll.LargeChange=100

　　HScrolll.SmaliChange=10

　　EndSub

　　PrivateSubHScrolii_Change()

　　Picturel.Width=HScrolii.Value´將圖片的width與滾動(dòng)條的Value保持一致EndSub

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

　　二、簡單應(yīng)用題

　　(1)【考點(diǎn)分析】本題考點(diǎn)有：列表框的Name、List和ListCount屬性，文本框的Name和Text屬性，Removehem方法，InputBox函數(shù)，F(xiàn)or循環(huán)語句以及If判斷語句。

　　【解題思路】當(dāng)在窗體上按下鼠標(biāo)鍵時(shí)將觸發(fā)其Mouse-Down事件，該事件過程的參數(shù)Button值為1時(shí)表示當(dāng)前按下的是鼠標(biāo)左鍵;當(dāng)Button值為2時(shí)表示當(dāng)前按下的是鼠標(biāo)右鍵。向列表框添加項(xiàng)目使用Addhem方法，刪除列表項(xiàng)使用Removehem方法。當(dāng)執(zhí)行刪除操作時(shí)，本題在For循環(huán)語句中逐一判斷列表中各項(xiàng)是否與輸入內(nèi)容一致，若一致則刪除列表框中該項(xiàng)。

　　程序中用到了InputBox()函數(shù)，其格式為：

　　InputBox(prompt[，title][，default][，xpos][，ypos][，helpfile，context])

　　其中常用參數(shù)為prompt和title。prompt是一個(gè)字符串，其長度不得超過1024個(gè)字符，它是在對(duì)話框內(nèi)顯示的信息，用來提示用戶輸入。

　　title：是一個(gè)字符串，它是對(duì)話框的標(biāo)題，顯示在對(duì)話框頂部的標(biāo)題區(qū)。

　　【操作步驟】

　　步驟1：打開本題工程文件，按表3.18所列在窗體畫出控件并設(shè)置其屬性。

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

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

　　PrivateSubForm_MouseDown(ButtonAsInte-ger，ShiftAsInteger，XAsSingle，YAsSingle)

　　IfButton=lThen

　　Textl.Text=InputBox("請(qǐng)輸入要添加的項(xiàng)目")

　　Listl.AddItem__________´將Textl中的內(nèi)容加入列表

　　EndIf

　　IfButton=2Then

　　Textl.Text=InputBox("請(qǐng)輸入要?jiǎng)h除的項(xiàng)目")

　　´列表總數(shù)用LiStCount求得

　　Fori=0To__________

　　´判斷列表項(xiàng)是否為要?jiǎng)h除的項(xiàng)

　　IfListl.List(i)=__________

　　Then

　　´刪除i所對(duì)應(yīng)的項(xiàng)

　　Listl.RemoveItem__________

　　EndIf

　　Nexti

　　EndIf

　　EndSub

　　程序結(jié)束

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

　　【易錯(cuò)提示】列表數(shù)組List(i)下標(biāo)從0開始，列表項(xiàng)的循環(huán)上限應(yīng)為ListCount-1，要注意InputBox語句的格式。

　　(2)【考點(diǎn)分析】本題考點(diǎn)有：Array()函數(shù)，UBound()函數(shù)，LBound()函數(shù)，Val()函數(shù)，Print方法，CInt()函數(shù)，F(xiàn)or循環(huán)語句以及If判斷語句。

　　【解題思路】文本框里的內(nèi)容(包括數(shù)字)默認(rèn)都是當(dāng)做字符串來處理的，如果需要參與數(shù)據(jù)運(yùn)算，則需先用Val()函數(shù)將其轉(zhuǎn)化為數(shù)字(例如Val(Textl.Text))。CInt函數(shù)將數(shù)值轉(zhuǎn)換為整型。

　　這里需要指出的是，利用Array對(duì)數(shù)組各元素賦值，聲明數(shù)組的類型只能是Variant。

　　在本題的FindMin過程中，用變量Min記錄最小值，最初把數(shù)組的第一個(gè)元素的值賦給Min，然后通過For循環(huán)語句將其后的元素依次與之比較，如果小于Min的值則與之交換，依次類推，最終Min的值就是數(shù)組各元素中的最小值。在窗體上打印信息可以通過Print方法來實(shí)現(xiàn)，其形式為：

　　[對(duì)象.]Print要顯示的內(nèi)容

　　【操作步驟】

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

　　步驟2：打開代碼編輯窗口，去掉程序中的注釋符“´”，

　　將問號(hào)改為正確的內(nèi)容。

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

　　OptiOnBase1

　　PrivateFunctionFindMin(a()AsInteger)

　　DS_mStartAsInteger

　　DimFinishAs2nteger，iAsInteger

　　Start=__________(a)´求數(shù)組下界值

　　Finish=__________求數(shù)組上界值

　　Nin=__________(Start)´將第一個(gè)數(shù)賦給最小值進(jìn)行比較

　　Fori=StartToFinish鋸環(huán)判斷找最小值

　　Ifa(i)__________NJ_nThenNin=__________

　　Nexti

　　FindNin=Min

　　EndFunctioil

　　PrivateSubCommandl_Click()

　　Dimarrl

　　Dimart2(4)AsInteger

　　arrl=Array(Val(Textl.Text)，Val

　　(Text2.Text)，Val(Text3.Text：)，Val(Text4.Text))´申請(qǐng)arrl數(shù)組并初始化

　　Fori=1To4

　　art2(i)=CInt(arrl(i))´CTnt函數(shù)將

　　arrl中的數(shù)值轉(zhuǎn)換為整型

　　Next;i

　　M=FindNin(__________)

　　Print"最小值是：";M

　　EndSub

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

　　【易錯(cuò)提示】0ptionbase在模塊級(jí)別中使用，用來聲明數(shù)組下標(biāo)的默認(rèn)下界，optionbase后面只能是0或者l，默認(rèn)值為0。

　　三、綜合應(yīng)用題

　　【考點(diǎn)分析】本題考點(diǎn)有：文本框的Name、MultiLine、SerollBars和Text屬性，文件操作，菜單編輯器的使用(名稱、標(biāo)題、內(nèi)縮符號(hào))，Art()函數(shù)以及Space()函數(shù)。

　　【解題思路】根據(jù)題意在“讀人數(shù)據(jù)”命令的Click事件過程中，通過調(diào)用ReadData過程將數(shù)據(jù)從datainl.txt文件讀入到數(shù)組Arr(窗體變量)中;在“計(jì)算并輸出”命令的Click事件過程中，在For循環(huán)語句(循環(huán)變量i的初值為2，終值為100，步長為2)中依次將數(shù)組Art中下標(biāo)為偶數(shù)的元素顯示在文本框中，并將其值累加到變量sum;在“存盤”命令的Click事件過程中，通過調(diào)用WriteData過程將sum的值寫入數(shù)據(jù)文件dataout.txt中。

　　【操作步驟】

　　步驟1：打開本題工程文件，利用菜單設(shè)計(jì)器，按表中的設(shè)置建立菜單項(xiàng)，在窗體Forml中繪制一個(gè)文本框，其相關(guān)屬性及其值見表3.19和表3.20。

　　步驟2：打開代碼編輯窗口，在代碼編輯窗口指定位置編寫以下代碼。

　　參考答案

　　´需要考生編寫的內(nèi)容

　　DimSl.1mAsinteger

　　考生編寫程序結(jié)束

　　´需要考生編寫的內(nèi)容

　　PrivateSubCalc_Click()

　　Textl.Text=""

　　Fori=2Tol00Step2’從2開始循環(huán)，以2為步長的下標(biāo)都是偶數(shù)

　　Textl.Text;=Textl.Text&Art(i)&