國家二級VB機(jī)試（上機(jī)操作）模擬試卷

第1套

一、基本操作題（本題共2題，每題1.0分，共2分。）

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

1、在名稱為Forml的窗體上建立一個(gè)名稱為cmdArray的命令按鈕數(shù)組，含3個(gè)命

令按鈕，它們的Index屬性分別為0、1、2,標(biāo)題依次為“是”、“否”、“取消”，每

個(gè)按鈕的高、寬均為400、900o窗體的標(biāo)題為“按鈕示例”。運(yùn)行后的窗體如圖3-

，下2,干管后依

-LJ」」，」

26所示。圖3?26注意：存盤時(shí)必須存放在考生文件夾下，工程文件名

為vbsjlv.bp,窗體文件名為vbsjl.frm。

標(biāo)準(zhǔn)答案：審題分析本題只需按題目要求在窗體中畫一個(gè)命令按鈕控件數(shù)組即

可。操作步驟步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，單擊工具箱中的

CommandButton控件圖標(biāo)，在窗體Forml上拉出一個(gè)命令按鈕，在屬性設(shè)置窗口

中該單選按鈕名稱設(shè)置為cmdArray,Width屬性值設(shè)置為900,Height屬性值沒置

為400。步驟2：選中cmdArray控件，選擇【編輯】一【復(fù)制】命令，然后選擇

【編輯】一【粘貼】命令，在彈出的詢問是否建立控件數(shù)組的對話框中，選擇“是”

按鈕，如圖4-1所示，則可以建立cmdArray控件數(shù)組的第2個(gè)元素。再次選擇

【編輯】一【粘貼】命令，建立cmdArray控件數(shù)組的第3個(gè)元素。

?MKnMcAVfwIBMic

八己較鼻一個(gè)帕力?一",0?你?一個(gè)控件|?般*>

ISOPJ"好一

圖4d步驟3：依次選中cmdArray控件數(shù)組中各個(gè)元

素，設(shè)置它們的相關(guān)屬性，屬性及其值如表4-16所示。

表4/6

對徵屬性值

cmdArray(0)Caplion是

cmdArray(1)("aption否

cmdArray(2)Caption取消

窗體Caption按鈕示例

------------步驟4：按要求將文件保存至考生文

件夾中。考點(diǎn)鏈接選擇控件、控件數(shù)組。

知識點(diǎn)解析：暫無解析

2、在名稱為Forml的窗體上畫一個(gè)名稱為Drvl的驅(qū)動(dòng)器列表框，一個(gè)名稱為

Dirl的目錄列表框，一個(gè)名稱為Filel的文件列表框，名稱為Label1、標(biāo)題為“文

件名''的標(biāo)簽和名稱為Labe12、BorderStyle為1的標(biāo)簽。窗體的標(biāo)題設(shè)置為“文件系

統(tǒng)控件請編寫適當(dāng)?shù)某绦颍沟眠@三個(gè)文件系統(tǒng)控件可以同步變化，即當(dāng)驅(qū)動(dòng)

器列表框中顯示的內(nèi)容發(fā)生變化時(shí)，目錄列表框和文件列表框中顯示的內(nèi)容同時(shí)發(fā)

生變化。單擊文件列表框時(shí)，將選中的文件名顯示在Label2中，如圖3?27所示。

，較付鼻￡?

?%>>1

JKi—??“I

■MT9”，?H

文華8?一

圖3.27注意：要求程序中不得使用變量，事件過程中只能寫一條

語句。存盤時(shí)必須存放在考生文件夾下，工程文件名為vbsj2.vbp,窗體文件名為

vbsj2.frmo

標(biāo)準(zhǔn)答案：知識點(diǎn)播驅(qū)動(dòng)器列表框(DriveListBox)用來顯示當(dāng)前系統(tǒng)中所有有效磁

盤驅(qū)動(dòng)器的列表：目錄列表框(DirListBox)用來分層顯示指定磁盤驅(qū)動(dòng)器上的目錄

列表；文件列表框(FileListBox)用來顯示指定目錄中所選擇文件類型的文件列表，

默認(rèn)為*.*。在程序運(yùn)行時(shí)，驅(qū)動(dòng)器列表框的Drive屬性用來設(shè)置或返回選擇的驅(qū)動(dòng)

器(缺省值是當(dāng)前驅(qū)動(dòng)器)，目錄列表框的Path屬性用來設(shè)置或返回選擇的目錄(缺

省值是當(dāng)前路徑)，文件列表框的Path屬性用來設(shè)置或返回其當(dāng)前的目錄(缺省值是

當(dāng)前路徑)，文件列表框的FileName屬性可返回所選文件的文件名。審題分析要

在程序運(yùn)行時(shí)，能對系統(tǒng)中的文件進(jìn)行瀏覽，就要讓驅(qū)動(dòng)器列表框、目錄列表框和

文件列表框?qū)崿F(xiàn)同步變叱，關(guān)鍵是將驅(qū)動(dòng)器列表框、目錄列表框、文件列表框相互

關(guān)聯(lián)起來，這可通過編寫驅(qū)動(dòng)器列表框、目錄列表框的Change事件過程，使三者

的路徑保持一致來實(shí)現(xiàn)。操作步驟步驟1：新建“標(biāo)準(zhǔn)EXE”工程，往窗體Forml

中加入驅(qū)動(dòng)器列表框、目錄列表框控件、文件列表框控件各一個(gè)以及兩個(gè)標(biāo)簽，分

別設(shè)置它們的相關(guān)屬性，屬性及其值如表4-17所示。

It4-17

?性-3”\

業(yè)動(dòng)器列表框NameDrvl,

目錄列表框控件NameDirl二

文件列表框控件Nan)eFilel

NameLabelH

標(biāo)筌1

Caption文件名

NameLabel!

標(biāo)筌2Caption

Borderstyle1

窗體CaptionX您笆_步驟2：打開代碼編輯窗口，輸

入如下代碼：參考代碼：PrivateSubDrVl_Change()Dirl.Path=Drvl.DriveEnd

SubPriVateSubDirl_Change()Filel.Path=Dirl.PathEndSubPrivateSub

Filel_Click()Label2.CaDtion=Filel.FileNameEndSub步驟3：按要求將文件保

