國(guó)家二級(jí)（VB）機(jī)試模擬試卷8

家二級(jí)(VB)機(jī)試模擬試卷第1套

一、選擇題(本題共40題，每題1.0分，共40分。)

1、為組合框Combol增加一個(gè)列表項(xiàng)“電腦”，下列語(yǔ)句正確的是()。

A、Combol.Text="電腦”

B、Combol.Listindex="電腦"

C、Combol.Additem”電腦”

D^Combol.ListCoimt="電腦"

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：本題考查組合框?？梢酝ㄟ^(guò)Addllem方法給組合框添加列表項(xiàng)。

2、以下敘述錯(cuò)誤的是()。

A、滾動(dòng)條的重要事件是Change和Scroll

B、框架的主要作用是將控件進(jìn)行分組，以完成各自相對(duì)獨(dú)立的功能

C、組合框是組合了文本框和列表框的特性而形成的一種控件

D、計(jì)時(shí)器控件可以通過(guò)對(duì)Visible屬性的設(shè)置，在程序運(yùn)行期間顯示在窗體上

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：本題考查常見(jiàn)控件的基本特點(diǎn)。滾動(dòng)條的重要事件是Change和

Scroll,框架的主要作用是將控件進(jìn)行分組；使用組合框時(shí)既可以輸入，也可以從

列表中選擇；計(jì)時(shí)器控件沒(méi)有Visible屬性，程序運(yùn)行期間一直不顯示。

3、如果需要線控件在窗體上成為一條與水平線呈45。的斜線，它的屬性值應(yīng)滿足

的條件是()。

A、X2-X1=Y1-Y2

B、X1=X2并且Y1=Y2

C、XI=Y1或X2=Y2

D、Yl=Xl*Sin(3.14/4)并且Y2=X2*Sin(3.14/4)

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：VB中窗體的坐標(biāo)系使用的是絕對(duì)坐標(biāo)系，如下圖所示，直線的兩個(gè)

端點(diǎn)的坐標(biāo)分別為(xl,yl)和(x2,y2),根據(jù)正切公式y(tǒng)"y2=i,得到y(tǒng)l-y2=x2-

xl,故A選項(xiàng)正確。

4、以下程序在文本框Texll中輸入任一字符串，并按相反的次序顯示在文本框

Text2中,在橫線處應(yīng)填寫(xiě)()。DimNAsString,CAsString,DAsStringN=

Text!.TextM=Fori=MToIStep-1C=Mid(N,i,1)：D=D&CNcxti

Text2.Text=DEndSub

A^Len(Textl.Text)—1

B>Text!.MaxLength

C、Len(N)-l

D、Len(Textl.Text)

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：本題考查字符串的逆序。取得TexU中文本的長(zhǎng)度，M=

Len(Textl.Text),循環(huán)中對(duì)字符串從后往前一次讀出字符串的每一個(gè)字符，連接

至I」D中。

5、下列關(guān)于線性鏈表的描述中，正確的是()。I、只含有一個(gè)指針域來(lái)存放下一個(gè)

元素地址n、指針域中的指針用于指向該結(jié)點(diǎn)的前一一個(gè)或后一個(gè)結(jié)點(diǎn)(即前件或

后件)HI、結(jié)點(diǎn)由兩部分組成：數(shù)據(jù)域和指針域。

A、僅I、II

B、僅I、III

c、僅H、in

D、全部

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：在定義的鏈表中，若只含有一個(gè)指針域來(lái)存放下一個(gè)元素地址，稱這

樣的鏈表為單鏈表或線性鏈表。在鏈?zhǔn)酱鎯?chǔ)方式中，要求每個(gè)結(jié)點(diǎn)由兩部分組成：

一部分用于存放數(shù)據(jù)元索值，稱為數(shù)據(jù)域;另一部分用于存放指針，稱為指針

域.其中指針用于指向該結(jié)點(diǎn)的前一個(gè)或后一個(gè)結(jié)點(diǎn)(即前件或后件)。

6、下面控件中，沒(méi)有Caption屬性的是()。

A、復(fù)選框

B、單選按鈕

C、組合框

D、框架

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：Caption屬件是設(shè)置或返|用捽件的標(biāo)題.紐合框沒(méi)有Caption屬性.故

選C。

7、設(shè)有變量聲明為“DimaDateAsDate”，則能為變量aDate正確賦值的表達(dá)方式

是()。

A、aDate=#8/2008#

B、aDate=#"8/8/2008'竽｝

C、aDate=DateC48/8/2008")

D、aDate=FonnatCkm/(1/yy”J8/8/2008”)

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：本題考查三期型數(shù)據(jù)。一般日期型數(shù)據(jù)可以是任何可以表示的日期，

放在一對(duì)“#”號(hào)中,或者可以用數(shù)字序列表示日期。注意，如““8/8/2008”為字符

串，不表示日期。函數(shù)Date返回當(dāng)前日期，函數(shù)的參數(shù)為空。Format函數(shù)的第一

個(gè)參數(shù)為日期，第二個(gè)參數(shù)為格式串。

8、閱讀程序：PrivateSubForm_Click()a=0Forj=1To15a=a

4-jMod3NextjPrintaEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果是

()。

A、105

B、1

C、120

D、15

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：暫無(wú)解析

9、語(yǔ)句DimArr(-2To4)AsInteger所定義的數(shù)組的元素個(gè)數(shù)為()。

A、7個(gè)

B、6個(gè)

C、5個(gè)

D、4個(gè)

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：本題是定義了一個(gè)一維數(shù)組，下標(biāo)是一21。4,所以數(shù)組元素的個(gè)數(shù)

是4一(-2)+1=7,故選A。

10、下列敘述中錯(cuò)誤的是()。

A、一個(gè)工程中可以含有多個(gè)標(biāo)準(zhǔn)模塊文件

B、以.bas為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件

C、窗體文件包含該窗體及其控件的屬性

D、在工程資源管理器窗口中只能包含一個(gè)工程文件及屬于該工程的其他文件

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：本題考查工程中的文件。一個(gè)VB工程中包括各種類型的文件，常見(jiàn)

的有工程文件，多個(gè)窗體文件(.frm)和多個(gè)模塊文件(.bas),窗體文件中包含窗

體及捽件的屬性設(shè)置,窗體級(jí)變量等.資源管理器中可以同時(shí)管理多個(gè)T程文件.

11、設(shè)一棵滿二叉樹(shù)共有15個(gè)結(jié)點(diǎn)，則在該滿二叉樹(shù)中的葉子結(jié)點(diǎn)數(shù)為()。

A、7

B、8

C、9

D、10

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：在具有n個(gè)結(jié)點(diǎn)的滿二叉樹(shù)，其非葉子結(jié)點(diǎn)數(shù)為inl(n/2),而葉子結(jié)

點(diǎn)數(shù)等于總結(jié)點(diǎn)數(shù)減去非葉子結(jié)點(diǎn)數(shù)。本題n=15,故非葉子結(jié)點(diǎn)數(shù)等于ira(15/

2)=7。葉子結(jié)點(diǎn)數(shù)等于15.7=8o

12、在窗體上畫(huà)1個(gè)命令按鈕，并編寫(xiě)如下事件過(guò)程：PrivateSub

Command1_Click()Dima(3,3)Form=lTo3Forn=lTo3Ifn=mOrn=4一mThen

