家二級VB機試（上機操作）模擬試卷

第1套

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

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

（1）在名稱為Forml的窗體上用名稱為Shapel的控件畫一個圓，其直徑為1500

（即寬、高均為1500）,并設(shè)置適當屬性，使窗口標題為“圓”，窗性標題欄上不

顯示最大化和最小化按鈕（如圖1—231所示）。圖1?231注

意：存盤時必須存放在考生文件夾下，工程文件名為sjtl.vbp,窗體文件名為

sjtl.frmo（2）在名稱為Forml的窗體中建立一個彈出式菜單（程序運行時不顯

示），名稱為file,含兩個菜單項，其名稱分別為open、save,標題分別為“打

開”、“存盤”。編寫適當?shù)氖录^程。程序運行后，如果用鼠標右鍵單擊窗體，則

OF-

打開

存盤

彈出此菜單（如圖1—232所示）。圖1?232注意：程序中不能使

用變量。保存時必須存放在考生文件夾下，工程文件名為sjtZvbp,窗體文件名為

sjt2.frmo

標準答案：第I小題【操作步驟】步驟1：新建一個“標準EXE”工程，在窗體

Forml中加入一個形狀控件，其相關(guān)屬性設(shè)置如表2—114所示。

表2-114

對象屬性設(shè)置值

NameShapel

形狀

Shape3

Width1500

Height1500

NameFormI

Caption圓

窗體

MaxButtonFalse

MinBunon

------------步驟2：按要求將文件

保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工

程，選擇【工具】一【菜單編輯器】命令，打開菜單設(shè)計器，如表2—155中的設(shè)

a2-115

標題名稱內(nèi)縮符號可見

file0

打開openI7

存盤save1

置建立菜單項。-------------步驟

2：打開代碼編輯窗口，編寫窗體的事件過程以顯示彈出式菜單。參考代碼：

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

Single)IfButton=2ThenCallMe.PopupMenu(file)EnclIfEndSub步驟3：按要求將

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

知識點解析：哲尢解析

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

2、(1)在考生目錄下有一個工程文件sjt3.vbp,窗體上有一個組合框Combol,

其中已經(jīng)預(yù)設(shè)了內(nèi)容；還有一個文本框Textl和三個命令按鈕，名稱分別為

CommandKCommand?、Commands,標題分別為“修改”、“確定”、“添加程序

運行時，“確定”按鈕不可用，如圖1—233所示。

圖1-233程序的功能是：在運行時，如果

選中組合框中的一個列表項，單擊“修改”按鈕，則把該項復(fù)制到Textl中（可在

Textl中修改），并使“確定”按鈕可用；若單擊“確定”按鈕，則把修改后的Textl

中的內(nèi)容替換組合框中該列表項的原有內(nèi)容，同時使“確定”按鈕不可用；若單擊

“添加”按鈕，則把Textl中的內(nèi)容添加到組合框中。所提供的窗體文件已經(jīng)給出了

所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確

的內(nèi)容。但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的

文件按原文件名存盤。（2）在考生目錄下有一個工程文件sjl4.vbp,窗體中的兩

個滾動條分別表示紅燈亮和綠燈亮的時間（秒），移動滾動框可以調(diào)節(jié)時間，調(diào)節(jié)

范圍為1?10秒。剛運行時，紅燈亮。單擊“開始”按鈕則開始切換：紅燈到時后自

動變?yōu)辄S燈，I秒后變?yōu)榫G燈；綠燈到時后自動變?yōu)辄S燈，1秒后變?yōu)榧t燈，如此

切換（如圖1—234所示）。圖1234所提供的

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

程序中的?改為正確的內(nèi)容。提示：在三個圖片框picture1、picture2>picture3中分

別放置了紅燈亮、綠燈亮、黃燈亮的圖標，并重疊在一起，當要使某個燈亮時，就

使相應(yīng)的圖片框可見，而其他圖片框不可見，并保持規(guī)定的時間，時間到就切換為

另一個圖片框可見，其他圖片框不可見。注意：考生不得修改工程中已經(jīng)存在的

內(nèi)容和控件屬性，最后,巴修改后的文件按原文件名存盤。

標準答案：第1小題【操作步驟】步驟1：打開考生文件中的本題工程文件

sjt3.vbp,在屬性設(shè)置窗口，設(shè)置Command2的Enabled屬性值為False。步驟2：

在代碼編輯窗口，編寫三個命令按鈕按鈕的單擊事件過程。參考代碼：

Command2.Enabled=TrueComboI.List（Form1.Combo1.ListIndex）=Textl