存至考生文件夾中。考點(diǎn)鏈接文件系統(tǒng)控件。

知識點(diǎn)解析：暫無解析

二、簡單應(yīng)用題(本題共2題，每題7.0分，共2分0)

3、在考生文件夾下有一個(gè)工程文件vbsj3.vbp,相應(yīng)的窗體文件名為

vbsj3.frmo在窗體上有一個(gè)命令按鈕，其名稱為cmdAdd,標(biāo)題為“添加”；有一

個(gè)文本框，名稱為txtSentense,初始內(nèi)容為窄白；有一個(gè)列表框，名稱為

IstWordo程序運(yùn)行后，在文本框中輸入一個(gè)英文句子(由多個(gè)單詞組成，各單詞之

間用一個(gè)空格分開)，然后單擊命令按鈕，程序?qū)言撚⑽木渥臃纸鉃閱卧~，并把

每個(gè)單詞作為一個(gè)項(xiàng)目添加到列表框中，如圖3-28所示。該程序不完整，請把它

要求：去掉程序中的注釋符，把程序中的”“改

為正確的內(nèi)容，使其能正確運(yùn)行，但不能修改程序中的其他部分。最后把修改后的

文件按原文件名存盤。程序源碼：PrivateSubcmdAddCIick()DimSIAsString,

S2AsStringDimIIAsInteqer'Sl=?11=1Do'DoWhileMid(Sl,II,1)<>?And

Il<=Len(Sl)S2=S2&Mid(Sl,II,1)11=11+1Loopf1stWord.Additem?'S2=?

11=11+1LoopWhileIl<=Len(Sl)EndSub

標(biāo)準(zhǔn)答案：審題分析程序設(shè)計(jì)思路：從文本框的第1個(gè)字符開始依次檢查其后面

的每一個(gè)字符，若發(fā)現(xiàn)空格則將其之前或兩個(gè)空格之間的字符串作為一個(gè)單詞添加

到列表框中。在D。循環(huán)(指內(nèi)循環(huán)，循環(huán)條件為：取出的字符為非空格字符且取

字符的起始位置沒有超出文本框的總字符數(shù),表達(dá)式為:Mid(Sl,II,1)<>""And

Il<=Len(Sl),X+Sl=txtSentense.Text,將Mid函數(shù)從文本框中取出的非空格字

符，逐個(gè)連接成一個(gè)單詞，語句為：S2=S2&Mid(Sl,II,1),每執(zhí)行一次循環(huán)體

取字符的起始位置加1，即11=11+1。當(dāng)遇到空格時(shí)結(jié)束循環(huán)，將得到的單詞(即變

量S2的值)用Additem方法添加到列表框中，并且清空變量S2,將取字符的起始

位置加1。之后繼續(xù)執(zhí)行內(nèi)循環(huán)以得到下一個(gè)單詞，直到取字符的起始位置(即變

量H的值)超過文本框的總字符數(shù)為止，外循環(huán)的條件為：UV=Len(Sl)。操作步

驟步驟1：打開考生文件夾下的工程文件vbsj3.vbpo步驟2：打開代碼編輯窗

口，去掉程序中的注釋符“7將問號”?”改為正確的內(nèi)容。參考代碼：

SI=txtSentense.TextDoWhileMid(SI,II,1)<>""Andll<=Len(Sl)

IstWord.AddhemS2s2="”步驟3：按要求將文件保存至考生文件夾中特別提示

以空格作為分隔單詞的依據(jù)是本題的關(guān)鍵，同時(shí)注意空格字符串和空字符串是完全

不同的。考點(diǎn)鏈接D。循環(huán)和While循環(huán)、常用內(nèi)部函數(shù)、選擇控件。

知識點(diǎn)解析：暫無解析

4、在考生文件夾下有一個(gè)工程文件vbsj4.vbp,請?jiān)诖绑w上畫三個(gè)文本框，其名

稱分別為Txll、Txt2和txtResu電文本框內(nèi)容分別設(shè)置為“等級考試”、“全國計(jì)算

機(jī)”和空白。然后畫兩個(gè)單選按鈕，其名稱分別為optChange和optLink,標(biāo)題分別

為“交換''和“連接”，如圖3-29所示。編寫適當(dāng)?shù)氖录绦颍笤诔绦蜻\(yùn)行時(shí)，

先單擊“交換”單選按鈕，使Txll文本框中內(nèi)容與Txt2文本框中內(nèi)容進(jìn)行交換，并

使“交換，，單選按鈕消失；然后單擊“連接”單選按鈕，則把交換后的Txtl和Txt2的

內(nèi)容以Txtl在前，Txt2在后的順序連接起來，并在txtResult文本框中顯示連接后

的內(nèi)容。存盤時(shí)，工程文件名為vbsj4.vbp,窗體文件名為vbsj4.frmo注

意：不得修改已經(jīng)給出的程序。在結(jié)束程序運(yùn)行之前，必須先單擊“交換”單選按

鈕，后單擊“連接”單選按鈕。退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕，否

則可能無成績。程序源碼：PrivateSubForm_Unload(CancelAsInteger)

Opcn"out4.txt"ForOutputAs#1Print#1.Txtl.Text.Txt2.Text*_

txtResult.TextClose#1EndSub

標(biāo)準(zhǔn)答案：審題分析根據(jù)題目要求，設(shè)計(jì)本題程序的思路：在。ptChange單選按

鈕的Click事件應(yīng)實(shí)現(xiàn)：將Txtl和Txt2文本框中的內(nèi)容互換，可以通過一個(gè)中間

變量來交換兩個(gè)文本框中的內(nèi)容，然后將optChange的Enable屬性設(shè)置為False。

在optlAnk單選按鈕的Click事件應(yīng)實(shí)現(xiàn)：將兩個(gè)文本框中的內(nèi)容連接進(jìn)來，這里

我們可以采用連接字符符號來連接兩個(gè)文本框的Text屬性。操作步驟步驟

1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，按表4-18在窗體中畫出控件并設(shè)置其相關(guān)屬性。

14-18

■IX值

NameTxtl

文本格1

Text等級考試

NameTxt2

文本框2

Text全國計(jì)算機(jī)

NametxtResult

文本框3

Text

NameoptChange

單選按鈕1