a(m,n)=m+nElsea(m,n)=0End[fPrinta(m,n)；NextnPrintNextmEndSub運(yùn)

行程序，單擊命令按鈕，窗體上顯示的內(nèi)容為()。

A、200040006

B、204040406

C、230340006

D、200045056

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：根據(jù)For循環(huán)中的If語(yǔ)句的條件n=morn=4-m中的n=m首先可以

得出a(l,1)=2,a(2,2)=4,a(3,3)=6,其次根據(jù)n=4—m的條件可以得出a(l,

3)=4。a(2,2)=4,a(3,1)=4。而其他的元素值都為0。因此窗體上輸出的三行分別

是：204,040,406。

13、窗體上有一個(gè)名為Commandl的命令按鈕，并有下面的程序：PrivateSub

Commandl_Click()Dimarr(5)AsIntegerFork=ITo5art(k)=kNextkprogart()For

k=lTo5Printarr(k)；NextkEndSubSubprog(a()AsInteger)n=UBound(a)Fori=n

To2step—1Fori=lTon-1ifa(j)

A、12345

B、54321

C、01234

D、43210

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：程序?qū)?shù)組元素賦初值為1、2、3、4、5。Llbound函數(shù)返回?cái)?shù)組可

用的最大下標(biāo)，過(guò)程prog的功能是遍歷數(shù)組對(duì)數(shù)組中的元素進(jìn)行排序，由條件a(j)

14、下面描述中，不屈于軟件危機(jī)表現(xiàn)的是()。

A、軟件過(guò)程不規(guī)范

B、軟件開(kāi)發(fā)生產(chǎn)率低

C、軟件質(zhì)量難以控制

D、軟件成本不斷提高

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：軟件危機(jī)主要表現(xiàn)在：軟件需求的增長(zhǎng)得不到滿足；軟件開(kāi)發(fā)成本和

進(jìn)度五法控制；軟件質(zhì)量難以保證；軟件不可維護(hù)或維護(hù)程度非常低；軟件的成本

不斷提高；軟件開(kāi)發(fā)生率的提高趕不上硬件的發(fā)展和應(yīng)用需求的增長(zhǎng)。所以選擇

Ao

15、窗體上有一個(gè)名稱為Tcxtl的文本框，一個(gè)名稱為CD1的通用對(duì)話框，一個(gè)標(biāo)

題為“打開(kāi)文件”的命令按鈕，如圖所示。&I命

令按鈕的單擊事件過(guò)程如下：PfivateSubCommandl—Click()CD1.ShowOoen

OpenCD1.FileNameForInputAs#lMsgBoxCD1.FileNanleLineInput#l.s

Textl.丁9=5。05?#1￡前5此單擊命令按鈕，執(zhí)行以上事件過(guò)程，打開(kāi)選定的文

件，讀取文件的內(nèi)容并顯示在文本框中，以下敘述中正確的是（）。

A、程序沒(méi)有錯(cuò)誤，可以正確完成打開(kāi)文件、讀取文件中內(nèi)容的操作

B、執(zhí)行Open命令時(shí)出錯(cuò)，因?yàn)闆](méi)有指定文件的路徑

C、Open語(yǔ)句是錯(cuò)誤的，應(yīng)把語(yǔ)句中的ForInput改為ForOulput

D^LineInput命令格式錯(cuò)

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：第1條語(yǔ)句中用ShowOpen方法顯示“打開(kāi)”對(duì)話框后，在對(duì)話框中選

中文件，單擊"打開(kāi)''按鈕后，CD1.FileName屬性就會(huì)返回打開(kāi)文件的路徑，所以

用Open語(yǔ)句打開(kāi)文件時(shí)，就可用CDLFileName指定打開(kāi)文件的路徑，故B選項(xiàng)

說(shuō)法錯(cuò)誤。因?yàn)榈?條語(yǔ)句中要用LineInput從文，'牛讀取數(shù)據(jù)，故用Open語(yǔ)句打

開(kāi)文件時(shí)用Input模式打開(kāi)是正確的，故C選項(xiàng)說(shuō)法錯(cuò)誤。LineInput法令格式

為：LineInpul#文件號(hào)，變量名，題中LineInpul語(yǔ)句格式正確。故D選項(xiàng)錯(cuò)誤。

本題程序無(wú)錯(cuò)誤，能實(shí)現(xiàn)所說(shuō)功能，故A選項(xiàng)正確。

16、如果在VisualBasic集成環(huán)境中沒(méi)有打開(kāi)屬性窗口，下列可以打開(kāi)屬性窗口的

操作是（）。

A、用鼠標(biāo)雙擊窗體的任何部位

B、執(zhí)行“工程”菜單中的“屬性窗口”命令

C、按CW+F4鍵

D、按F4鍵

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：用鼠標(biāo)雙擊窗體的任何部位會(huì)打開(kāi)“代碼窗口”，故A選項(xiàng)錯(cuò)誤。在”

視圖”菜單中才有“屬性窗口”命令，故B選項(xiàng)錯(cuò)誤。按QH+F4鍵關(guān)閉當(dāng)前活動(dòng)窗

體窗口。故C選項(xiàng)錯(cuò)誤。按F4會(huì)打開(kāi)“屬性窗口”。故D選項(xiàng)正確。

17、數(shù)據(jù)庫(kù)系統(tǒng)的數(shù)據(jù)獨(dú)立性是指（）。

A、不會(huì)因?yàn)橄到y(tǒng)數(shù)據(jù)存儲(chǔ)結(jié)構(gòu)與數(shù)據(jù)邏輯結(jié)構(gòu)的變化而影響應(yīng)用程序

B、不會(huì)因?yàn)閿?shù)據(jù)的變化而影響應(yīng)用程序

C、不會(huì)因?yàn)榇鎯?chǔ)策略的變化而影響存儲(chǔ)結(jié)構(gòu)

D、不會(huì)因?yàn)槟承┐鎯?chǔ)結(jié)構(gòu)的變化而影響其他的存儲(chǔ)結(jié)構(gòu)

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：數(shù)據(jù)庫(kù)系統(tǒng)的數(shù)據(jù)獨(dú)立性，是指數(shù)據(jù)庫(kù)中數(shù)據(jù)獨(dú)立于應(yīng)用程序且不依

賴于應(yīng)用程序，即數(shù)據(jù)的邏輯結(jié)構(gòu)、存儲(chǔ)結(jié)構(gòu)與存取方式的改變不會(huì)影響應(yīng)用程

序。故選A選項(xiàng)。

18、窗體上有1個(gè)名稱為L(zhǎng)istl的列表框，1個(gè)名稱為Textl的文本框。編寫(xiě)如下程

序代碼：PrivateSubForm_Load（）Listl.Additem”花卉"List1.Additem”綠植”

List!.Additem"盆景"Textl.Text=""EndSubPrivateSubListl_DblClick（）Pdnt

Listl+Textl.TextEndSub程序運(yùn)行時(shí)，在文本框中輸入“擺放”，然后雙擊列表框

中的“綠植”,輸出結(jié)果為（）。

A、擺放

B、擺放綠植

C、綠植

D、綠植擺放

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：使用列表框的Addhem方法，可以向列表框中添加列表項(xiàng)，本題的

Foirn_Load事件過(guò)程依次向列表框Listl中添加了3個(gè)值，列表項(xiàng)的值分別為：