Form1.Combo1.AdditemTextl步驟3：按要求將文件保存至考生文件夾中。第2小

題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt4.vbp,在代碼編輯窗

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

一、基本操作題(本題共1題，每題1.0分，共7分0)

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

(1)在名稱為Forml的窗體上畫兩個文本框，其名稱分別為Textl和Tcxt2,它們

的高、寬分別為300、2400和1200、2400。窗體的標題為“窗口”。請通過屬性窗

口設(shè)置適當?shù)膶傩詽M足以下要求：①Text2可以顯示多行文本，且有垂直和水平兩

個滾動條；②運行時在T?tl中輸入的字符都顯示為“*運行后的窗體如圖1—

46所示。圖146注意：存盤時必須存放在考生文件夾下，工

程文件名為sjtl.vbp,窗體文件名為sjtl.frm。(2)在名稱為Forml的窗體上畫一

個圖像框，名稱為Imagel,其高、寬分別為1900、1700,通過屬性窗口把考生文

件夾下的圖像文件picLbmp裝入圖像框；再畫兩個命令按鈕，名稱分別為C1、

標題分別為“放大”、“縮小”，如圖所示。

C,2,，1-47

圖1Y7要求：①請編寫適當?shù)氖录^程，程序運行后，如

果單擊“放大”按鈕，則把圖像框的高度、寬度均增加100；單擊“縮小”按鈕，則把

圖像框的高度、寬度均減少100o要求程序中不得使用任何變量。②通過屬性窗

口設(shè)置圖像框的適當屬性，使得在放大、縮小圖像框時，其中的圖像也自動放大、

縮小。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp,窗體文件

名為sjt2.frmo

標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，在窗體

Forml中按要求畫出控件并設(shè)置屬性。步驟2：按要求將文件保存至考生文件夾

中。第2小題【操作步驟】步驟1：新建一個“標淮EXE”工程，按要求畫出控件

并設(shè)置屬性。步驟2：打開代碼編輯窗口，編寫兩個命令按鈕的Click事件過程。

參考代碼：PrivateSubCi_Click()Image1.Width=Image1.Width+100

Image1.Height=Image1.Height+100EndSubPrivateSubC2_Click()Image1.Width=

Image!.Width-100Image1.Height=Image1.Height-100EndSub3：按要求將

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

知識點解析：暫無解析

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

2、（1）在考生文件夾下有一個工程文件sjt3.vbp,其功能是：①單擊“讀數(shù)據(jù)”按

鈕，則把考生文件夾下in3.dat文件中的0?999之間的100個整數(shù)讀入數(shù)組a中；

②單擊“計算”按鈕，則找出這100個整數(shù)中所有水仙花數(shù)，并將它們的最大值與

最小值分別顯示在文本框Tcxtl、Tcxt2中。（注：當一個數(shù)的值等于該數(shù)中的各

位數(shù)字的立方和時，此數(shù)被成為水仙花數(shù)，如153=丑+53+33,所以153就是一

個水仙花數(shù)。）在窗體文件中已經(jīng)給出了全部控件（如圖1—48所示）和“讀數(shù)

據(jù)''命令按鈕的事件過程以及判斷一個數(shù)是否為水仙花數(shù)的通用過程。要求編寫“計

算”命令按鈕的事件過程。圖1-48注意：考生不得修

改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運行前，必須進行“計算且必

須通過單擊窗體右上角的“關(guān)閉”按鈕結(jié)束程序，否則無成績。最后，程序按原文件

名存盤。（2）在考生文件夾下有一個工程文件sjt4.vbp。請在窗體上畫一個組合

框,名稱為CbL并輸入三個列表項：“3”、“7”、“11”（列表項的順序不限，但必

須是這三個數(shù)字）；畫一個名為Textl的文本框；再畫一個標題為“計算”、名稱為

C1的命令按鈕，如圖1—49所示。請編寫適當?shù)氖录^程，使得程序運行時，在

組合框中選定一個數(shù)字后，單擊“計算”按鈕，則計算5000以內(nèi)能夠被該數(shù)整除的

所有數(shù)之和，并放入Textl中。最后，按原文件名存盤。

圖1-49提示：由于計算結(jié)果較大，應(yīng)使用長整型變

量。注意：考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運行之前，必

須至少進行一次計算。必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。

標準答案：第1小題【操作步驟】步驟1:打開考生文件夾下的工程文件

sjt3.vbp,在代碼編輯窗口的指定位置編寫“計算”按鈕的單擊事件過程。參考代

碼：PrivateSubCommand2_Click()Max=a(l)Min=a(l)Fori=2To100If