Caption交換

NameoptLink

雌選按鈕2

Caption山-----------步驟2：在代碼編輯窗口，編寫3

個(gè)按鈕的單擊事件過程。參考代碼：PriVateSuboptChange_Click()DimtempAs

Stringtcmp=Txtl.TextTxtl.Text=Txt2.TextTxt2.Tcxt=tcmp

optChange.Visible二FalseEndSubPriVateSuboptLink_Click()

txtResult.Text=Txtl.Text&Txt2.TextEndSub步驟3：按要求將文件保存至考

生文件夾中。考點(diǎn)鏈接選擇控件、變量、運(yùn)算符和表達(dá)式。

知識點(diǎn)解析：暫無解析

三、綜合應(yīng)用題（本題共7題，每題7.0分，共I分0）

5、在考生文件夾中有一個(gè)工程文件vbsj5.vbp（相應(yīng)的窗體文件為vbsj5.frm）。窗

體Forml.卜.有兩個(gè)名稱為Labi和Lab2的標(biāo)簽，它們的標(biāo)題分別為“密碼”和“允許

次數(shù)”；一個(gè)名稱為Cmdl的命令按鈕，其標(biāo)題為“確定”；兩個(gè)名稱分別為Txt1和

Txl2的文本框。其中Txtl用來輸入密碼（輸入時(shí)顯示“*”），無初始內(nèi)容，Txl2的初

始內(nèi)容為3。已給出了Cmdl的事件過程，但不完整，要求去掉程序中的注釋符

把程序中的問號"?”改為正確內(nèi)容，使得在運(yùn)行時(shí)，在Txtl中輸入密碼后，單

擊“確定”按鈕,如果輸入的是“123456”,則在Txtl中顯示“密碼正確”如圖3?30所

示：如果輸入其他內(nèi)容，單擊“確定”后，彈出如圖3-31所示的錯(cuò)誤提示對話框，

并且Txt2中的數(shù)字減1,最多可輸入3次密碼，若3次輸入錯(cuò)誤，則禁止再次輸

入。圖3?3O圖3?31程序源碼:

PrivateSubCmdl_Click()

'If??M1234&6<Then

Txtl.Text?”密碼正確”

'Txtl.?=,,

Else

Txt2.TextnTxt2.Text-1

■、:IfTxt2<Text>?Then

MsgBox"第”&(3-Txt2.Text)&_

”次密碼錯(cuò)誤，請重新輸入”

Else

MsgBox”3次輸入錯(cuò)誤，請退出”

?Txt1.Enabled"?

EndIf

EndIf

EndSub

底海容區(qū)「由畫分析根據(jù)施靛謹(jǐn)序，判而受標(biāo)Txtl輸入的密碼是否為

“123456”的條件表達(dá)式為：Txtl.Text=,,123456n；要去掉對文本框中輸入內(nèi)容的屏

蔽，需將其PasswordChar屬性值清空，即執(zhí)行語句：Txll.PasswordChar=""；每

輸入一次錯(cuò)誤密碼，文本框Txt2中的數(shù)字減1,當(dāng)文本框Txt2中數(shù)值還大于0

時(shí)，提示重新輸入，否則提示錯(cuò)誤，并禁用文本框Txtl。操作步驟步驟1：打開

考生文件夾中的本題工程文件vbsj5.vbp,將文本框Txtl的PasswordChar屬性值

設(shè)置為步驟2：在代碼編輯窗口，去掉程序中的注釋符“7將問號”?”改為正

確的內(nèi)容。參考代碼：IfTxtl.Text=',123456,ThenTxll.PassWOrdChar="°If

Txt2.Text>OThenTxtl.Enabled二Fake步驟3：按要求將文件保存至考生文件夾

中。考點(diǎn)鏈接文本控件、If選擇結(jié)構(gòu)。

知識點(diǎn)解析：暫無解析

家二級VB機(jī)試(上機(jī)操作)模擬試卷

第2套

一、基本操作題(本題共［題，每題7.0分，共I分。)

1、（1）在考生文件夾下的“sampl.accdb”數(shù)據(jù)庫中建立表“tTeacher”，表結(jié)構(gòu)如表

表2.1

結(jié)構(gòu)，判斷并設(shè)置主鍵。（3）設(shè)置“工作時(shí)間”字段的有效性規(guī)則：只能輸入上一年

度5月I日以前（含）的日期（規(guī)定：本年度年號必須用函數(shù)獲取）。（4）將“在職否”字

段的默認(rèn)值設(shè)置為真值，設(shè)置“郵箱密碼”字段的輸入掩碼，使輸入的密碼顯示勾6

位星號（密碼），設(shè)置“聯(lián)系電話”字段的輸入掩碼，要求前4位為后8位為

數(shù)字。⑸將“性別”字段值的輸入設(shè)置為“男”、"女’列表選擇。⑹在“tTeacher”表中

輸入以下兩條記錄，如表2.2所示。

表2.2

標(biāo)準(zhǔn)答案：（1）【操作步驟】在設(shè)計(jì)視圖中新建表，按題干中的表建立新字段。在

第一行“字段名稱”列輸入“編號”，單擊“數(shù)據(jù)類型”，在“字段大小”行輸入“5”。按上

述操作設(shè)置其他字段。單擊快速訪問工具欄中的“俁存”按鈕口，將表另存為

“tTcachcr”。如圖3.48所示。,⑵

【操作步驟】在表“iTeachet”設(shè)計(jì)視圖中右鍵單擊“編號”字段行，在彈出的快捷菜

單中選擇“主鍵”命令。如圖3.49所示。

圖3.49⑶【操作步驟】在表

“tTeacher”設(shè)計(jì)視圖中單擊“工作時(shí)間”字段行任一處，在“有效性規(guī)則”行輸入“<=

DatcSerial(Year(Date())-1,5,1)“。如圖3.50所示。

⑷(4)【操作步驟】步驟I：

在表“tTeacher”設(shè)計(jì)視圖中單擊“在職否”字段行任一處，在“默認(rèn)值”行輸入“True”,

單擊快速訪問工具欄中的“保存”按鈕口。如圖3.51所示。

圖3.51

步驟2：單擊“郵箱密碼”字段行