List1(0尸“花卉"；Lisg="綠植午List(2)="盆景”(列表項(xiàng)的索引值從。開(kāi)始)。在

ListLDblClick事件中打印輸出表達(dá)式“Listl+TextLText”的結(jié)果，當(dāng)雙擊列表框

List1中的“綠植”表項(xiàng)時(shí)，Listl得到的值為“綠植”,Textl.Text為輸入的字符串

“擺放”，故最終輸出結(jié)果為“綠植擺放”，D選項(xiàng)正確。本題選擇D選項(xiàng)。

19>設(shè)有如下函數(shù)：FunctionDelSpace(chAsString)AsIntegerDimn%,st$,

c$st=unn=0Fork=1ToLen(ch)c=Mid(ch,k,1)

Ifc<>n"Thenst=st&cElsen=n+1

EndIfNextkch=stDelSpace=nEndFunction函數(shù)的功能是()。

A、統(tǒng)計(jì)并返回字符串ch中字符的個(gè)數(shù)

B、刪除字符串ch中的空格符，返回刪除字符的個(gè)數(shù)

C、統(tǒng)計(jì)并返回字符串ch中非空格字符數(shù)

D、刪除字符申ch中除空格符外的其他字符，返回刪除字符的個(gè)數(shù)

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析?：過(guò)程中對(duì)傳入的字符串的字符一個(gè)個(gè)取出，判斷如果不是空格則依次

連接到一個(gè)字符串變量中，如果是空格則計(jì)數(shù)加1,最后，返回不包含空格的字符

串和空格的個(gè)數(shù)。因此選項(xiàng)B正確。

20、為了在運(yùn)行時(shí)能顯示窗體左上角的控制框(即系統(tǒng)菜單)，應(yīng)執(zhí)行的操作是

A、把窗體的ControlBox屬性設(shè)置為False,其他屬性任意

B、把窗體的ControlBox屬性設(shè)置為True,并且把BorderStyle屬性設(shè)置為1到5

中的一個(gè)數(shù)

C、把窗體的ControlBox屬性設(shè)置為True,并且把BorderStyle屬性設(shè)汽為0

D、把窗體的ControlBox屬性設(shè)置為Fale,并且把BorderStyle屬性設(shè)置為1到5

中的一個(gè)數(shù)

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：ControlBox屬性：運(yùn)行程序時(shí)該屬性有效。在窗體標(biāo)題欄左邊設(shè)置一

個(gè)任務(wù)列表，點(diǎn)擊窗體圖標(biāo)左上角顯示系統(tǒng)菜單。True:能顯示系統(tǒng)菜單，F(xiàn)a底:不

能顯示系統(tǒng)菜單。BorderSlyle屬性：為窗體等對(duì)象設(shè):置.邊框的式樣。0-None：窗

體無(wú)邊框。1-FixeSingle:程序運(yùn)行后窗體大小不被改變，單線邊框。2-Sizable：程

序運(yùn)行后窗體大小可以被改變，雙線邊框。3-FixcdDouble:程序運(yùn)行后窗體大小不

被改變，雙線窗體。4?FixedToolWindow:程序運(yùn)行后窗體大小可以被改變，單線邊

框。5-SizableToolWindow:程序運(yùn)行后窗體大小可以被改變。故本題答案為選項(xiàng)

B)o

21、要使標(biāo)簽中的文本靠右顯示，應(yīng)將其Aligment屬性設(shè)置為

A、O-LeftJustify

1-RightJustify

C>2-Center

D、3

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：O-LeftJustify：文本靠左顯示；1-RightJustify：文本靠右顯示；2-

Center：文本居中顯示。

22、下列工具中，不屬于結(jié)構(gòu)化分析的常用工具的是()。

A、數(shù)據(jù)流圖

B、數(shù)據(jù)字典

C、判定樹(shù)

D、N—S圖

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：結(jié)構(gòu)化分析常用工具有數(shù)據(jù)流圖、數(shù)據(jù)字典、判定樹(shù)和判定表。

23、構(gòu)成計(jì)算機(jī)軟件的是

A、源代碼

B、程序和數(shù)據(jù)

C、程序和文檔

D、程序、數(shù)據(jù)及相關(guān)文檔

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：軟件指的是計(jì)算機(jī)系統(tǒng)中與硬件相互依賴的另一部分，包括程序、數(shù)

據(jù)和有關(guān)的文檔，選D。

24、在VB中，函數(shù)過(guò)程與子程序過(guò)程的區(qū)別之一是

A、函數(shù)過(guò)程必須有參數(shù)，而子程序過(guò)程可以沒(méi)有

B、函數(shù)過(guò)程的參數(shù)傳遞只采用值傳遞，而子程序過(guò)程只采用地址傳遞

C、在程序中，子程序過(guò)程調(diào)用的代碼可以寫(xiě)在表達(dá)式中，而函數(shù)過(guò)程不能

D、函數(shù)過(guò)程有返回值，而子程序過(guò)程沒(méi)有

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：在VisualBasic中有兩類過(guò)程：一類是系統(tǒng)提供的內(nèi)部函數(shù)和事件過(guò)

程；另一類是用戶根據(jù)自己的需要定義的，供事件過(guò)程的多次調(diào)用。在第二類過(guò)程

中，涉及最多的是子過(guò)程。它們的共同點(diǎn)是完成某種特定功能的一組程序代碼；不

同的是函數(shù)是可以直接返回值的特殊過(guò)程，所以函數(shù)過(guò)程定義時(shí)有返回值的類型說(shuō)

明。兩者最大的區(qū)別就是Sub過(guò)程的過(guò)程不能直接返回值，而Function過(guò)程

能直接返回值。

25、設(shè)窗體上有一個(gè)名稱為L(zhǎng)istl的列表框，并有若干列表項(xiàng)。下面語(yǔ)句中不能在

所有列表項(xiàng)之后追加一個(gè)列表項(xiàng)的是

A、Listl.List(Listl.ListCounl)=MVB程序”

B、Listl.List(Listl.ListCount-1)=nVB

C、Lisll.Addhem”VB程序”

D、List1.Additem"VB程序”,List1.ListCount

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：List控件的ListCount屬性返回列表部分項(xiàng)口的個(gè)數(shù)。Listl.LisiCount

-1是倒數(shù)第二個(gè)。故答案選B。

26、要清除已經(jīng)在圖片框Picturel中打印的字符串而不清除圖片框中的圖像，應(yīng)使

用語(yǔ)句()。

A^Picturel.Cis

B>EictureI.Eicture=LoadEicture("")

C、Picturel.Pint"”

D^Picturel.Picture""

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：本題考查常用的方法。Cis方法的使用形式為：［對(duì)象］.Cis,作用是

清除運(yùn)行時(shí)在窗體或圖形框中顯示的文本或圖形，而不能清除圖像。要不清除在設(shè)

計(jì)時(shí)的文本，同時(shí)也不能清除圖形，應(yīng)用LoqdPicture可以清除或者裝入圖片。

27、在窗體上畫(huà)兩個(gè)名禰分別為Hscrolll、Hscroll2的滾動(dòng)條控件；6個(gè)名稱分別

為L(zhǎng)abel1、Label2?Label3,Label4,Label5,Label6的標(biāo)簽，其中，Label4-Label6

分別顯示“A”、"B”、“A*B”等文字信息，標(biāo)簽Label1、Label2分別顯示其右側(cè)的滾

動(dòng)條Value屬性值，Label3顯示A*B的計(jì)算結(jié)果，如圖1所示。當(dāng)移動(dòng)滾動(dòng)框

時(shí)，在相應(yīng)的標(biāo)簽中顯示滾動(dòng)條的值。當(dāng)單擊命令按鈕“計(jì)算”時(shí)，對(duì)標(biāo)簽Labell、