isnarc(a(i))=TrueThenIfa(i)>MaxThenMax=a(i)Ifa(i)<MinThenMin=a(i)

EndIfNextText1.Text=MaxText2.Text=MinEndSub步驟2：按VF5>鍵運行程

序，先單擊“讀數(shù)據(jù)”按鈕，接著單擊“計算”按鈕，然后單擊窗體右上角的關(guān)閉按鈕

結(jié)束程序。步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】

步驟1：打開考生文件天下的工程文件sj(4.vbp。步驟2：在窗體Forml中按要求

畫出控件并設(shè)置屬性。步驟3：雙擊窗體Forml中的“計算”按鈕，打開代碼編輯

窗口，輸入如卜代碼：參考代碼：PrivateSubCl_Click()DimnAsInteger,kAs

Integer,sAsLongn=Val(Cb1.Text)s=0Fork=nTo5000IfkModn=0Thens=s

+kEndIfNextkText!.Text=sEndSub步驟4：按要求將文件保存至考生文件夾

中。步驟5：按VF5>建運行程序，從列表框中選擇一項，單擊“計算”按鈕，單擊

程序右上角的關(guān)閉按鈕。結(jié)束程序。

知識點解析：暫無解析

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

3、在考生文件夾下有一個工程文件sjt5.vbp,其名稱為Forml的窗體上已有三個

文本框Textl、Text2>Text3,以及程序。請完成以下工作：①在屬性窗口中修改

Text3的適當屬性，使其在運行時不顯示，作為模擬的剪貼板使用，窗體如圖1一

表1-2

標題名稱

絹輯Edit

剪切Cut

復(fù)制Copy

50所示；②建立下拉式菜單，見表1—2。_粘貼______吧J③窗體

文件中給出了所有事件過程，但不完整，請去掉程序中的注釋符，把程序中的?改

為正確內(nèi)容。以便實現(xiàn)以下功能：當光標所在的文本框中無內(nèi)容時，“剪切”、“復(fù)

制'‘不可用，否則可以把該文本框中的內(nèi)容剪切或復(fù)制到Text3中：若Text3中無

內(nèi)容，則“粘貼”不能用，否則可以把Text3中的內(nèi)容粘貼在光標所在的文本框中的

內(nèi)容之后。演注意：不能修改程序中的其他部

分。各菜單項的標題名彌必須正確。最后把修改后的義件按原義件名存盤。

標準答案：【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt5.vbp,選

中窗體中的文本框Tcxt3,將其Visible屬性為False。步驟2：選擇【工具】一

【菜單編輯器】命令，打開菜單設(shè)計器，按要求建立窗體菜單。步驟3：打開代碼

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

which=IThenIfwhich=2ThenText1.Text=Text1.Text+Text3.TextText2.Text=

Text2.Text+Text3.Text步驟4：按要求將文件保存至考生文件夾中。

知識點解析：暫無解析

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

第3套

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

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

(1)在名稱為Forml的窗體上畫一個文本框，其名稱為Tcxtl,然后通過屬性窗

口設(shè)置窗體和文本框的屬性，實現(xiàn)如下功能：①在文本框中可以顯示多行文本；

②在文本框中顯示垂直滾動條；③文本框中顯示的初始信息為“程序設(shè)計”；④文

本框中顯示的字體為三號規(guī)則黑體；⑤窗體的標題為“設(shè)置文本框?qū)傩浴保瓿稍O(shè)

置后的窗體如圖1—108所示。圖1/08要求：不編寫任何代

碼。注意：存盤時必須存放在考生文件夾下，工程文件名為sjtl.vbp,窗體文件名

為sjtl.frm。(2)在名稱為Fomil的窗體上畫兩個命令按鈕，如圖1—109(a)所

示，其名稱分別為Cmdl和Cmd2,編寫適當?shù)氖录^程。程序運行后，如果單擊

命令按鈕Cmdl,則可使該按鈕移到窗體的左上角(只允許通過修改屬性的方式實

現(xiàn))；如果單擊命令按鈕Cmd2,則可使該按鈕在長度和寬度上各擴大到原來的2

(a)

(b)

倍。程序的運行情況如圖1—109(b)所示。圖1-109要

求：不得便用任何變量。注意：存盤時必須存放在考牛文件夾下.T程文件名為

sjt2.vbp,窗體文件名為sjl2.frm。

標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，在窗體

Forml中畫一個文本框，并設(shè)置它的相關(guān)屬性，其屬性及值如表2—37所示。

聶2?37

對象屬性值

NameTextl

Text程序設(shè)計

