2015年計算機考試《二級VB》全真機考操作題(一)附答案

2015年計算機考試《二級VB》全真機考

操作題Q)

本卷共分為3大題5小題，作答時間為180分鐘，總分100分，60分及格。

一、基本操作題，請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序（包括界面和代碼）

1、在名稱為Forml的窗體上建立一個名稱為“menul"、標(biāo)題為"文件"的彈出式菜單,

其含有三個菜單項，它們的標(biāo)題分別為："打開‘、"關(guān)閉"、"保存"，名稱分別為"ml"、

"m2"、"m3"。再添加一個命令按鈕，名稱為"Commandl"、標(biāo)題為"彈出菜單"。

要求：編寫命令按鈕的Click事件過程，使程序運行時，單擊"彈出菜單"按鈕可彈出"文

件"菜單（如圖所示）。

注意：程序中不得使用變量，事件過程中只能寫一條語句。存盤時必須存放在考生文件夾

下，工程文件名保存為sjt2.vbp,窗體文件名保存為sjt2.frm.

2、在名稱為Forml的窗休上添加一個名稱為Labell的標(biāo)簽，字號大小為四號，標(biāo)題為

"等級考試"，如圖1所示。通過設(shè)置屬性使標(biāo)簽初始為不顯示。請編寫適當(dāng)?shù)某绦?，?/p>

得運行程序時，窗體的標(biāo)題立即變?yōu)?標(biāo)簽"，單擊窗體時，顯示標(biāo)簽，如圖2所示。

注意：存盤時，將文件保存至考生文件夾下，且窗體文件名保存為sjt2.frm,工程文件

名保存為sit2.vbp。要求程序中不得使用變量，每個事件過程中只能寫一條語句。

_

?■等鎮(zhèn)

mI

%—一?°」

?。等減

限2

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

3、在考生文件夾下有一個工程文件sit3.vbp。其窗體文件上有一個標(biāo)題為"得分”的框

架，在框架中有一個名稱為Textl的文本框數(shù)組，含6個文本框控件;文本框Text2用來輸

入難度系數(shù)。程序運行時，在左邊的6個文本框中輸入6個得分，輸入難度系數(shù)后，單擊

"計算分數(shù)"按鈕，則可計算出最后得分并顯示在文本框Text3中（如圖所示）。計算方法：

去掉1個最高得分和1個最低得分，求剩下得分的平均分，再乘以3,再乘以難度系數(shù)。

最后結(jié)果保留到第2位小數(shù)，不四舍五入。

注意：文件中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程

序中的?改為正確的內(nèi)容，考生不能修改程序中的其他部分和各控件的屬性。最后把修改后

的文件按原文件名存盤。

4、在考生文件夾下有一個工程文件sit4.vbp,其窗體上有一個由八個圖片框控件組成的

控件數(shù)組、兩個命令按鈕及一個計時器控件，如圖I所示。

程序功能：

將計時器控件設(shè)置為每隔0.5秒觸發(fā)一次Timer事件。運行程序時，只顯示下標(biāo)為0的

圖片框控件數(shù)組元素，其他圖片框均不可見。單擊"開始"按鈕，數(shù)組中的每個圖片框自左

至右依次顯示，時間問隔為0.5秒，產(chǎn)生"月亮”從左向右移動的效果，如圖2所示。月

亮移到右端后再從左端重新開始。單擊"停止"按鈕，"月亮”停止移動。

要求：按照題目要求設(shè)置控件屬性，去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。

注意：不能修改程序的其他部分和控件屬性，最后將修改后的文件按原文件名進行存盤。

cu"8'n

圖2

三、綜合操作題

5、考生文件夾下有一個工程文件sit5.vbp，窗體上有兩個文本框，名稱分別為Textl、Text2,

都可以多行顯示。還有三個命令按鈕，名稱分別為cl、c2、c3,標(biāo)題分別為“取數(shù)"、"排

序"、"存盤"。"取數(shù)"按鈕的功能是將考生文件夾下的in5.dat文件中的50個整數(shù)

讀到數(shù)組中，并在Textl中顯示出來；"排序"按鈕的功能是對這50個數(shù)按升序排序，并