Labcl2中顯示的兩個(gè)值求積，并將結(jié)果顯示在Labcl3中。以下不能實(shí)現(xiàn)求積功能

的事件過(guò)程是()。圖1

A^PrivateSubCommandl_Click()

Labcl3.Caption=Str(Val(Labcll.Caption)*Val(Labcl2.Caption))EndSub

B>PrivateSubCommand!Click()Label3.C叩lion：

HScrolll.Vakie*HScroll2.ValueEndSub

C>PrivateSubCommandl_Click()Labcl3.Caption：HScrolll*HScroll2EndSub

D、PrivateSubCommandl_Click()Label3.Caption=HScrollI.Text*HScroll2.Text

EndSub

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：本題考查滾動(dòng)條的屬性。滾動(dòng)條Value屬性表示滑塊的位置值，為數(shù)

值型；而標(biāo)簽的Caption為字符串型。因此，要將滾動(dòng)條的Value屬性值顯示在標(biāo)

簽上，需要進(jìn)行類型轉(zhuǎn)疾(將數(shù)值型數(shù)據(jù)轉(zhuǎn)換成字符串型數(shù)據(jù))。

28、以下程序段的功能是求兩個(gè)數(shù)中的較大數(shù)，無(wú)法實(shí)現(xiàn)該功能的是

A、Ifx>yThennum=xElsenum=y

num=IIf(x>y,x,y)

C、num=xIfy>xThennum=y

D^Ify>xThennum=Knum=y

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：選項(xiàng)A、B和C都能找出最大值。選項(xiàng)A語(yǔ)句執(zhí)行的意思是如果x>

y那么將x賦值給num否則將y賦值給num,最后得到num為兩個(gè)數(shù)中較大的

數(shù)。選項(xiàng)B中有HF函數(shù)。HF函數(shù)實(shí)際上可以理解成”If...Then...Else”的另外一種表

現(xiàn)形式，即Hf(條件，True部分，F(xiàn)alse部分)，其中條件為一邏輯表達(dá)式，當(dāng)條

件為真(True)時(shí)，返ETTrue部分”;當(dāng)條件為假(False)時(shí)，返回"False部分

%題目中的num二Hf(x>y,x,y)意思是如果x>y,則將x賦值給Max,否則將y賦

值給Max,選項(xiàng)B也能找出最大值。選項(xiàng)C語(yǔ)句執(zhí)行的意思先將x賦值給num,

是如果y>x那么將y賦值給num,最后得到num為兩個(gè)數(shù)中較大的數(shù)。D項(xiàng)語(yǔ)句

中執(zhí)行完IfThen語(yǔ)句后，都將y賦值給Max,不能找出最大值，實(shí)際_L,這個(gè)IF

語(yǔ)句缺少Else,故選項(xiàng)D不能找出最大值，答案為D項(xiàng)。

29、窗體上有2個(gè)名稱為L(zhǎng)istl、List2的列表框，1個(gè)標(biāo)題為“移動(dòng)”的命令按鈕

Command1,如圖所示。在Lis"中選擇多個(gè)項(xiàng)目,并單擊“移動(dòng)”命令按鈕，則選中

的項(xiàng)目被移動(dòng)到List2中。編寫(xiě)如下程序：

PrivateSubCommandl_Click()DimiAsInteger,]AsInteger,kAsIntegerDimnAs

Integer,arr()AsIntegern=Listl.SelCountReDimarr(lton)m=1Fori=1To

List1.ListCount'i循環(huán)IfListl.Selected(i)Thenarr(m)=im=m+lEndifNextiForj=l

Ton'j循環(huán)List2.Additem.Listl.List(arr(i))Listl.Removeltemarr(i)Fork=j+lTOn'k

循環(huán)arr(k)=arr(k)-1nextknextjEndSub運(yùn)行程序，發(fā)現(xiàn)有錯(cuò)誤，以一下正確的修

改是

A、i循環(huán)的初始語(yǔ)句應(yīng)改為：Fori=0ToList1.ListCount-1

B、k循環(huán)的循環(huán)體應(yīng)改為:arr(k)=arr(k)+1

C、j循環(huán)的初始語(yǔ)句應(yīng)改為:Forj=m-ITon

D、刪除k循環(huán)涉及的三行代碼

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：列表框的SelCount用于讀取列表框中所選項(xiàng)的數(shù)目。此題中，將所

選項(xiàng)目數(shù)目賦值給m。ListCoum是列表框中表項(xiàng)的數(shù)目，表項(xiàng)的排列從0開(kāi)始，

最后一項(xiàng)的序號(hào)為L(zhǎng)islCount-1,故第一個(gè)For循環(huán)初始語(yǔ)句應(yīng)該改為Fori=OTo

List1.ListCount-1,故A項(xiàng)正確。

30、在窗體上有一個(gè)Listl列表框，并有如圖所示的5個(gè)項(xiàng)目，還有一個(gè)Textl文

本框和一個(gè)Commandl命令按鈕，并編寫(xiě)了如下程序代碼：

曹

i禱

機(jī)

M原

建

i僵

計(jì)

Commandl

Textl

PrivateSubCommand1_Click()Dim

chAsStringch一Foik-0ToListl.ListCount-1IfLeft(List1.List(k),Len(“數(shù)據(jù)”))

="數(shù)據(jù)"ThenListl.RemoveitemkEndIfNextkFork=Listl.ListCount-1To0Step-

1ch=ch&Listl.List(k)NextkTextl=chEndSub程序運(yùn)行時(shí)單擊命令按鈕后，在

文本框中顯示的是

A、程序設(shè)計(jì)計(jì)算機(jī)原理網(wǎng)絡(luò)程序設(shè)計(jì)

B、網(wǎng)絡(luò)程序設(shè)計(jì)計(jì)算機(jī)原理程序設(shè)計(jì)

C、程序設(shè)計(jì)數(shù)據(jù)結(jié)構(gòu)計(jì)算機(jī)原理數(shù)據(jù)庫(kù)原理網(wǎng)絡(luò)程序設(shè)計(jì)

D、網(wǎng)絡(luò)程序設(shè)計(jì)數(shù)據(jù)庫(kù)原理計(jì)算機(jī)原理數(shù)據(jù)結(jié)構(gòu)程序設(shè)計(jì)

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析；程序主要是將列表框項(xiàng)目中，前兩個(gè)字是“數(shù)據(jù)”字符的字符串刪除，

并將剩余項(xiàng)按從下往上的順序，連接成一個(gè)新字符串，并顯示在文本框中。Left

(Listl.List(k),Lcn(“數(shù)據(jù)“))二“數(shù)據(jù)"，這一語(yǔ)句是判斷列表框中的項(xiàng)前兩個(gè)字是

否是“數(shù)據(jù)”，如果是，從列表框移除。然后，利用For循環(huán)，按照從下往上的順

序，將列表項(xiàng)的字符串連接起來(lái)。由題可知，項(xiàng)目中數(shù)據(jù)結(jié)構(gòu)和數(shù)據(jù)庫(kù)原理兩個(gè)項(xiàng)

的前兩個(gè)字是“數(shù)據(jù)"，故將其刪除。列表框項(xiàng)從下往上的順序依次為網(wǎng)絡(luò)程序設(shè)

計(jì)、計(jì)算機(jī)原理和程序沒(méi)計(jì)。將這三個(gè)字符串連接起來(lái)，并顯示在文本框中，選項(xiàng)

B正確。