FontName黑體

文本框

FontSize三號

MultiLineTrue

ScrollBars3

窗體Caption設(shè)置文本框雎步驟2：按要求將文件

保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工

程，如表2—38在窗體中畫出控件并設(shè)置其相關(guān)屬性。

表2?38

對象屬性值

NameCmdl

命令按鈕I

CaptionCmdl

NameCmd2

命令按鈕2

CaptionCmd2

--------------步驟2：打開代碼編輯窗

口，編寫兩個命令按鈕的單擊事件過程。參考代碼：PrivateSubCmdl_Click()

Cind1.Left=0Cindi.Top=0EndSubPrivateSubCmd2_Click()

Cmd2.Width=Cmd2.Width+Cmd2.WidthCmd2.Height=Cmd2.Height+Cmd2.Height

EndSub步驟3：按要求將文件保存至考生文件夾中。

知識點解析：暫無解析

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

2、(1)在考生文件夾下有一個工程文件sjt3.vbp,相應(yīng)的窗體文件為sjt3.frm。其

功能是產(chǎn)生30個0?1000的隨機整數(shù)，放入一個數(shù)組中，然后輸出其中的最大

值。程序運行后，單擊命令按鈕(名稱為Commandl,標題為“輸出最大值”，如圖

1—110所示)，即可求出其最大值，并在窗體上顯示出來。這個程序不完整，請

把它補充完整，并能正確運行。圖1-H0要求：去掉程

序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程

序中的其他部分。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有

一個工程文件sjt4.vbp,相應(yīng)的窗體文件為sjt4.frm,在窗體上有一個命令按鈕和一

個文本框。程序運行后，單擊命令按鈕，即可計算出1?1000范圍內(nèi)能被5整除或

能被7整除的整數(shù)的個數(shù)，并在文本框中顯示出來。在窗體的代碼窗口中，已給出

了部分程序，其中計算能被5整除或能被7整除的整數(shù)的個數(shù)的操作在通用過程

Fun中實現(xiàn)，請編寫該過程的代碼。要求：請勿改動程序中的任何內(nèi)容，只在

FunctionFun()和EndFunction之間填入編寫的若干語句。最后把修改后的文件按原

文件名存盤。

標準答案：第1小題【操作步驟】步驟1：打開考生文件中的本題工程文件

sjt3.vbp,在代碼編輯窗口，去掉程序中的注釋符“？將問號”?”改為正確的內(nèi)容。

參考代碼：arrN(i)=Int(Rnd*1000)Max=arrN(l)IfarrN(i)>MaxThen步驟2：

按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文

件下的本題工程文件sjt4.vbp,在代碼編輯窗口，編輯Fun函數(shù)的內(nèi)容。參考代

碼：Fori=1To1000IfiMod5=0OriMod7=0ThenY=Y+1EndIfNextiFun

=Y步驟2：按要求將文件保存至考生文件夾中。

知識點解析：暫無解析

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

3、在考生文件夾下有一個工程文件sjl5.vbp,相應(yīng)的窗體文件為m5.frm,此外還

有一個名為datain.txt的文木文件，其內(nèi)容如下：

32437658281298573142536475869713243546576879805937程序運行后，單擊窗

體，將把文件daiain.txt中的數(shù)據(jù)輸入到二維數(shù)組Mal中，在窗體上按5行、5列的

矩陣形式顯示出來，并輸出矩陣左上-右下對角線上的數(shù)據(jù)，如圖1—111所示。在

窗體的代碼窗口中，已給出了部分程序，這個程序不完整，請把它補充完整，并能

t5Fxml

笛

器

63爾

C

12旅

3?1湃

5375

IM335*sr

2加*

右

曙

-曾W

327T

正確運行。圖】要求：去掉程序中的注釋符，

把程序中的?改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其他部

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

標準答案：【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt5.vbp,在

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

Dimmat%(M,N)OpenApp.Path&"\"&"datain.txt"ForInputAs#1Input#1,

j)Ifi=jThenPrintTab(5*j);mat(i,j);步驟2：按要求將文件保存至考生文件夾

中。

知識點解析：暫無解析

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

第4套

一、基本操作題(本題共I題，每題L0分，共［分0)

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

(1)在名稱為Forml、標題為“框架練習”的窗體上畫一個名稱為Framel、標題為

“字體”的框架控件；在框架中畫兩個單選按鈕，名稱分別為Option】、ption2,標題

分別為“宋體”、“黑體”，標題在單選按鈕的左邊。運行后的窗體如圖1-36所示。

因17。注意：存盤時，將文件保存至考生文件夾下，且窗體文