顯示在Text2中；"存盤"按鈕的功能是把排好序的50個數(shù)存到考生目錄下的out5.dat

文件中，如圖所示。在窗體中已經(jīng)給出了全部控件和部分程序代碼，要求閱讀程序并去掉程

序中的注釋符，把程序中的?改為正確的內(nèi)容，并編寫"排序"按鈕的Click事件過程，使

其實現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后將修改后的

文件按原文件名存盤。

以下為參考答案部分，有考點分析、解題思路、操作步驟!

1、參考解析：

【考點分析】本題考點有：命令按鈕的Name和Cap-tion屬性，菜單編輯器的使用(標(biāo)題、

名稱、內(nèi)縮符號)，菜單項的Visible屬性以及PopupMenu方法。

【解題思路】要創(chuàng)建彈出式菜單需要先用菜單編輯器來建立菜單，并將其主菜單項的可見

(Visible)屬性值設(shè)置為不可見，然后通過對象的Commandl.Click事件,執(zhí)行對象的

PopupMenu方法來顯小采單。

【操作步驟】

步驟1:建立界面，添加一個命令按鈕，設(shè)置其Name屬性為Commandl,Caption屬

性為"彈出菜單"。然后建立一個菜單，菜單的屬性見表3.420

*3.42

標(biāo)，文件打開關(guān)閉保存

名稱menulmlm2m3

內(nèi)，府與0111

步驟2:打開代碼編輯窗13,在指定位置編寫如下代碼。

參考答案

PrivateSubConwiandl_Click()

PopupMenutnenul區(qū)學(xué)第*menu1

EndSuh

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

2、參考解析:

【考點分析】本題考點有：標(biāo)簽的Name、C叩tion、Visi.ble和FontSize屬性以及窗體

的Caption屬性。

【解題思路】通過標(biāo)簽的Name、Caption和FontSize屬性設(shè)置標(biāo)簽的名稱、標(biāo)題和字

體大小，通過設(shè)置標(biāo)簽的Visible屬性為False，使標(biāo)簽初始為不可見。編寫適當(dāng)?shù)某绦颍?/p>

在Form.Load事件過程中，窗體的Caption屬性值立即變?yōu)?標(biāo)簽"，在Form_Click事

件過程中單擊窗體時，設(shè)置標(biāo)簽的Visible屬性為True顯示標(biāo)簽。

【操作步驟】

步驟1:新建一個窗體，按照題目要求建立控件并設(shè)置其屬性，如表3.37所示。

*3.37

控件標(biāo)簽

屬性XameCcplionVisibleEontSttt

設(shè)置值Ubcll等級考試Fabe四號字

步驟2:編寫程序代碼。

參考答案

PrivateSubFormjClick()

Labe11.Visible■True

EndSub

PrivateSubFonn_Load()

Forml.Caption-"標(biāo)簽”

Rnd

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

3、參考解析：

【考點分析】本題考點有：INT()函數(shù)、Val()函數(shù)、文本框數(shù)組的Text屬性、If判斷語句以

及For循環(huán)語句。

【解題思路】通過Val()函數(shù)獲取文本框數(shù)組的值，并把它轉(zhuǎn)換為數(shù)值型，通過循環(huán)語句和

判斷語句，找出最大值和最小值賦值給變量a和b,同時累加所有數(shù)值的和賦值給s,那么

最終的和為s-a-b,根據(jù)算法求剩下得分的平均分，乘以3,再乘以Text2中輸入的難度系

數(shù)，得出最終的得分。

【操作步驟】

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

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

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

PrivateSubCommandljClick()

DimkAsInteger,sAsSingle,aAsSingle,

bAsSingle

a?Vai(Textl(0).Text)'將第一個文本框的值

作為最大值院子a

b-a’將第一個歙作為最小值敢于b

Fork-1To5'制余文東極作為德耳次數(shù)的條件

s■s+Vai(Textl(k).Text)

IfS<Vai(Textl(k).Text)Then

'取出每個文本柩的值與最大值比收.求最大值

a■Vai(Textl(k).Text)