任一處，單擊“輸入掩碼”行的右側(cè)生成器按鈕-1,彈出“輸入掩碼向?qū)А睂υ捒?

在列表中選擇“密碼”行，單擊“完成”按鈕。如圖3.52所示。

圖3?52步驟3：單擊“聯(lián)系電話”字段行任一處,

在“輸入掩碼”行輸入“”010—“001300000”。如圖3.53所示。

圖3?53⑸【操作步驟】在“性別”

字段“數(shù)據(jù)類型”列下拉列表中選擇“查閱向?qū)А保瑥棾觥安殚喯驅(qū)А睂υ捒颍x擇“白

行鍵入所需的值''單選框，單擊“下一步按鈕，在光標(biāo)處輸入“男”，在下一行輸入

“女”，單擊“完成”按鈕。單擊快速訪問工具欄中的“保存”按鈕U,關(guān)閉設(shè)計(jì)視

圖。如圖3.54所示。圖3.54(6)【操作

步驟】雙山表"tTeacheF,按照題干要求添加數(shù)據(jù)。單擊快速訪問上具欄中的“保

存“按鈕口，關(guān)閉數(shù)據(jù)表。如圖3.55所示。

圖3.55

知識點(diǎn)解析：暫無解析

二、簡單應(yīng)用題(本題共［題，每題7.0分，共7分0)

2、考生文件夾下有一個(gè)數(shù)據(jù)庫文件“samp2.accdb”，其中存在已經(jīng)設(shè)計(jì)好的兩個(gè)

表對象“tEmployee”和“tGmup”。請按以下要求完成設(shè)計(jì)。⑴創(chuàng)建一個(gè)杳詢，查找

并顯示沒有運(yùn)動(dòng)愛好的職工的“編號”、“姓名”、“性別”、“年齡”和“職務(wù)”5個(gè)字段

內(nèi)容，將查詢命名為“qTl”。（2）創(chuàng)建一個(gè)查詢，查找并顯示聘期超過5年（使用甬

數(shù)）的開發(fā)部職工的“編號”、“姓名”、“職務(wù)”和“聘用時(shí)間”4個(gè)字段內(nèi)容，將查詢命

名為“qT2”。（3）創(chuàng)建一個(gè)查詢，計(jì)算5月份聘用的、男女生每個(gè)部門的最小年齡。

要求，第一列顯示性別，第一行顯示部門名稱，所建查詢命名為“qT3”。（4）創(chuàng)建一

個(gè)查詢，查找年齡低于所有職工平均年齡并且職務(wù)為經(jīng)理的職工記錄，并顯示“管

理人員”信息。其中管理人員由“編號”和“姓名”兩列信息合二為一構(gòu)成（比如，編號

為“000011”、姓名為“吳大偉”的數(shù)據(jù)輸出形式為“000011吳大偉”），所建查詢命名

為“qT4”。

標(biāo)準(zhǔn)答案：（1）【操作步驟】步驟1：在設(shè)計(jì)視圖中新建查詢，從“顯示表”對話框

中添力口表”[Employee"，關(guān)閉“顯示表”對話框。如圖3.56所示。

步驟2：雙擊“編號”、“姓

名,,、“性別,,、“年齡,,、“職務(wù),,、“簡歷,,字段，取消.，簡歷,,字段的顯示，在下面的

“條件”行輸入"NotLike”*運(yùn)動(dòng)*心。單擊快速訪問工具欄中的“保存”按鈕U,將查

詢另存為“qT廣，關(guān)閉設(shè)計(jì)視圖。如圖3.57所示。

圖3?57（2）【操作步驟】步驟1：單擊

“創(chuàng)建”選項(xiàng)卡中“查詢設(shè)計(jì)”按鈕，在“顯示表”對話框中雙擊表“Group”和

“Employee”，關(guān)閉“濕示表”對話框。步驟2：拖動(dòng)dEmployee”表的“所屬部門”字

段到々Group”表的“部門編號”字段。步驟3：雙擊，編號”、“姓名”、“職務(wù)”、“名

稱”字段。在“名稱”字段條件行輸入“開發(fā)部”，取消“顯示”行的勾選。步驟4：添

加新字段，Year（Date（））—Year（［聘用時(shí)間］）”，在條件行輸入“>5”，取消該字段的顯

示。如圖3.58所示。圖3.58步驟

5：單擊“保存”按鈕，將查詢另存為“qT2”。關(guān)閉設(shè)計(jì)視圖。（3）【操作步驟】步驟

1：單擊“創(chuàng)建”選項(xiàng)卡中“查詢設(shè)計(jì)”按鈕，在“顯示表”對話框雙擊表"Group”和

“tEmployec”，關(guān)閉“顯示表”對話框。步驟2：單擊“設(shè)計(jì)”選項(xiàng)卡“查詢類型”組中

“交叉表”按鈕。如圖3.59所示。

圖3.59步驟3：雙擊“性

別”、“名稱”、“年齡”和“聘用時(shí)間”字段,在“性別”字段列的“交叉表”行選擇“行標(biāo)

題'在"名稱”字段列的“交叉表',行選擇"列標(biāo)題'、，在“年齡',字段列的"交叉表''行選

擇“值”。步驟4：在“年齡”字段的“總計(jì)”行選擇“最小值”，在“聘用時(shí)間”字段的“總

計(jì)”行選擇“Where”，“條件”行輸入“Month（［聘用時(shí)間］）=5"。如圖3.60所示。

雙X考加所需字岐

圖3?60步驟5：單擊“保存”按鈕，將查詢

另存為“qT3”,關(guān)閉設(shè)計(jì)視圖。（4）【操作步驟】步驟1：單擊“創(chuàng)建”選項(xiàng)卡中“查

詢設(shè)計(jì)”按鈕，在“顯示表”對話框雙擊表”（Employee”，關(guān)閉“顯示表”對?話框。步驟

2：添加新字段“管理人員：［編號J+［姓名廣，雙擊添加,、職務(wù)”和'、年齡”字段。步驟

3：在“職務(wù)”字段條件行輸入“經(jīng)理”，在“年齡”字段條件行輸入“〈（selectavg（［年

齡］）from［tEmployee］）”，取消“職務(wù)”和“年齡”字段的顯示。如圖3.61所示。

R步驟4：單擊“保存”按鈕，

將查詢另存為“qT4”，關(guān)閉設(shè)計(jì)視圖。

知識點(diǎn)解析：暫無解析

三、綜合應(yīng)用題（本題共I題，每題7.0分，共I分。）

3、考牛文件夾下有一個(gè)數(shù)據(jù)庫文件上amp3.accdb\其中存在已經(jīng)設(shè)計(jì)好的窗體

對象“ffest”及宏對象“ml”。請?jiān)诖嘶A(chǔ)上按照以下要求補(bǔ)充窗體設(shè)計(jì)。⑴在窗體