件名為sjtl.frm,工程文件名為sjtl.vbp。(2)在名稱為Forml窗體上，畫一個名

稱為Imagcl的圖像框，在其中顯示考生文件夾下的圖片“pic2.jpg”，并設(shè)置適當屬

性使得圖像框尺寸變化時圖片尺寸可隨之變化。再畫一個水平滾動條和一個垂直滾

動條，名稱分別為HScrolH、VScrolll,它們的刻度范圍都是1?3。如圖1一37

(a)所示。要求如下：①定義兩個窗體級變量：length、high,并用寫窗體的

Form_Load事件過程，使length、high分別等于圖像框的寬、高；②編寫適當?shù)?/p>

事件過程，使得移動兩個滾動條上的滾動塊時，以刻度值作為圖像框初始尺寸的倍

數(shù)改變圖像框相應(yīng)方向的尺寸。例如：HScrolll的滾動塊在刻度值為2的位置時，

圖像框的寬為初始寬度的2倍。如圖1一37(b)所示。對于垂直滾動條也相同。

(a)

,d

2rHIM

(b)

圖L37注意：存盤時，將文件保存至考生文件夾下，且

窗體文件名為sjt2.frm,工程文件名為sjt2.vbp0要求程序中的兩個變量必須是

lengthshigh,此外不能再使用其他變量，除FormJLoad事件過程外，其他每個事

件過程中只能寫一條語句。

標準答案：笫1小題【操作步驟】步驟1：新建一個“標準EXE”工程，按要求畫

出控件并設(shè)置其相關(guān)屬性。步驟2：按要求將文件保存至考生文件夾中。第2小

題【操作步驟】步驟1：新建一個“標準EXE”工程，按要求畫出控件并設(shè)置肩

性。步驟2：打開代碼編輯窗I」，分別編寫滾動條的Change事件過程和窗體的

Load事件過程。參考代碼：Dimlength,highPrivateSubForm_Load()length=

ImageI.Widthhigh=Image1.HeightEndSubPrivateSubHScrolll_Change()

Image1.Width=HScrollLValue*lengthEndSubPrivateSubVScrolll_Change()

ImageI.Height=VScrolli.Value*highEndSub步驟3：按要求將文件保存至考生文

件夾中。

知識點解析：暫無解析

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

2、(I)考生文件夾下的工程文件sjt3.vbp中有一個菜單、兩個標簽和兩個文本

框。程序運行時，用鼠標右鍵單擊窗體會彈出一個彈出式菜單(如圖1—38所

示)。當選中“計算100以內(nèi)自然數(shù)之和”菜單項時，將計算100以內(nèi)自然數(shù)之和并

放入Texll中；當選中，計算7!”菜單項時，將計算7!并放入Text2中。在給出的窗

體文件中已經(jīng)有了全部控件，但程序不完整。請將事件過程中的注釋符去掉，把？

--------———:

■哪I

xtlhOOiU內(nèi)芻的SNKJ

一端________________________[

改為正確的內(nèi)容，以實現(xiàn)上述程序功能。圖1-38注意：考生

不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。-2)

考生文件夾下的工程文件sjt4.vbp中有如圖1—39所示的控件。程序功能如下：程

序運行時，在Textl中輸入一個商品名稱，在Text2中輸入一個數(shù)量，單擊“計算”

按鈕，則會在列表框中找到該商品的單價，乘以數(shù)量后顯示在Tcxt3中(如圖1—

39所示)；若輸入的商品名稱是錯誤的，則在Tex【3中顯示“無此商品”(為方便編

程，列表框中的每個單價均為4位(含小數(shù)點))。請將事件過程中的注釋符去

掉，把?改為正確的內(nèi)容，以實現(xiàn)_L述程序功能。

的控件和程序，最后將程序按原文件名存盤。

標準答案：第1小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件

sjt3.vbp,在代碼編輯窗口，去掉程序中的注釋符“二將問號”?”改為正確的內(nèi)容。

參考代碼：IfButton=2ThenPopupMenumypopmenuFork=nTo1Step-1Text2=

fact(7)步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟

1：打開考生文件夾下的工程文件sjt4.vbp,在代碼編輯窗口，去掉程序中的注釋符

將問號“?”改為正確的內(nèi)容。參考代碼：Fork=1ToList1.ListCount-1name

=Left(Listl.List(k),n-1)price=Val(Right(List1.List(k),4))Text3="無此商品"步驟

2：按要求將文件保存至考生文件夾中。

知識點解析：暫無解析

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