31、在窗體上畫(huà)一個(gè)名稱為Commandl的命令按鈕，并編寫(xiě)如下事件過(guò)程：

PrivateSubCommandl_Click()x=1s=0Fori=1To5x=x/

is=s+xNextPrintsEndSub該事件過(guò)程的功能是計(jì)算()。

A、S=l+2+3+4+5

5=1

B、

11

)S=14

2!本+5!

C、

S=l+必+而+而+而

D、

標(biāo)準(zhǔn)答案：C

H序中5次糖環(huán)」的一分別為I4,1/”

2=l/(l?2).I/I/2/3=1/(I?2?3).1/1/273/4=1/(1?2

?3*4),1/1.2/34/5=1(I*2,3?4。5).可以行出、值

就￡l/i!?內(nèi)比過(guò)"的功能就是計(jì)算I+1/2!+“3!*1/4!

知識(shí)點(diǎn)解析：7/5!火化選項(xiàng)一確

32、語(yǔ)句Dima(-3To4,3To6)AsInteger定義的數(shù)組的元素個(gè)數(shù)是()。

A、18

B、28

C、21

D、32

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：本題定義的是一個(gè)整型的二維數(shù)組，一3T。4指的是一3、一2、-

1、0、1、2、3、4(共8行),3To6指的是3、4、5、6(共4列)，因此數(shù)組元素個(gè)數(shù)

是8x4=32,故選De

33、有如下程序：PrivateSubForm_Click()DimiAsInteger,nAsInteger

Fori=1To20i=i+4n=n+iIfi>10ThenExitFor

NextPrintnEndSub程序運(yùn)行后，單擊窗體，則輸出結(jié)果是()。

A、14

B、15

C、29

D、30

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：程序中For循環(huán)中的If語(yǔ)句判斷循環(huán)變量i值如果大于10則退出循

環(huán)。各次循環(huán)變量值變化如下：i=l時(shí)，i=i+4=l+4=5,n=n+i=0+5=5,

此時(shí)i=5,i>10不成立，i加I轉(zhuǎn)入下次循環(huán)。i=6時(shí)，i=i+4=6+4=10,n=n

+i=5+10=15,此時(shí)，i=10,>1。不成立，i加1轉(zhuǎn)入下次循環(huán)。i=ll時(shí)，i=i

+4=ll+4=15,n=n+i=l5+l5=30,此時(shí)，1=15,】>10成立，退出循環(huán)此

時(shí)n=30o

34、以下關(guān)于菜單的敘述中，錯(cuò)誤的是()。

A、當(dāng)窗體為活動(dòng)窗體時(shí)，用Ctrl+E鍵可以打開(kāi)菜單編輯器

B、把菜單項(xiàng)的Enabled屬性設(shè)置為False,則可刪除該菜單項(xiàng)

C、彈出式菜單在菜單編輯器中設(shè)計(jì)

D、程序運(yùn)行時(shí)，利用控件數(shù)組可以實(shí)現(xiàn)菜單項(xiàng)的增加或減少

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：當(dāng)菜單項(xiàng)的Enabed屬性值設(shè)置為False時(shí)，菜單項(xiàng)只是變?yōu)闊o(wú)效

項(xiàng)，不可用，不會(huì)刪除該菜單項(xiàng)。故B選項(xiàng)錯(cuò)誤。

35、下列敘述中正確的是（）。

A、循環(huán)隊(duì)列是隊(duì)列的一種鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)

8、循環(huán)隊(duì)列是隊(duì)列的一種順序存儲(chǔ)結(jié)構(gòu)

C、循環(huán)隊(duì)列是非線性結(jié)構(gòu)

D、循環(huán)隊(duì)列是一種邏輯結(jié)構(gòu)

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：在實(shí)際應(yīng)用中，隊(duì)列的順序存儲(chǔ)結(jié)構(gòu)一般采用循環(huán)隊(duì)列的形式。

36、如果把文本框的Enabled屬性設(shè)置為False并運(yùn)行程序，則以下敘述中正確的

是

A、文本框中的文本變?yōu)榛疑也荒軐⒐鈽?biāo)置于文本框上

B、文木框中的文木變?yōu)榛疑梢詫⒐鈽?biāo)置于文木框上，但不能改變文木框中的

內(nèi)容

C、文本框中的文本變?yōu)榛疑?，可以改變文本框中的?nèi)容

D、文本框中的文本正常顯示，可以將光標(biāo)置于文本框上，但不能改變文本框中的

內(nèi)容

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：Enabled是用來(lái)設(shè)置控件是否可用。如果把文本框的Enabled屬性設(shè)

置為False并運(yùn)行程序，文本框中的文本變?yōu)榛疑?，且不能將光?biāo)置于文本框上。

37^有下面程序代碼：PrivateSubCommandl_Click()Fork=5To1Step-1x=k+

x*10NextkPrintxEndSub程序運(yùn)行后，單擊命令按鈕Command!,琉出結(jié)果是

A、12345

B、54321

C、15

D、150

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：For循環(huán)用來(lái)對(duì)x賦值。步長(zhǎng)為-1,一共執(zhí)行5次，第一次執(zhí)行完后

x=5,第二次執(zhí)行完后x=54,以此類推，選B)。

38、編寫(xiě)如下程序:PrivateSubCommandl_Click()Dima(3,3)AsIntegerDimiAs

Integer,jAsIntegerFori=1To3Forj=1To3Ifi>1Andj>1Thena(i,j)=a(a(i-

1,j-1),a(i,j-1))+1Elsea(i,j)=i*jEndIfNextjNextiFori=1To3Forj=1To3

Printa(i,j);NextjPrintNextiEndSub程序運(yùn)行后，單擊命令按鈕Command1,輸

出結(jié)果為

A、123231323

B、123211311

C、123200300

D、123222333

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：第一個(gè)For循環(huán)對(duì)數(shù)組a(3,3)元素賦初值。根據(jù)循環(huán)體內(nèi)的條件數(shù)組

元素獲得初值。第二個(gè)For循環(huán)進(jìn)行數(shù)組元素的打印。選A)。

39、窗體上有兩個(gè)水平滾動(dòng)條HV、HT,還有一個(gè)文本框Textl和一個(gè)標(biāo)題為“計(jì)

算”的命令按鈕Commandl,并編寫(xiě)了以下程序:

PrivateSubCommandl_Click()Call

calc(HV.Value,HT.Value)EndSubPublicSubcalc(xAsInteger,yAsInteger)

Textl.Text=x*yEndSub運(yùn)行程序，單擊“計(jì)算”按鈕，可根據(jù)速度與時(shí)間計(jì)算出距

離，并顯示計(jì)算結(jié)果。對(duì)以上程序，下列敘述中正確的是()o

A、過(guò)程調(diào)用語(yǔ)句不對(duì)，應(yīng)為calc(HV,HT)

B、過(guò)程定義語(yǔ)句的形式參數(shù)不對(duì)，應(yīng)為Subcalc(xAsControl,yAsControl)

C、計(jì)算結(jié)果在文本框中顯示出來(lái)

D、程序不能正確運(yùn)行

標(biāo)準(zhǔn)答案：c

知識(shí)點(diǎn)0析：訪問(wèn)滾動(dòng)條控件的值，可以直接使用控件的名稱，也可以在名稱后面

指明Value屬性。滾動(dòng)條位置是用數(shù)值來(lái)表示的，因此定義Calc過(guò)程時(shí)參數(shù)應(yīng)該