的窗體頁眉節(jié)區(qū)中添加一個(gè)標(biāo)簽控件，名稱為“bTide”，標(biāo)題為“窗體測試樣例”。

（2）在窗體主體節(jié)區(qū)中添加兩個(gè)復(fù)選框控件，復(fù)選框選項(xiàng)按鈕分別命名為“optl”和

“opt2”，對應(yīng)的復(fù)選框標(biāo)簽顯示內(nèi)容分別為“類型a”和“類型b”，標(biāo)簽名稱分別為

“boptl”和“bop⑵（3）分別設(shè)置復(fù)選框選項(xiàng)按鈕opil和opt2的“默認(rèn)值”屬性為假

值。（4）在窗體頁腳節(jié)區(qū)添加一個(gè)命令按鈕，命名為“bTest"，按鈕標(biāo)題為“測試”。

（5）設(shè)置命令按鈕bTest的單擊事件屬性為給定的宏對象mlo（6）將窗體標(biāo)題設(shè)置為

“測試窗體”。注意：不能修改窗體對象tTcst中未涉及的屬性；不能修改宏對象

“ml”。

標(biāo)準(zhǔn)答案：（1）【操作步驟】步驟1：在窗體對象中右擊窗體”（Test"，在彈出的快

捷菜單中選擇“沒計(jì)視圖”命令。如圖3.62所示。

圖3.62步驟2：選擇“窗體

設(shè)計(jì)工具”的“設(shè)計(jì)”選項(xiàng)卡中的“標(biāo)簽”控件，單擊商體頁眉節(jié)區(qū)適當(dāng)位河，輸入“窗

體測試樣例”。右鍵單擊“窗體測試樣例”標(biāo)簽，選擇“屬性”命令，在“名稱”行輸入

“bTitle”,關(guān)閉屬性表。如圖3.63所示。

o

bTitW

吟如㈤照”

4,

?偏1KM.

"Iffi

nrXSOlcm

lOWcw

tan

ft1399cm

?“式

?ae

EK式

EHCUK

owe

wia*黑

M&W

”：?

黑

ww*

享

TW：

nn?000000

(70_IOHUP.

■“?一一

圖3.63(2)【操作步驟】步驟1：

選擇“窗體設(shè)計(jì)工具”的“設(shè)計(jì)”選擇項(xiàng)卡“控件”組中的“復(fù)選框”按鈕7,單擊窗體主

體節(jié)區(qū)適當(dāng)位置。右鍵單擊“復(fù)選框”按鈕?，選擇“屬性”命令，在“名稱”行輸入

“。陽“，關(guān)閉屬性表。如圖3.64所示。圖3?64步驟

2：右鍵單擊“復(fù)選框”標(biāo)簽，選擇“屬性”命令，在“名稱”行輸入“boptl”，在“標(biāo)題”

行輸入“類型a”，如圖3.65所示，關(guān)閉屬性表。按步驟1、2創(chuàng)建另一個(gè)復(fù)選框控

件。圖3.65(3)【操作步驟】右鍵單擊“optl”復(fù)選框,

選擇“屬性”命令，在“默認(rèn)值”行輸入“=False”。如圖3.66所示，按相同方法沒置

另一個(gè)復(fù)選框控件。圖3?66(4)【操作步驟】步驟1：選擇

窗體“設(shè)計(jì)”選項(xiàng)卡“控件''組中的“按鈕”控件，單擊窗體頁腳節(jié)區(qū)適當(dāng)位置，彈出

“命令按鈕向?qū)А睂υ捒颍瑔螕簟叭∠卑粹o。如圖3.67所示。

□?巴得

冷&A力瘴噸MM

Q

圖3.67

步驟2：右鍵單擊剛添加的命令按

鈕,選擇“屬性”命令，在“名稱”和“標(biāo)題”行分別輸入“bTest”和“測試”。關(guān)閉屬性

表。如圖3.68所示。圖3?68(5)【操作步驟】步驟1：

右鍵單擊命令按鈕"Test"，選擇“屬性”命令。步驟2：在“事件”選項(xiàng)卡的“單擊”行

下拉列表中選擇“ml”，關(guān)閉屬性表。如圖3.69所示。

圖3.69(6)【操作步驟】步驟1：右鍵單擊“窗體選擇

器”，選擇"屬性”命令，在"標(biāo)題''行輸入"測試窗體”，關(guān)閉屬性表。如圖3.70所

示。圖3?7。步驟2：單擊快速訪問工具欄中的“保存”

按鈕丫，關(guān)閉設(shè)計(jì)視圖。

知識點(diǎn)解析：暫無解析

國家二級VB機(jī)試（上機(jī)操作）模擬試卷

第3套

一、基本操作題（本題共1題，每題i.o分，共1分。）

1、在考生文件夾下有數(shù)據(jù)庫文件“sampl.accdb”和Excel文件“Stab.xlsx”，

“sampl.acedb”中已建立表對象“student”和“grade”，請按以下要求，完成表的各種

操作。（1）將考生文件夾下的Excel文件“Stab.xlsx”導(dǎo)入“student”表中。（2）將

“student”表中1975年?1980年之間（包括1975年和1980年）出生的學(xué)生記錄刪除。

⑶將“student”表中的“性別”字段的默認(rèn)值設(shè)置為“男（4）將“student”表拆分為兩個(gè)

新表,表名分別為“tStud”和“tOfice”。其中“tStud”表結(jié)構(gòu)為：學(xué)號、姓名、性別、

出生日期、院系、籍貫，主鍵為學(xué)號；“tOfEcc”表結(jié)構(gòu)為：院系、院長、院辦電