3、考生文件夾下的工程文件sjl5.vbp中的窗體如圖1-40所示。考生文件夾下的

隨機文件in5.dat中有20條記錄，每條記錄含姓名和三個分數(shù)（均為100以內(nèi)的正

整數(shù)）。在程序中已經(jīng)定義了類型Rccordtypc,此類型變量可以存放一條記錄。要

求如下：①請為“計算最大最小值''按鈕編寫Click事件過程，其功能是：讀取文件

中的記錄，計算每人的總分，找出其中最大總分和最小總分，分別放入變量

maxval,minval中（這兩個變量已經(jīng)給出，不得修改）。②運行程序，單擊“計算

最大最小值''按鈕后再單擊“存盤”按鈕。圖170注意：

考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運行之前，必須依次

單擊”計算最大最小值”、“存盤”按鈕，否則無成績。最后，程序按原文件名存盤。

標準答案：【操作步驟】步驟1：打開考生文件夾中的本題工程文件factsjt5.vbp,

在代碼編輯窗口的適當位置編寫代碼。參考代碼：PrivateSubCommandl_Click（）

DimsAsRecordtypeOpen"in5.dat"ForRandomAs#1Len=Len（s）maxval=0minval

=300Fork=1To20Get#1,,ssumval=s.al+s.a2+s.a3Ifsumval>maxvalThen

maxval=sumva!2i-l（i為彳了號）Ifsumval<minvalThenminval=sumvalNextk

Close#1EndSub步驟2：運行程序，單擊“計算最大最小值”命令按鈕，然后單擊

“存盤”按鈕。步驟3：按要求將文件保存至考生文件夾中。

知識點解析：暫無解析

國家二級VB機試（上機操作）模擬試卷

第5套

一、基本操作題（本題共1題，每題1.0分，共1分0）

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

（1）在名稱為Forml的窗體上畫一個圖片框，名稱為P1,高為1800,寬為

1700,通過屬性窗口把圖形文件picl.bmp放到圖片框中（如圖1—1所示）。注

意：存盤時必須存放在考生文件夾下，工程文件名為sjtl.vbp,窗體文件名為

sjtl.frmo-(2)在名稱為Forml的窗體上畫兩個

文本框，名稱分別為Textl、Text2,都顯示垂直滾動條和水平滾動條，都可以顯示

多行文本；再畫一個命令按鈕，名稱為CI,標題為“復(fù)制”(如圖1—2所示)。

請編寫適當?shù)氖录^程，使得在運行時，在Textl中輸入文本后，單擊“復(fù)制”按

鈕，就把Textl中的文本全部復(fù)制到Text2中。程序中不得使用任何變量。

閔卜2注意：存盤時必須存放在考生文件夾下，工程

文件名為sjt2.vbp,窗體文件名為sjt2.frm。

標準答案：笫1小題【操作步驟】步驟1：新建一個“標準EXE”工程，按要求畫

出控件并設(shè)置屬性。步驟2：按要求將文件保存至考生文件夾中。第2小題【操

作步驟】步驟1：新建一個“標準EXE”工程。按要求畫出控件并設(shè)置屬性。步驟

2：打開代碼編輯窗口，編寫命令按鈕的單擊事件過程。參考代碼：PrivateSub

CI_Click()Text2.Text=Textl.TextEndSub步驟3：按要求將文件保存至考生文件

夾中。

知識點解析：暫無解析

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

2、(1)在考生文件夾下有一個工程文件sjt3.vbp,相應(yīng)的窗體文件為sjt3.frm。在

窗體上有一個命令按鈕，其名稱為Command］，標逸為“添加”：有一個文本框，名

稱為Textl,初始內(nèi)容為空白；有一個列表框，名稱為Listl。程序運行后，在文本

框中輸入一個英文句子(由多個單詞組成，各單詞之間用一個空格分開)，然后單

擊“添加”按鈕，程序?qū)言撚⑽木渥臃纸鉃閱卧~，并把每個單詞作為一個項目添加

到列表框中，如圖1—3所示。該程序不完整，請補充完整。

圖1?3要求：去掉程序中的注釋符，把程序中的。改

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

文件按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4.vbp,其中的窗

體中有一個組合框和一個命令按鈕(如圖1—4所示)。程序的功能是在運行時，

如果在組合框中輸入一個項目并單擊“添加”按鈕，則搜索組合框中的項目，如果沒

有此項，則把此項添加到列表中；如果有此項，則彈出提示“已有此項”，然后清除

輸入的內(nèi)容。圖17要求：去掉程序中的注釋符，把

程序中的?改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分，