EndIf

Ifb>Vai(Textl(k).Text)Then

b口Vai(Textl(k).Text)

EndIf

Nextk

s"(s-a-b)/4

'根據(jù)矣求去掉一個最高分加一個最長分后求四科的平均分

s-8*3?Vai(Text2<Text)

'根?慝善此處應(yīng)續(xù)斗埼分

西4"Int(s*100)/100

*Int(N)是求小于或等于N的最大蔓做.用時將最后氈

歌星承在Text3上

EndSuh

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

4、參考解析：

【考點分析】本題考點有計時器的Interval和Ena-bled屬性，圖片框的Left、Top、Visible

屬性，Static局部變量定義，F(xiàn)or循環(huán)語句以及n判斷語句。

【解題思路】首先將Timerl的Interval屬性設(shè)置為500，使計時器控件設(shè)置為每隔0.5

秒觸發(fā)一次。在Form_Load事件過程中，通過圖片框Visible屬性設(shè)置只顯示下標(biāo)為0的

圖片框控件數(shù)組元素，其他下標(biāo)為1~7的圖片框均不顯示。單擊"開始"按鈕，計時器的

Enabled屬性設(shè)置為True,TimerlTimet事件啟動，運用循環(huán)語句將數(shù)組中的每個圖片框

自左向右依次顯示.產(chǎn)生"月亮”從左向右移動的效果，循環(huán)變量設(shè)置為局部變量Static,

使"月亮"移到右端后再從左端重新開始。單擊"停止"按鈕，"月亮"停止移動。

【操作步驟】

步驟1:打開本題工程文件，將Timed的Interval屬性設(shè)置為500。

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

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

PrivateSubForm_Load()

Picturel(0).Left?0

Picturel(0).Top-100

Fork-1To7

Picturel(k).Visible=False*Jr

我時,下林為1-7的四片拳不昱示

Next

EndSub

PrivateSubCommandljClick()

Timerl.Enabled=tfi短■單擊Cocrmandl按依.

Timer事件觸發(fā)

EndSub

PrivateSubCorunand2_Click()

Timerl.Enabled■False

EndSub

PrivateSubTimerlJTimer()

StaticiAsInteger

Picturel(i).Visible=False

?=s?1

Ifi?8Then?利斯四片是否找打到鼠好一張

i,0貨置i使

EndIf

Picturel(i).Visible=True

EndRi?h

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

【易錯提示】變量i要定義成局部變量才能使"月亮"移到右端后再從左端重新開始，如

果不設(shè)置計時器控件的In-terval屬性，則計時器不會起作用，編程的時候要注意。

5、參考解析：

【考點分析】本題考點有：Str()函數(shù)、"冒泡法"排序、For循環(huán)語句、開判斷語句以及文

件操作。

【解題思路】函數(shù)用于數(shù)值轉(zhuǎn)化為字符串，語法為：

strstr(number)0

在循環(huán)語句中Step表示步長，可以為正數(shù)，表示下一個變量加一個數(shù)，也可以為負數(shù)，

則相反，在默認情況下，步長為1,就不需要使用Step特意標(biāo)識。

"冒泡法”是一種重要的數(shù)據(jù)排序算法，它的核心思路是按順序讓一個數(shù)列中的每一個數(shù)都

與它之后的所有的數(shù)逐一進行比較，如果該數(shù)大于其后面的數(shù)，則把這兩個位置的數(shù)進行交

換。通過這樣的循環(huán)，最終按照從小到大的順序排列出該數(shù)列。從程序提供的代碼中可以看

出，整型數(shù)組a的使用范圍是本窗體中的所有事件過程，用來存放從文件中讀取的數(shù)據(jù)。在

排序中，使用雙重循環(huán)，外循環(huán)每循環(huán)一次，確定內(nèi)循環(huán)循環(huán)的次數(shù)，內(nèi)循環(huán)就是把本次循

環(huán)中最大的數(shù)，放在數(shù)組的最后面，這樣就可以實現(xiàn)對這50個數(shù)的升序排序。

【操作步驟】

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

步驟2:打開代碼編輯窗口，去掉程序中的注釋