話,主鍵為院系。要求：保留“student”表。（5）建立“student”和“grade”兩表之間的

關(guān)系。

標(biāo)準(zhǔn)答案：（1）【操作步驟】步驟1：打開考生文件夾下的數(shù)據(jù)庫文件

“sampl.accdb”，單擊“外部數(shù)據(jù)”選項(xiàng)卡下的“導(dǎo)入并鏈接”組的“Excel”按鈕，在考

生文件夾找到“Stab.xlsx”文件并選中，單擊“打開”按鈕。選擇“向表中追加一份記

錄的副本”單選框，在后邊的下拉列表中選擇表“student”，然后單擊“確定”按鈕，

如圖3.28所示。圖3.28步

驟2：連續(xù)單擊“下一步”按鈕，導(dǎo)入到表“student”中，單擊“完成”按鈕，最后單擊

“關(guān)閉”按鈕。如圖3.29所示。

■

MSKN

mnn

Miioi

S3.29(2)【操作步驟】步驟1：新

建查詢設(shè)計(jì)視圖，添加表“student”，關(guān)閉“顯示表”對話框。如圖3.30所示。

圖3.30步驟2：雙擊“出生日

期''字段添加到字段列表，在“條件”行輸入">=#1975—l一l#aIKI<=用980—12—

31#"，在“查詢工具”中單擊“設(shè)計(jì)”選項(xiàng)卡下“查詢類型”組中的“刪除”按鈕，單擊工

具欄中的“運(yùn)行”按"，在彈出的對話框中單擊“是”按鈕，關(guān)閉設(shè)計(jì)視圖，不保存查

詢。如3.31圖所示。

圖3?31⑶【操作步驟】

選中表“student”，右擊，選擇“設(shè)計(jì)視圖”命令，進(jìn)入設(shè)計(jì)視圖窗口，在“忤別”字段

“默認(rèn)值”行輸入“男”，單擊快速訪問工具欄中的“保存”按鈕，關(guān)閉設(shè)計(jì)視圖。如圖

3.32所示。圖3.32（4）【操

作步驟】步驟1：新建查詢設(shè)計(jì)視圖，添加表“student”，關(guān)閉“顯示表”對話框。步

驟2：雙擊“學(xué)號”、“姓名”、“性別”、“出生日期”、“院系”和“籍貫”字段,單擊“查

詢工具”的“設(shè)計(jì)”選項(xiàng)卡，在“查詢類型”組中單擊“生成表”按鈕，在彈出的對話框

中輸入表名“tStud”，單擊“確定”按鈕。單擊工具欄中的“運(yùn)行”按鈕，在彈出的對話

框中單擊“是”按鈕，關(guān)閉視圖，不保存“查詢”。如圖3.33所示。

m步驟3：單擊“表”對

象,右鍵單擊表“tStud”，選擇“設(shè)計(jì)視圖”命令，選中“學(xué)號”字段，單擊“設(shè)計(jì)”選項(xiàng)

卡“工具”組中的“型”按鈕，單擊快速訪問工具欄中的“保存”按鈕，關(guān)閉設(shè)計(jì)現(xiàn)

圖。如圖3.34所示。

圖3.34步驟4：新建查詢

設(shè)計(jì)視圖,添力口表“student”,然后雙擊添加“院系”、“院長”和“院辦電話”字段,單

擊“查詢丁具”的“設(shè)計(jì)”選項(xiàng)卡，在“顯示/隱藏”組中單擊“匯總”按鈕，單擊“查詢類

型，，組中的“生成表，，按鈕，在彈出的對話框中輸入表名“Office”，單擊“確定”按鈕。

如圖3.35所示。

圖3.35

步驟5：運(yùn)行查

詢，生成表。關(guān)閉、不保存查詢。步驟6：單擊“表”對象，選擇"Office”表，打開

設(shè)計(jì)視圖，右擊“院系”字段，選擇“主鍵”，保存并關(guān)閉視圖。如圖3.36所示，

圖3?36(5)【操作步驟】步驟1：單擊“數(shù)據(jù)

庫工具”選項(xiàng)卡中“關(guān)系”組的“關(guān)系”按鈕，單擊“顯示表''按鈕，在彈出的對話框

中。添加表“student”和“grade”。如圖3.37所示。

圖3.37

步驟2：選中表

“student”中“學(xué)號”字段，然后拖動(dòng)鼠標(biāo)到表“grade”中“學(xué)號”字段，放開鼠標(biāo)，彈出

“編輯關(guān)系”對話框，單擊“創(chuàng)建”按鈕，單擊“保存”按鈕，關(guān)閉設(shè)計(jì)視圖。如圖

3.38所示。圖3.38

知識點(diǎn)解析：暫無解析

二、簡單應(yīng)用題（本題共I題，每題1.0分，共/分C）

2、考生文件夾下有一個(gè)數(shù)據(jù)庫文件“samp2.accdb”，其中存在已經(jīng)沒計(jì)好的一個(gè)

表對象々Teacher”。請按以下要求完成設(shè)計(jì)。（1）創(chuàng)建一個(gè)查詢，計(jì)算并輸出教師最

大年齡與最小年齡的差值，顯示標(biāo)題為“m_age"，將查詢命名為“qTl”。（2）創(chuàng)建一

個(gè)查詢，查找并顯示具有研究生學(xué)歷的教際的“編號”、“姓名”、“性別”和“系別”4

個(gè)字段內(nèi)容，將查詢命名為“qT2”。（3）創(chuàng)建一個(gè)查詢，查找并顯示年齡小于等于

38、職稱為副教授或教授的教師的“編號”、“姓名”、“年齡”、“學(xué)歷”和“職稱”5個(gè)

字段內(nèi)容，將查詢命名為“qT3”。（4）創(chuàng)建一個(gè)查詢，查找并統(tǒng)計(jì)在職教師按照職稱

進(jìn)行分類的平均年齡，然后顯示出標(biāo)題為“職稱''和"平均年齡''的兩個(gè)字段內(nèi)容，將

查詢名為“qT4”。

標(biāo)準(zhǔn)答案：（I）【操作步驟】步驟1：新建查詢，在“顯示表''對話框中添加女

“tTeacher”,關(guān)閉“顯示表”對話框。如圖3.39所示。

圖3?39步驟2：在字段行輸