也不能修改控件的屬性。最后把修改后的文件以原來的文件名存盤。

標準答案：第I小題【操作步驟】步驟1：打開考生文件夾下的工程文件

sjt3.vbpo步驟2,打開代碼編輯窗口.夫掉程序中的注釋符將問號“?”改為TF

確的內(nèi)容。參考代碼:SI=Text1.TextDoWhileMid(Sl,II,1)<>MMAndII_<

=Len(Sl)List1.AdditemS2S2=,H,步驟3：按要求將文件保存至考生文件夾中。

第2小題【操作步驟】步驟1：打開考生文件下的本題工程文件sjt4.vbp。步驟

2：打開代碼編輯窗口，去掉程序中的注釋符“巾，將問號"?”改為正確的內(nèi)容。參

考代碼：Fori=OToCbl.ListCount-1IfCbl.List(i)=Cbl.TextThen

Cb1.AdditemCbl.Text

知識點解析：暫無解析

三、綜合應(yīng)用題(本題共［題，每題分，共/分。)

3、在考生文件夾下有文件in5.txt,文件中有幾行漢字。請在Forml的窗體上畫一

個文本框，名稱為Textl,能顯示多行；再畫一個命令按鈕，名稱為C1標題為“存

盤編寫適當?shù)氖录^程，使得在加載窗體時，把in5.txt文件的內(nèi)容顯示在文本

框中，然后在文本的最前面手工插入一行漢字“計算機等級考試”(如圖1—5所

示)。最后單擊“存盤”按鈕，把文本框中修改過的內(nèi)容存到文件out5.txt中。

gForml

段

一

降

面

本

不

算

麓

金

子-

內(nèi)

有

已

存

盤

圖1?5注意：只能在最前面插入文字，不能修改原有

文字。文件必須存放在考生文件夾下，以sjt5.vbp為文件名存儲工程文件，以

sjt5.frm為文件名存儲窗體文件。

標準答案：【操作步驟】步驟1：新建一個“標準EXE”工程，按要求畫出控件并

設(shè)置屬性。步驟2：打開代碼編輯窗口，編寫相應(yīng)事件過程。參考代碼：Private

SubCl_Click()Open"out5.txt"ForOutputAs#1Print#1,Textl.TextClose#1EndSub

PrivateSubForm_Load()Open"in5.txt"ForInputAs#1Textl.Text=""DoWhileNot

EOF(1)LineInput#1,a$Textl.Text=Text1.Text+aS+Chr(l3)+Chr(l0)LoopClose

#1EndSub步驟3：按VF5＞鍵運行程序，在文本的最前面手工插入一行漢字：

“計算機等級考試”，然后單擊“存盤”按鈕保存結(jié)果。步驟4：按要求將文件保存至

考生文件夾中。

知識點解析：暫無解析

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

第6套

一、基本操作題(本題共1題，每題1.0分，共1分。)

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

(1)在名稱為Forml的窗體上畫一個水平滾動條，其名稱為HScrolll,Min屬性

為0,Max屬性為100,LargeChange屬性為5,SmallChange屬性為2,然后再畫

一個文本框，其名稱為Textl,初始內(nèi)容為空白，編寫適當?shù)氖录^程。程序運行

后，在文本框中輸入0F00之間的一個值，然后單擊窗體，則滾動條的滾動框移

到相應(yīng)的位置，程序的運行情況如圖1—288所示。

圖1-288要求：程序中不得使用任何變量。

存盤時必須存放在考生文件夾卜，_L程文件名為sjll.vbp,窗體文件名為sjtl.frm。

(2)在名稱為Forml的窗體上畫一個標簽，其名稱為Labell,標題為“程序設(shè)

計”，AutoSize屬性為True；然后再畫一個列表框，通過屬性窗口輸入5個項目，

分別為10、16、20、24、36,如圖1—289(a)所示，編寫適當?shù)氖录^程。程序

運行后，如果用鼠標選中列表框中的某個項目，則把標簽中字體的大小設(shè)置為與該

項目相同。程序的運行情況如圖1—289(b)所示,

(b)

圖1-289要求：程序中不得使用任何變量。存盤時必

須存放在考生文件夾下，工程文件名為sjt2.vbp,窗體文件名為sjt2.frm。

標準答案：第1小題【操作步驟】步驟1：新建“標準EXE”工程，往窗體Forml

中加入一個文本框和一個水平滾動條，分別設(shè)置它們的相關(guān)屬性，屬性及其值如表

表2?154

控件屬性值

NameText1

文本框:

Text

NameHScrolll

Min0

水平滾動條Max100

SmallChange2