定義為Integer類型。程序中，Texll.Text=x*y語(yǔ)句說(shuō)明計(jì)算的結(jié)果在文本框中顯

示出來(lái)。

40設(shè)循環(huán)隊(duì)列的存儲(chǔ)空間為Q(l:35),初始狀態(tài)為front=rear=35?，F(xiàn)經(jīng)過(guò)一系列

入隊(duì)與退隊(duì)運(yùn)算后，front=15,rear=15,則循環(huán)隊(duì)列中的元素個(gè)數(shù)為

A、15

B、16

C、20

D、0或35

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：在循環(huán)隊(duì)列中，用隊(duì)尾指針【car指向隊(duì)列中的隊(duì)尾元素，用排頭指

針front指向排頭元素的前一個(gè)位置。在循環(huán)隊(duì)列中進(jìn)行出隊(duì)、入隊(duì)操作時(shí)，頭尾

指針仍要加1,朝前移動(dòng)。只不過(guò)當(dāng)頭尾指針指向向量上界時(shí)，其加1操作的結(jié)果

是指向向量的下界0。由于入隊(duì)時(shí)尾指針向前追趕頭指針，出隊(duì)時(shí)頭指針向前追趕

尾指針，故隊(duì)空和隊(duì)滿時(shí)，頭尾指針均相等。答案為D選項(xiàng)。

二、基本操作題（本題共2題，每題1.0分，共2分0）

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

41、在名稱為Forml的窗體上畫(huà)一個(gè)名稱為CD1的通用對(duì)話框，通過(guò)屬性窗口設(shè)

置CD1的初始路徑為C：\,默認(rèn)的文件名為None,標(biāo)題為“保存等級(jí)考試”，如

曹奪蒞9GNWil*].?d

*^r?

國(guó)DKM2BAI

QtZOiZC

E。

二FlTIT

$Cl5

oznewQfittat

麗K省一國(guó)，E

7Sell，*Df<?

3ntn

Nrrow

3w①railnr

文靜名如麗ri「■存G>]

.Ra|---------------------------------2——_.—.一一'I

圖2所示。圖2注意：

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

sjtl.firn。

標(biāo)準(zhǔn)答案：［操作步驟］步驟1：新建一個(gè)“標(biāo)準(zhǔn)。EXE”工程，選擇［工程1［部件］命

令，在彈出的“部件”對(duì)話框的列表中選中“MicrosoftCommonDiMogControl6.0”

項(xiàng)目，單擊“確定”按鈕°步驟2：在窗體Forml上畫(huà)一個(gè)通用對(duì)話框，其相關(guān)屬

表12-7

MB?性設(shè)?值

NameCD1

DialogTitlc保存等線考試

通用對(duì)話樞

FileNameNone

性設(shè)置如表12—7所示。----------InitDir——口——步驟3：編寫(xiě)

Forml的Iroad事件，加入下面的代碼：CD1.ShowSave步驟4：按要求將文件保

存至考生文件夾中。

知識(shí)點(diǎn)解析：通用對(duì)話框的InitDir屬性用于為打開(kāi)或另存為對(duì)話指定初始的目

錄，如果此屬性沒(méi)有指定，則使用當(dāng)前目錄。通店對(duì)話框的初始路徑由InilDir屬

性設(shè)置，默認(rèn)文件名由FileName屬性設(shè)置，標(biāo)題由Dialogue屬性設(shè)置。

42、在名稱為Forml的窗體上設(shè)計(jì)一個(gè)菜單。要求在窗體上添加名為menu。，標(biāo)

題為“菜單命令”的主菜單，再添加兩個(gè)名稱分別為“menul"、“menu2”，標(biāo)題分別

為“不可用菜單項(xiàng)”、“上一菜單項(xiàng)可用”的子菜單，并且使程序運(yùn)行時(shí)，menul子菜

單不可用，menu2子菜單已經(jīng)選中（運(yùn)行時(shí)的效果如圖3所示）。

圖3再編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，單擊“上一

菜單項(xiàng)可用”，則“不可用菜單項(xiàng)”變?yōu)楹谏捎茫Ｒ蟪绦蛑胁坏檬褂米兞?，且?/p>

有一條語(yǔ)句。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sit2.vbp,

窗體文件名為sit2.Frir.o

標(biāo)準(zhǔn)答案：［操作步驟］步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，打開(kāi)VB菜單設(shè)計(jì)器設(shè)

計(jì)菜單，各菜單項(xiàng)及屬性設(shè)K如表12—8所示。

?12-8

標(biāo)?名稱是否育效內(nèi)糠符號(hào)

菜單命令menuO有效0

不可用菜單項(xiàng)menul無(wú)效1

上菜單項(xiàng)可用menu2有效1?步驟2：打開(kāi)代碼編輯窗口，編

寫(xiě)“上一菜單項(xiàng)可用”命令的Click事件過(guò)程。參考代碼：PrivateSubmenu2_Click（）

menul.Enabled=TrueEndSub步驟3：按要求將文件保存至考生文件夾中。

知識(shí)點(diǎn)解析?：①VB中的菜單是通過(guò)菜單編輯器來(lái)設(shè)計(jì)的。菜單編輯器中的基本設(shè)

也項(xiàng)有：“標(biāo)題”項(xiàng)，對(duì)應(yīng)出現(xiàn)在菜單中的顯示內(nèi)容；"名稱''項(xiàng)，系統(tǒng)識(shí)別菜單項(xiàng)的

唯一關(guān)鍵字（不能重復(fù)）；“索引”項(xiàng)，用于設(shè)置菜單數(shù)組中各元素的索引號(hào)；“快捷

鍵”項(xiàng)，是一個(gè)下拉列表框，用于設(shè)置菜單項(xiàng)的快捷鍵；“幫助上下文”項(xiàng)，設(shè)置當(dāng)

鼠標(biāo)移動(dòng)到某菜單項(xiàng)上按VF1＞鍵時(shí)顯示的幫助信息在幫助文件中的對(duì)應(yīng)位徨；

Visible（可見(jiàn)）項(xiàng)，用于設(shè)置控件或菜單項(xiàng)在程序運(yùn)行時(shí)是否可見(jiàn)，值為True表示可

見(jiàn)，值為False表示不可見(jiàn)；Enabled（有效）項(xiàng)，用于設(shè)置控件或菜單項(xiàng)在程序運(yùn)行

時(shí)是否有效，值為True時(shí)表示有效，值為False時(shí)表示無(wú)效（顯示為灰色）。通過(guò)編

輯按鈕區(qū)的七個(gè)按鈕可對(duì)菜單進(jìn)行添加、插入、刪除、提升（設(shè)置為上一級(jí)菜單）、

縮進(jìn)（設(shè)置為下一級(jí)菜單）、上移、下移等操作。②文本框的Text屬性用于設(shè)置或

返回其顯示的文本內(nèi)容。本題原程序設(shè)計(jì)思路：在“上一菜單項(xiàng)可用”命令的單擊

事件過(guò)程中，通過(guò)語(yǔ)句設(shè)置“不可用菜單項(xiàng)”命令的Enabled屬性值為True。

三、簡(jiǎn)單應(yīng)用題（本題共7題，每題7.0分，共［分0）

43、（1）在考生文件夾中有一個(gè)工程文件sjt3.vbpo運(yùn)行程序時(shí)，先向文本框Textl

中輸入一個(gè)不超過(guò)10的正整數(shù)，然后選擇“N的階乘”或“（N+2）的階乘”單選鈕，即