入：“m_age：Max（［tTeacher］!［年齡］）?Min（［tTeacher］!［年齡］）。單擊"保存”按鈕,另

存為“qTl”，關(guān)閉設(shè)計(jì)視圖。如圖3.40所示。

圖3.40⑵【操作步驟】步驟卜

在設(shè)計(jì)視圖中新建查詢，添加表“Teacher”，關(guān)閉“顯示表”對話框。步驟2：雙擊

“編號”、“姓名”、“性別”、“系別”、“學(xué)歷”字段，在“學(xué)歷”字段的條件行輸入“研究

生”，取消"學(xué)歷”字段的顯示的勾選。單擊快速訪問工具欄中的“保存”按鈕，另存

為“qT2”，關(guān)閉設(shè)計(jì)視圖。如圖3.41所示。圖3.41

(3)【操作步驟】步驟1：在設(shè)計(jì)視圖中新建查詢，添加表“tTeacher”，關(guān)閉“顯示

表”對話框。步驟2：雙擊“編號”、“姓名”、“年齡”、“學(xué)歷”、“職稱”字段.在“年

齡”字段的“條件”行輸入“<=38”,在“職稱”的“條件”行輸入“”教授“or”副教授必。

單擊快速訪問上具欄中的“保存”按鈕，另存為“qT3”，關(guān)閉設(shè)計(jì)視圖。如圖3.42

所示。圖3.42(4)【操作步驟】

步驟1：在設(shè)計(jì)視圖中新建查詢，添加表“tTeacher”,關(guān)閉“顯示表”對話框。步驟

2：雙擊“職稱”、“年齡”、“在職否”字段,在“查詢工具”的“設(shè)計(jì)”選項(xiàng)卡下，單擊

“顯示/隱藏”組中的“匯總”按鈕,在“年齡”字段的“總計(jì)”行選擇“平均值”在“在職

否''條件行輸入“true”并取消該字段的顯示復(fù)選框的勾選，在“年齡”字段前添加“平

均年齡：”字樣。單擊快速訪問工具欄中的“保存”按鈕，另存為“qT4”，關(guān)閉設(shè)計(jì)視

圖。如圖3.43所示。

l<cwi

?M?*■?■*>"：?

a!4■x

99D..

圖3.43

知識點(diǎn)解析：暫無解析

三、綜合應(yīng)用題（本題共I題，每題1.0分，共/分0）

3、考生文件夾下有一個(gè)數(shù)據(jù)庫文件“samp3.accdbf,其中存在已經(jīng)設(shè)計(jì)好的表對

象“tEmployee"和“tGroup”及查詢對象“qEmployee”，同時(shí)還設(shè)計(jì)出以“qEmployee”為

數(shù)據(jù)源的報(bào)表對象“rEmpbyee。請?jiān)诖嘶A(chǔ)上按照以下要求補(bǔ)允報(bào)表設(shè)計(jì).⑴在

報(bào)表的報(bào)表頁眉節(jié)區(qū)添加一個(gè)標(biāo)簽控件，名稱為“bTitle”，標(biāo)題為“職工總本信息

表”。（2）在“性別”字段標(biāo)題對應(yīng)的報(bào)表主體節(jié)區(qū)距上邊0.1厘米、距左側(cè)5.2厘

米的位置上添加一個(gè)文本框，用于顯示“性別''字段值，并命名為"Sex”。（3）設(shè)置報(bào)

表主體節(jié)區(qū)內(nèi)文本框“tDcpt”的控件來源為計(jì)算控件。要求該控件可以根據(jù)報(bào)表數(shù)

據(jù)源里的“所屬部門”字段值，從非數(shù)據(jù)源表對象“tGroup”中檢索出對應(yīng)的部門名稱

并顯示輸出。（提示：需考慮DLookUp函數(shù)的使用。）注意：不能修改數(shù)據(jù)庫內(nèi)的

表對象*Employee"和"tGroup”及查詢對象“qEmployee"；不能修改報(bào)表對象

“rEmployee”中未涉及的控件和屬性。

標(biāo)準(zhǔn)答蕖：⑴【操作步驟】步驟1：選擇“報(bào)表”對象，右擊報(bào)表“「Employee”，在

彈出的快捷菜單中選擇“設(shè)計(jì)視圖”命令，打開報(bào)表設(shè)計(jì)視圖。如圖3.44所示。

圖3?44步驟2：在報(bào)表“設(shè)計(jì)”

選項(xiàng)卡“控件”組中選擇“標(biāo)簽”控件，單擊報(bào)表頁眉處，然后輸入“職工基本信息

表”，單擊設(shè)計(jì)視圖任一處，右鍵單擊該標(biāo)簽選擇“屬性”命令，在“名稱”行輸入

“bTitle”，關(guān)閉屬性表。如圖3.45所示。

圖3.45(2)【操作步驟】步驟1：在報(bào)

表“設(shè)計(jì)”選項(xiàng)卡“控件”組中選擇“文本框”按鈕，單擊報(bào)表主體節(jié)區(qū)任一點(diǎn)，出現(xiàn)

“Text”標(biāo)簽和“未綁定”文本框，選中“Text”標(biāo)簽，按Del鍵將叮ext”標(biāo)簽刪除。步

驟2：右鍵單擊“未綁定”文本框.選擇“屬性”命令，在“名稱”行輸入“tsex”，分別在

“上邊距”行和“左”行輸入“0.1cm”和“5.2cm“。在"控件來源”行下拉列表中選擇

“性別”，關(guān)閉屬性表。單擊快速訪問工具欄中的“保存”按鈕。如圖3.46所示，

圖3?46⑶【操作步驟】步驟1：在報(bào)表設(shè)計(jì)視圖中，右

鍵單擊“部門名稱”下的文本框“tDcpt”，選擇“屬性”命令。步驟2：在彈出的對話框

中的“控件來源”行輸入“=DLookUp（“名稱"，"Group”,“所屬部門=部門編號"）

關(guān)閉屬性表，保存并關(guān)閉設(shè)計(jì)視圖。如圖3.47所示。

MMNM1M（D

圖3.47

知識點(diǎn)解析：暫無解析

國家二級VB機(jī)試（上機(jī)操作）模擬試卷

第4套