LargeChange5

2—154所示。步驟2：

打開代碼編輯窗口，輸入如下代碼：參考代碼：PrivateSubForm_Click()

HScrolll.Value=Val(Textl.Text)EndSub步驟3：按要求將文件保加至考生文件夾

中。第2小題【操作步驟】步驟1：新建一個“標淮EXE”工程，在窗體上畫一個

列表框和一個標簽，按表2—155設(shè)置其相關(guān)屬性。

表2?155

對象屬性值

NameListl

列表框

List10、16、20、24、36

NameLabel1

標簽Caption程序設(shè)計

AutoSizeTrue

步驟2：在打開的代碼

編輯窗口中，編寫列表框的單擊事件代碼。參考代碼：PrivateSubLisll_Click()

Label1.FontSize=Val(Listl.Text)EndSub步驟3：按要求將文件保存至考生文件夾

中0

知識點解析：暫無解析

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

2、(I)在考生文件夾下有一個工程文件sjt3.vbp,相應(yīng)的窗體文件為sjt3.frm。

在窗體上有一個命令按鈕，其名稱為Command］，標題為“移動”：有一個文本框，

名稱為Textl,可以多行顯示；此外還有一個列表框，其名稱為Listl。程序運行

后，會在列表框中顯示幾行文字，如圖1—290(a)所示。如果單擊命令按鈕，則

把列表框中的文字移到文本框中，如圖1—290(b)所示。該程序不完整，請把它

補充完整(程序中的vbCrLf表示回車換行符)。

OForTllIoH日〕—

惹

樹

工

4水

移

O風

S￡動

大

(a)

Fornl

狷

樹

木

雪

m幾

下

,度

仕

人

天

圖1-29°要求：去掉程序中的注釋符，把程序中

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

來的文件名保存工程文件和窗體文件。(2)在考生文件夾下有一個工程文件

sjt4.vbp,相應(yīng)的窗體文件為sjt4.frm。在窗體上有一個標簽(名稱為Labell)、

個計時器(名稱為Timerl)和兩個命令按鈕(名稱分別為Command1和

Command?),如圖1-291(a)所示。程序運行后，其初始界面如圖1-291

(b)所示。此時如果單擊“開始”命令按鈕，則可使標簽每隔0.2秒閃爍一次;如

果單擊“停止”命令按鈕，則標簽停止閃爍。該程序不完整，請把它補充完整。

的注釋符，把程序中的。改為正確的內(nèi)容，使其能正確運行，但不能修改程序中的

其他部分。最后用原來的文件名保存工程文件和窗體文件。

標準答案：第1小題【操作步驟】步驟1：打開本題工程文件爾3.vbp,在代碼編

輯窗口中，去掉程序中的注釋符揩問號"?''改為正確的內(nèi)容。參考代碼：Fori

=0ToList1.ListCount-Is=s&Listl.List(i)&vbCrLfListl.ClearTextl.Text=s步

驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開

考生文件中的本題工程文件sjt4.vbp,在代碼編輯窗口中，去掉程序中的注釋符

將問號“?”改為正確的內(nèi)容。參考代碼：Form_Load事件中的程序：

Timer1.Enabled=FalseTimer1.Interval=200Commandl_Click事件中的程序:

Timer!.Enabled=TrueCommand2_Click事件中的程序：Timer!.Enabled=False步

驟2：按要求將文件保存至考生?支件夾中。

知識點解析：暫無解析

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

3、在名稱為Forml的窗體上畫三個命令按鈕（名稱分別為Commandl、

Command2和Command3,標題分別為“顯示”、“統(tǒng)計”和“保存”），然后畫一個文

本框（名稱為Textl,MultiLine屬性設(shè)置為True,ScrollBars屬性設(shè)置為2）,如

圖1—292（a）所示。程序運行后，如果單擊“顯示”命令按鈕，則讀入in5.txt文件

中的文本，并在文本框中顯示出來，如圖1—292（b）所示；如果單擊“統(tǒng)計”命令

按鈕，則統(tǒng)計文本框中ASCII碼大于等于70、小于等于100的字符的個數(shù)，并把

結(jié)果在文本框中顯示出來，如圖1—292（c）所示（注意，圖中所顯示的統(tǒng)計次數(shù)

是隨便寫的，不是實際的統(tǒng)計結(jié)果）；如果單擊“俁存”命令按鈕，則把統(tǒng)計結(jié)果存

入考生文件夾下的out5.txt文件中g(shù)

0Formljo『ET

Infdskaxlg>nTdurwday,

BritishPrimelinisterTonyBlair