可進(jìn)行計(jì)算，計(jì)算結(jié)果在文本框Text2中顯示，如圖所示。在給出的窗體文件中已

經(jīng)添加了全部控件，但程序不完整。要求：去掉程序中的注釋符，把程序中的?改

為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性，最后將修改后的文

件按原文件名進(jìn)行存盤。⑵在考生文件夾中有

一個(gè)工程文件sjt4.vbpo該程序的功能是將文件in4.ixl中的文本讀出并在文本框

Textl中顯示。輸入一個(gè)英文字母到文本框Text2中，然后單擊“統(tǒng)計(jì)”命令按鈕，

統(tǒng)計(jì)該字母(大小寫(xiě)被認(rèn)為是不同的字母)在文本中出現(xiàn)的次數(shù)，統(tǒng)計(jì)結(jié)果在標(biāo)簽

Label3中顯示。給出的窗體文件中已經(jīng)有了全部控件，如圖所示。程序不完整，

要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序

的其他部分和控件屬性，最后將修改后的文件按原文件名進(jìn)行存盤。

標(biāo)準(zhǔn)答案：(I)步驟1：打開(kāi)本題工程文件。步驟2：分析并編寫(xiě)程序代碼。程序

提供代碼PrivateSubOption1_Click(IndexAsInteger)DimnAsInteger

n=Val(Textl.Text)'SelectCase?Case0'Text2.Text=fl(?)Case

1'Text?.Tcxt=fl(?)EndSelectEndSubPublicFunctionfl(nAsIntcgcr)AsLongDim

xAsLongx=lTori=lTo?x=x*iNext*?=xEndFunction程序結(jié)束參考答案第1

個(gè)?處填入：Index第2個(gè)?處填入：n第3個(gè)?處填入：n+2第4個(gè)?處填入：n第5

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

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

Form_Load()OpenApp.Path&"\in4.txt"ForInputAs#1LineInput

#1.s'Textl.Tcxt=?Close#1EndSubPrivateSubCommandl_Click()DimnAs

integers=Textl.Textsl=RTrim(I7ext2.Text)Do'p=InStr(?)Ifp<>0Thenn=n+l

s=Mid(s,p+1)ToopWhilep?0TabeB.Caption二？EndSub程序結(jié)束參考答案第

1個(gè)?處填入：s第2個(gè)?處填入：s,si第3個(gè)?處填入：<>第4個(gè)?處填入：n步驟

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

知識(shí)點(diǎn)解析：(1)在單擊單選按鈕數(shù)組事件過(guò)程中，首先向文本框Textl中輸入一個(gè)

不超過(guò)10的正整數(shù)，通過(guò)Vai函數(shù)實(shí)現(xiàn)字符向數(shù)值的轉(zhuǎn)換，然后選擇“N的階乘”

或“(N+2)的階乘”單選按鈕，通過(guò)SelectCase語(yǔ)句和單選按鈕數(shù)組的Index屬性，

確定所調(diào)用函數(shù)的參數(shù)，從而調(diào)用Functionfl()過(guò)程函數(shù)進(jìn)行計(jì)算，將計(jì)算結(jié)果顯

示在文本框Text2中。(2)通過(guò)文件操作和連接符將文件in4.txt中的文本讀出

并顯示在文本框Textl中，在CommandlClick事件過(guò)程中，在文本框Text2中輸

入一個(gè)英文字母，然后單擊“統(tǒng)計(jì)”命令按鈕，統(tǒng)計(jì)該字母(大小寫(xiě)被認(rèn)為是不同的

字母)在文本中出現(xiàn)的次數(shù)，統(tǒng)計(jì)結(jié)果顯示在標(biāo)簽LabeB中。

四、綜合應(yīng)用題（本題共1題，每題1.0分，共7分0）

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

體外觀如圖3.5（a）所示。三個(gè)命令按鈕的名稱分別為Commandl、Command2

Commands,標(biāo)題分別為“讀取數(shù)據(jù)”、“首字母大寫(xiě)”和“存盤”。程序運(yùn)行后，如果

單擊“讀取數(shù)據(jù)”命令按鈕，則讀取考生文件夾下in5.txt中的全部文本（文本中的

單詞與單詞之間或標(biāo)點(diǎn)符號(hào)與單詞之間均用一個(gè)空格分開(kāi)），并在文本框中顯示出

來(lái)。文本內(nèi)容如下：Tuckeddeepwithinthepromisesandpoliciesofhi

sStateoftheUnionaddress,Presiden'LtBushu.tteredthre

ewordsthatspeakvolumesaboutWashington,sparalysisinaddressingtheplightofthefbrtymiU

ionAmericanswholackhealthinsurance.Inbetweenhisdiscourseon

Medicareandhissupportfbralow-incomehealthcaretaxcredit,

Bushcalledforsomethingcalledassociationhealthplans.如果單擊“首字母大寫(xiě)”命令按

鈕，則將文本框中每個(gè)單詞的第一個(gè)字母變?yōu)榇髮?xiě)字母（如果原來(lái)已是大寫(xiě)字母則

不改變），并在文本框中顯示出來(lái)，如圖3.97（b）所示；如果單擊“存盤”命令按

鈕，則把文本框中的內(nèi)容（首字母大寫(xiě)后）保存到考生文件夾下的文件。ut5.txt

中。、窗體文件中己給出了部分程序，請(qǐng)把它補(bǔ)充完整，使其實(shí)現(xiàn)上述功能。

要求：口編

寫(xiě)“讀取數(shù)據(jù)”命令按鈕的Click事件過(guò)程。2）去掉“首字母大寫(xiě)”命令按鈕和“存盤”

命令按鈕事件過(guò)程中的注釋符，把程序中的“?”改為正確的內(nèi)容，使其能正確運(yùn)

行。3）用原來(lái)的文件名保存工程文件和窗體文件。

標(biāo)準(zhǔn)答案：步驟1：打開(kāi)考生文件夾中的工程文件承5.vbp,在代碼編輯窗口中，

去掉程序中的注釋符將問(wèn)號(hào)改為正確的內(nèi)容。參考代碼：

ch=Mid（oldSen,i,I）newSen=newSen&chWrite#1,Textl.Text步驟2：編寫(xiě)

“讀取數(shù)據(jù)”命令按鈕的單擊事件。參考代碼：PrivateSubCommandl_Click（）Dims

AsStringOpcn"in5.txt'ForInputAs1LineInput#1,SClose#1Textl.Text=sEnd

Sub步驟3：按鍵運(yùn)行程序，先單擊“讀取數(shù)據(jù)”按鈕，接著單擊“首字母大寫(xiě)”按

鈕，最后單擊“存盤”按鈕。步驟4：按要求將文件保存至考生文件夾中。

知識(shí)點(diǎn)解析：分析題目可知，本題中“讀取數(shù)據(jù)”命令按鈕中首先使用Fori叩ut方

式打開(kāi)文件，然后通過(guò)LineInput#語(yǔ)句將打開(kāi)文件中的數(shù)據(jù)讀出到變量s中并且賦

給文本框。在“首字母大寫(xiě)”按鈕的單擊事件中，首先依次取出文本框中的每一個(gè)

字符，然后判斷這個(gè)字符的上一個(gè)字符是否是空格，如果是空格則將該字符使用L

/Case函數(shù)轉(zhuǎn)換為大寫(xiě)；判斷完畢后無(wú)論是否轉(zhuǎn)換均將其連接到新的字符串中，

同時(shí)令這個(gè)字符成為新的“上一個(gè)字符"。這樣，循環(huán)結(jié)束后每個(gè)單詞的首字母就轉(zhuǎn)