一、基本操作題（本題共1題，每題7.0分，共］分。）

1、請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包拈界面和代碼）。（1）在

名稱為Forml的窗體上畫一個(gè)文本框，名稱為Textl,內(nèi)容為“VB程序設(shè)計(jì)”：再畫

兩個(gè)命令按鈕，其名稱分別為Command1和Command2,標(biāo)題分別為“擴(kuò)大”和“縮

小”，如圖3—1所示，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，每單擊Commandl命令

按鈕一次，文本框中文本的字體擴(kuò)大1.2倍：每單擊Command2單選按鈕一次，

文本框中文本的字體縮小1.2倍。注意：存盤時(shí)必須存放在考生文件夾下，工程

1VB程序設(shè)計(jì)

文件名為sill.vbp,窗體文件名為sjU.frm。圖3“(2)在名稱

為Fonnl的窗體上畫一個(gè)列表框，其名稱為工,istl,通過屬性窗口向列表框中輸入

9個(gè)項(xiàng)目，分別為10、20、30、40、50、60、70、30、90；畫一個(gè)文本框，其名

稱為Textl,初始內(nèi)容為空白；再畫一個(gè)水平滾動(dòng)條，其.名稱為HScroHLMin屬

性和Max屬性分別為。和100,如圖3-2(a)所示，編寫適當(dāng)?shù)氖录^程。程序之行

后，如果單擊列表框中的某個(gè)項(xiàng)目，則在文本框中顯示該項(xiàng)目內(nèi)容，并把滾動(dòng)條的

滾動(dòng)框移到相應(yīng)的位置，如圖3—2(b)所示。要求：不得使用任何變量。注意：存

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

(a)(b)

sjt2.frm。圖3-2

標(biāo)準(zhǔn)答案：【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Forml中加入

一個(gè)文本框和兩個(gè)命令校鈕，其相關(guān)屬性設(shè)置如表4.1所示。

>4-1

對象?性

NameText]

文本框

TextVB程序設(shè)計(jì)

NameCommand)

命令按鈕1

Caption擴(kuò)大

NameCommand2

命令按鈕2

Caption■一解”-----步驟2：打開代碼編輯窗口，輸入如下

代碼：參考代碼：PriVateSubCommand!CIick()Textl.FontSize=Textl.FontSi

ze*1.2EndSubPrivateSubCommand?Click()Textl.FontSize=Textl.FontSize/

1.2EndSub步驟3：按耍求將文件保存至考生文件夾中。第2小題列表框的

Text屬性用于返回列表框中選擇的項(xiàng)目的內(nèi)容，返回值總與列表框的

Lisl(Lisllndex)屬性的返回值相同。本題需要在列表框的屬性窗口中輸入列表框中的

項(xiàng)目，然后在列表框的單擊事件中將選定項(xiàng)賦值給文本框和滾動(dòng)條的Value屬性。

【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體上畫一個(gè)列表框、一?個(gè)

文本框和一個(gè)水平滾動(dòng)條，按表4-2設(shè)置其相關(guān)屬性。

?4-2

對象?性

NameListl

列表框

List10、20、30、40、50、60、70、80、90

NameTextl

文本框

Text

NameHScrolIl

水平滾動(dòng)條Min0

Max-----------則-----------步驟2：在打開的代碼編輯窗口

中，編寫列表框的單擊事件代碼：參考代碼：PrivateSubListlClick()

Tcxtl.Text=Listl.TextHScrolIl.Value=Val(Listl.Text)EndSub步驟3：按要求

將文件保存至考生文件夾中。

知識點(diǎn)解析：暫無解析

二、簡單應(yīng)用題(本題共I題，每題1.0分，共1分0)

2、(1)在考生目錄下有一個(gè)工程文件vbsi3.vbp,窗體上有一個(gè)命令按鈕

emdNext(標(biāo)題為“下一個(gè)")。要求：在窗體上建立一個(gè)單選按鈕數(shù)組optltem,含4

個(gè)單選按鈕，標(biāo)題分別為“A”、"B”、"C”、“D”，初始狀態(tài)下，為選中狀態(tài)。如

圖3-34所示。窗體文件中己經(jīng)給出了命令按鈕的Qick事件過程，但不完整，請去

掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容，使得每單擊命令按鈕一次，

就選中下一個(gè)單選按鈕，如果已經(jīng)選中最后一個(gè)單選按鈕，再單擊命令按鈕，則選

中第1個(gè)單選按鈕。注意：不能修改程序中的其他部分。最后把修改后的文件按

原文件名存盤。程序源碼：PrivateSubemdNextCliCk()Fork=0ii!iTo?If

optltem(k).ValueThenn=?EndIfNextkoptltem(n).Value=Falsen=n+lIfn=4Then

h=?EndIfoptltem(n).Value=TrueEndSub(2)在考生文件夾下有一個(gè)工程文件

vbsj4.vbp,窗體上有兩個(gè)文本框、三個(gè)單選按鈕和一個(gè)命令按鈕。運(yùn)行時(shí)，在

ixtlnpul中輸入若干個(gè)大寫和小寫字母，并選中一個(gè)單選按鈕，再單擊“轉(zhuǎn)換”按

鈕，則按選中的單選按紐的標(biāo)題進(jìn)行轉(zhuǎn)換，結(jié)果放入txtResult(如圖3.35所示)。

在給出的窗體文件中已經(jīng)給出了全部控件，但程序不完整，要求：去掉程序中的注

釋符，把程序中的“?”改為正確的內(nèi)容。

圖”34圖“35注意：不能修改程序中的其他部

分。最后把修改后的文'牛按原文件名存盤。程序源碼：PrivateSubcmdChange—

Click()DimnAsInteger,kAsIntegerDimchAsString,aAsString

n=Len(txtInput.Text)ch='"'FOrk=lTona=Mids(txtInput.Tcxt,?,l)If

Optl.Valme=TrueThenIfa>=tta,,Anda<=o"z"Thench=ch+UCaSe(a)ElseIf

a>=t4A,'Anda〈="Z"Thench=ch+?Elsech=Ch+aEndIfEndIfIfOpt2.Value=True

Thench=UCase(txtInput)EndIfIfOpt3.Value=TrueThench=LCase(txtInput)EndIf

Next