換成了大寫(xiě)字母。在“存盤”按鈕的單擊事件中，首先以O(shè)utput方式打開(kāi)文件，然

后利用Write#語(yǔ)句將文本框中的內(nèi)容寫(xiě)回到文件中，最后關(guān)閉文件。

國(guó)家二級(jí)(VB)機(jī)試模擬試卷第2套

一、選擇題(本題共40題，每題1.0分，共40分。)

1、下列關(guān)于類、對(duì)象、屬性和方法的敘述中，錯(cuò)誤的是()。

A、類是對(duì)一類具有相同的屬性和方法對(duì)象的描述

B、屬性用于描述對(duì)象的狀態(tài)

C、方法用于表示對(duì)象的行為

D、基于同一個(gè)類產(chǎn)生的兩個(gè)對(duì)象不可以分別設(shè)置自己的屬性值

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：類是對(duì)一類具有相同的屬性和方法對(duì)象的描述，屬性用于描述對(duì)象的

狀態(tài)，方法用于表示對(duì)象的行為，基于同一個(gè)類產(chǎn)生的兩個(gè)對(duì)象是可以分別設(shè)置自

己的屬性值的。

2、表達(dá)式8)+Fix(-15.8)+Int(15.8)+Fix(15.8)的運(yùn)算結(jié)果是()。

A、-1

B、-2

C、0

D、1

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：本題考查函數(shù)Ini的功能，Int(x)的作用是取不大于x的最小的整數(shù)，

Fix(x)則是簡(jiǎn)單的取整數(shù)部分。

3、組合框是文本框和()特性的組合。

A、復(fù)選框

B、標(biāo)簽

C、列表框

D、目錄列表框.

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：本題考查組合框。組合框控件(ComboBox)是將文本框和列表框的功

能結(jié)合在一起，用戶可以在列表中選擇某項(xiàng)(注：只能選取一項(xiàng))，或在編輯區(qū)域中

直接輸入文本內(nèi)容來(lái)選定項(xiàng)目。

4、設(shè)有如卜過(guò)程：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAs

Integer)PrintChr(KeyCode)EndSubPrivateSubForm_KeyUp(KeyCodeAs

Intege,ShiftAsInteger)PrintChr(KeyCode+2)EndSub若把窗體的KeyPreview屬性

設(shè)置為True,程序運(yùn)行后，如果按“A”鍵，則輸出結(jié)果為()。

AsAA

B、AB

C、AC

D、AD

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：本題考查窗體的鍵盤事件。當(dāng)按下鍵盤上某個(gè)鍵時(shí)，觸發(fā)KcyPrcss

事件；按下鍵盤某個(gè)鍵過(guò)程中，觸發(fā)事件KeyDown事件；當(dāng)松開(kāi)鍵盤某個(gè)鍵時(shí)，

觸發(fā)事件KeyUpoKeyDown和KeyUp事件返回的是鍵盤的直接狀態(tài)(返回的是

“鍵)KeyCode參數(shù)是用戶按下的那個(gè)鍵的掃描便，而KeyPress返回的是“字符”

的ASCII碼，兩者不同。當(dāng)窗體的KeyPreview設(shè)置為True時(shí)，如果焦點(diǎn)從控件上

跳到窗體上，則該控件的鍵盤事件也會(huì)被觸發(fā)。題中只有窗體的KeyDown和

KeyUp事件，因此當(dāng)按下“A”鍵時(shí)，觸發(fā)KeyDown事件執(zhí)行“PrintChr(KeyCode)”

語(yǔ)句，其中Chr函數(shù)的功能是將ASCH碼轉(zhuǎn)換成相應(yīng)的字符，因此輸出字母“A”；

當(dāng)松開(kāi)“A”鍵時(shí)，觸發(fā)KeyUp事件執(zhí)行“PrintChr(KcyCodc+2)”語(yǔ)句，因此輸出字

母“C”。

5、VB的數(shù)值型數(shù)據(jù)分為()兩種。

A、整數(shù)和長(zhǎng)整數(shù)

B、整數(shù)和浮點(diǎn)數(shù)

C、單精度浮點(diǎn)數(shù)和雙精度浮點(diǎn)數(shù)

D、整數(shù)和貨幣數(shù)據(jù)類型

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：本題考查數(shù)值型數(shù)據(jù)。VB中提供的數(shù)值類型包括整數(shù)、浮點(diǎn)數(shù)、貨

幣類型和字節(jié)型.一般來(lái)講貨幣類型為定點(diǎn)浮點(diǎn)數(shù)或者整數(shù)，而字節(jié)型為整數(shù)。

6、在窗體上有兩個(gè)名稱分別為Textl、Text2的文本框，一個(gè)名稱為Command1的

命令按鈕。運(yùn)行后的窗偽外觀如圖所示。設(shè)

有如下的類型和變量聲明：PrivateTypePersonnameAsString*8majorAsString*20

EndTypeDimpAsPerson設(shè)文本框中的數(shù)據(jù)已正確地賦值給Person類型的變量

p,當(dāng)單擊“保存”按鈕時(shí)，能夠正確地把變量中的數(shù)據(jù)寫(xiě)入隨機(jī)文件Test2.dat中

的程序段是。。

A^Open"c：\Test2.dat"ForOutputAs#lPut#l,1,pClose#1

B、Open'c：\Test2.dat"ForRandomAs#lGet#l,1,pClose#1

C、Open"c：\Test2.(lat"ForRandomAs#lLen=Len(p)Put#l,1,pClose#1

D^Open"c：\Test2.dat"ForRandomAs#lLen=Len(p)Get#l,1,pClose#1

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：在VB中可以訪問(wèn)的文件有：順序文件、隨機(jī)文件和二進(jìn)制文件。不

同文件存取方式不同，但處理的步驟大致一樣：①用Open語(yǔ)句打開(kāi)文件，并為

文件制定一個(gè)文件號(hào)。艱踞文件的的存取方式使用不同的模式打開(kāi)文件。本題是

隨機(jī)文件，讀寫(xiě)的是一條一條的記錄，所以用ForRandom模式打開(kāi)，記錄的長(zhǎng)度

為Person類型變量p的長(zhǎng)度。②從文件中讀出數(shù)據(jù)進(jìn)行處理或處理數(shù)據(jù)后，把數(shù)

據(jù)寫(xiě)入文件。本題是把變量的數(shù)據(jù)寫(xiě)入隨機(jī)文件，所以用Put語(yǔ)句寫(xiě)入。③文件

操作結(jié)束，關(guān)閉文件。各種文件關(guān)閉統(tǒng)一用Close#文件號(hào)關(guān)閉。綜上所述，故本

題選C。

7、將E—R圖轉(zhuǎn)換為關(guān)系模式時(shí)，實(shí)體和聯(lián)系都可以表示為()0

A、屬性

B、鍵

C、關(guān)系

D、域

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：從E—R圖到關(guān)系模式的轉(zhuǎn)換是比較直接的，實(shí)體與聯(lián)系都可以表示

成關(guān)系，E—R圖中屬性也可以轉(zhuǎn)換成關(guān)系的屬性。

8、某人編寫(xiě)如下函數(shù)來(lái)判斷a是否為素?cái)?shù)，若是，則函數(shù)返回True；否則返回

FalseoFunctionprime(aAsInteger)AsBooleanDimkAsInteger,isprimeAsBoolean

Ifa<2Thenisprime=FalseEl