計(jì)算機(jī)二級(VB)考試機(jī)試題庫

2021年VB題庫

第01套簡單應(yīng)用題

（I）在考生文住央下有一個工程文件，窗體上已經(jīng)有一個標(biāo)簽Label1,請?zhí)砑右粋€單項(xiàng)選擇按鈕數(shù)組，名稱為Opl,含三個單項(xiàng)選擇

按鈕，它們的Index屬性分別為0、I、2,標(biāo)題依次為"飛機(jī)"、"火車"、"汽車"，再添加一個名稱為Tcxll的文本框。窗體文件中已經(jīng)給

出了Opl的Click%件過程，但不完整，要求去掉程序中的注耗符，把程序中的?改為正確的內(nèi)容，使得在程序運(yùn)行時單擊”K機(jī)"或"火

車”單項(xiàng)選擇按鈕時，在Texil中顯示“我坐飛機(jī)去"或"我坐火車去?.單擊“汽車”單項(xiàng)選擇按鈕時，在Texil中顯示"我開汽車去”，如下

圖。

注意：不能修改程序中的其他局部.助后將修改后的文件按原文件名存盤。

PrivateSubOpl_Click(IndexAsInteger)

DimaAsString,bAsString,cAsString

a=“我坐”

b="我開”

'SelectCase?*****Index*****

Caste0

Textl.Text=a+Me.Opl(0).Caption+"去”

Case1

Textl.Text=?+Me.Opl(1).Caption+"去******a*****

Case2

Textl.Text=b+Me.Opl(2).Caption+"去”

EndSelect

EndSub

（2）在考生文件夾下有一個工程文件，F(xiàn)brml窗體中有一個文本桂，名稱為Texll：請?jiān)诖绑w上添加兩個框架控件，名稱分別為Fl、F2,標(biāo)題分別為”性別"、"身份?1:

在F1中添加兩個單項(xiàng)選擇按鈕控件Opl、Op2,標(biāo)題分別為"男"、-女”：在F2中添加兩個單項(xiàng)選擇按鈕控件Op3、Op4,標(biāo)題分別為"學(xué)生"、啜師"：再添加一個命令按

鈕，名稱為C1,標(biāo)題為"確定"。如下圖。請編寫適當(dāng)?shù)氖录^程,使得在運(yùn)行時，在Fl、F2中各選一個單項(xiàng)選擇按鈿，然后單擊“確定"按鈕,就可以按照下表把結(jié)果

顯示在文本框中。

性別身份在文本框中顯示的內(nèi)容

男學(xué)生我是男學(xué)生

男教肺我是男教師

女學(xué)生我是女學(xué)生

女教師我是女教師

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

注意：考生不得修改窗體文件中已經(jīng)存在的程序和Textl的屬性，在結(jié)束程序運(yùn)行之前，必須進(jìn)行能夠產(chǎn)生上

表中?個結(jié)果的操作。必須用窗體右上角的關(guān)閉按鈕結(jié)束程序.否那么無成績.

，*****請考生編寫程序*****

Ifoplandop3thenTextl.Text="我是男學(xué)生”

Ifopland<^>4thenTextl.Tcxt=*我是男教師。

Ifop2andop3thenTextl.Text=w我是女學(xué)生”

Ifop2andoj>4ihenTexil.Tex1="我是女教師”

***??第01套綜合應(yīng)用題

以下數(shù)列：1.1.2.3,5,8,13,21,....的規(guī)律是從第3個數(shù)開始.每個數(shù)都是其前面兩個數(shù)之和。

在考生文沖夾下有一個工程文件。窗體中已經(jīng)給出了所有控件，如下圖。請編寫適當(dāng)?shù)氖录^程完成如下功能：選中

?個單項(xiàng)選擇按鈕后,單擊”計(jì)算“按鈕，那么計(jì)算出上述數(shù)列的第n項(xiàng)的值，并在文本框中顯示，n是選中的單項(xiàng)選擇按鈕后

面的數(shù)值。（提示：因計(jì)兌結(jié)果較大，應(yīng)使用長整型變試.）

注意：不能修改已經(jīng)給出的程序和已有的控件的屬性：在勢束程序運(yùn)行之前，必須選中一個單項(xiàng)選擇按鈕，并單擊”

計(jì)兌"按鈕獲得一個結(jié)果：必須使用窗體右上角的關(guān)閉按鈕結(jié)束程序，否那么無成績”最后把修改后的文件按原文件名存盤,

PrivateSubCommandl_Click()

******請考生編寫程序*****

Dima(35)AsLong

Ifopl(O)thenn=30

iropl(l)thenn=33

Ifopl⑵thenn=35

a(l)=1

a⑵=1

Fori=3Ton

a(i)=a(i-1)+a(i-2)

Next

Tbxtl.Text=a(n)

EndSub

第02套簡單應(yīng)用題

(1)在考生文件夾下有一個工程文件，窗體中有兩個圖片框，名稱分別為Pl、P2,其中的圖片內(nèi)容分別是一架航天飛機(jī)和一朵云彩，一個命令

按鈕，名稱為CL標(biāo)題為“發(fā)射“，還有一個計(jì)時器，名稱為Timcrl。并給出了兩個事件過程，但并不完整，要求：

①設(shè)置Timeri的屬性，使其在初始狀態(tài)下不計(jì)時：

②設(shè)巴Time”的屬性，使其每隔秒調(diào)用Timci■事件過程一次。

③去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使得在運(yùn)行時單擊?"發(fā)射"按鈕，那么航天飛機(jī)每隔秒向h移動?次，當(dāng)?shù)竭_(dá)P2的

下方時停止移動，如下圖.

注意：不能修改程序中的其他局部。最后把修改后的文件按原文件名存盤。

PrivateSu?Cl_Click()

TimerIEnabled=?*x***True*****

EndSub

PrivateSu3Timcrl_Timcr()

Statica%

,lfPl.lbp>P2.1bp+P2.?Then*****Height

PI.MovePI.Left,PI.Top-5-

Else

'TimerI.Enabled=?*****False*****

EndIf

EndSub

(2)在考生文件夾下有一個工程文件，運(yùn)行情況如下圖,程序的功能是計(jì)算以下表達(dá)式的值：

za(x+2)*2+(x+3)*3+(x+4)-4++(x+N)-N

其中的N和x的值通過鍵盤分別輸入到文本框Texil、Texi2中。之后如果單擊標(biāo)題為“計(jì)匏"、名稱為Commandl的命令按鈕，那么計(jì)免表達(dá)式的(ftz,并將計(jì)匏結(jié)

果顯示在名稱為Label1的標(biāo)簽中。

在給出的窗體文件中已經(jīng)添加了全部控件和程序，但程序不完整,要求去掉程序中的注群符，把程序中的?改為正

確的內(nèi)容。

注意：考生不得修改窗體文件中已經(jīng)存在的程序。程序中不得使用八運(yùn)算符,而應(yīng)使用函數(shù)xn進(jìn)行庠運(yùn)算。程序至

少運(yùn)行?次，按照以下圖輸入數(shù)據(jù)，使x=10,N=5,單擊"計(jì)算"按鈕，計(jì)算z的值，并將結(jié)果顯示在標(biāo)卷Labdl中，否那么沒有成績。最后，程序按原文件名存盤。

PrivateFuictionxn(aAsSingle,mAsInteger)

DimiAsInteger

imp=1

Fori-ITom

'tmp=??*???tmp*a???*?

Next

'xn=?,*,?**tmp*****

EndFunciion

PrivateSu，Command1_Click()

DimnAsInteger

DimiAsInteger

DimtAsSingle

Dims,xAsSingle

n=Val(Teitl.Text)

x=Val(1bKi2.1ext)

z=0

Fori=2Ton

l=x+i

'z=z+?*****xn(t,i)*****

Next

,Label!.Option=?z*****

CallSavcRcsult

EndSub

PrivateSu?SavcRcsultO

OpenApp.Path&"\out4.dat"ForOutputAs#1

Close#1

EndSub

***??第02套與合應(yīng)用題

在考生文沖夾中有一個工程文件sjt5.vbp.該程序的功能是從文件中注入40個數(shù)據(jù),統(tǒng)計(jì)這些數(shù)據(jù)中素?cái)?shù)的個數(shù),并

找出所有素?cái)?shù)中最小的素?cái)?shù)（判斷素?cái)?shù)的函數(shù)已給出）。最后將杳我和統(tǒng)計(jì)的結(jié)果分別顯示在標(biāo)卷LabcU和Labd3中（窗體外

觀如下圖）。程序不完整，請?jiān)谥付ǖ奈恢冒殉绦蜓a(bǔ)充完整。

注意：不得修改原有程序和控件的屬性。在結(jié)束程序運(yùn)行之前，必須至少正確運(yùn)行一次程序，將統(tǒng)計(jì)的結(jié)果顯示在

標(biāo)簽中，否那么無成績。最后把修改后的文件按原文件名存盤。

PrivateanflOO)AsInieger

PublicFurctionprime(xAsInteger)

k=Int(Sqifx)+5)

Fori=2Tok

IfxModi=0Then

pnmc=False

ExitFunction

EndIf

Next

prime=Tiue

EndFunction

PrivateSIDCommandl_Click()

OpenApp.Path&"\in5.txt"ForInputAs#1

Fori=1To40

Inpul#l,aEi)

Next

Close#I

EndSub

PrivateSmCommand2_Click()

—請考生編寫程序?????

DimaAsInteger

DimbAsInteger

a=0

b=anti)

Fori=1To40

Ifprimc(arr(i))Thena=a+1

Label3.Caption=a

Nex(

Fori=1To40

Ifprime(arr(i))Andarr(i)<=bThenb=arr(i)

Labcl4.Caption=b

Next

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

OpenApp.Path&"\out5.txt"ForOutputAs#1

Close#1

EndSub

*****笫03套簡單應(yīng)用題

（1）在考生文件夾下有一個工程文件，其功能是：

①單擊??讀數(shù)據(jù)"按鈕.那么將考生文件夾下文件中的100個。到999之間的整數(shù)讀入到數(shù)組a中;

?For*l

②單擊“計(jì)算”按鈕，那么找出這100個整數(shù)中的所有水仙花數(shù)，井將它們的最大值與最小值分別顯示在文本框Tex,1、BE?

333水仙花數(shù)的最大值為

Texi2中.（注：當(dāng)一個數(shù)的值等于該數(shù)中的各位數(shù)字的立方和時，此數(shù)被稱為水仙花數(shù)。如：153-1‘丁+5'+3'所以

水仙花數(shù)的最小值為

153就是一個水仙花數(shù)）

在窗體文件中已經(jīng)給出了全部控件（如下圖）和”讀數(shù)據(jù)??命令按鈕的事件過程以及判斷一個數(shù)是否為水仙花數(shù)的通用過11速蝴CIi+M

程。要求編寫"「匏t?命令按鈕的事件過程。

注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行前,必須進(jìn)行“計(jì)算”，并且必須通過單擊窗體右上角的??關(guān)閉”按鈕結(jié)束程序，否那么

無成績。最后，程序按原文件名存盤,

Dima(100)AsInteger

PrivateSu?Commandl_Click()

DimkAsInteger

OpenAppPaih&"\in3.dat"ForInputAs#1

Fork=1To100

Input#1,a(k)

Nextk

Close#I

EndSub

PrivateSu,Comman<l2_Click()

1?****語考生編寫的程序*****

DimiAsInteger

DimmaxAsInteger,minAsInteger

max=-1

min=1000

Fori=1To100

Kisnarc(a(i))Then

Ifmax<=a(i)Thenmax=a(i)

Ifmin>=a(i)Thenmin=a(i)

EndIf

Nexti

Tcxtl=max

Texi2=min

EndSub

以下Funciion過程用于判斷某數(shù)是否為水仙花數(shù)

Functionisnarc(pAsInteger)

x=Fix(p/100)

y=Fix((p-x*100)/10)

z=p-x?10()-y*10

Ifp=xA3+yA3+zA3Then

isnarc=True

Else

isnarc-False

EndIf

EndFunction

PrivateSIDFormUnload(CancelAsInteger)

OpenApp.Path&"\ou(3.dat"ForOutputAs#1

Print#l.Val(TextI.Text)

Prim#l,Val(Text2.Text)

Close#1

EndSub

（2）在考生文件夾下有一個工程文件sji4.vbp。請?jiān)诖绑w上添加一個組合框，名稱為cbl,并輸入三個列表項(xiàng)："3"、"7"、11”（列表項(xiàng)的順序不限，但必須是這3

個數(shù)字）；添加,個名為Textl的文本框：再添加?個標(biāo)題為“計(jì)算名稱為C1的命令按鈕.如下圖。請編寫適當(dāng)?shù)氖录^.Foral匚2叵)區(qū)j

程，使得在程序色行時，在組合框中選定一個數(shù)字后，單擊“計(jì)第”按鈕，那么計(jì)兌5000以內(nèi)能夠被該數(shù)整除的所有數(shù)之和,

并放入Textl中。最后，按原文件名存盤。

提示：由于計(jì)算結(jié)果較大，應(yīng)使用長整型變量.

注意：考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須至少進(jìn)行一次計(jì)算。并且必須用窗體右上角

的關(guān)閉按鈕結(jié)束程序，有那么無成績。

PrivateSujCI_Click()

,*???*需考生編寫的程序*****

DimsumAsLong

DimnAsInteger

DimiAsInteger

n=Val(Cbl.Tcxt)

Fori=nTo5()(X)

IIiModn=Ufhen

suin=sum+i

EndIf

Nexti

Textl.Text=sum

EndSub

*****第03套絳合應(yīng)用題

在考生文沖夾下有一個工程文件，其名稱為Forml的窗體上已有三個文本框Tcxll、Tcxt2、Tcxt3,以及同部程序代碼。請完成以下工作:

①在屬性熨I」中修改Texts的適當(dāng)屬性，使其在運(yùn)行時不顯示，作為模擬的剪貼板使用。窗體如下圖：

②建立下猿式菜單，如下表所示:

標(biāo)題名稱

編輯Edit

剪切Cut

復(fù)制Copy

粘貼Paste

③窗體文件中給出了所有事件過程,但不完整.請去掉程序中的注釋符,把程序中的？改為正確的內(nèi)容。以便實(shí)現(xiàn)如下功能：當(dāng)光標(biāo)所在的文件椎中無內(nèi)容時.

“剪切"、”豆制"不可用，否那么可以把該文本框中的內(nèi)容剪切或兔制到Texi3中：假設(shè)Text3中無內(nèi)容，那么“粘貼"不能用，否那么可以把Texl3中的內(nèi)容粘貼在光標(biāo)所

在的文本框中的內(nèi)容之后.

注意：不能修改程序中的其他局部。各菜單項(xiàng)的標(biāo)題名稱必須正確。最后將修改后的文件按原文件名存盤。

DimwhichAsInteger

PrivateSu〉copy_Click()

Ifwhich=1Then

Tcxt3.1cxt=

ElseIfwhich=2Then

Tcxt3.1cxt=

EndIf

EndSub

PrivateSuicut_Click()

Ifwhich=IThen

Tcxt3.1cxt=

Textl.lext=""

Elsclfwhich=2Then

Text3.Text=

q；xl2/Rxi=""

EndIf

EndSub

PrivateSu?cdit_Click()

'Ifwhich=?ThenI■拿?8今

IfR;xtl.lcxi=""Then

cut.Enablcd-False

Copy.Enabled=False

Else

cut.Enabled=True

C卬y.Enablcd=True

EndIf

'Elselfwhich=?Then*名客**2**名名卷

If1ext2.1ext=""Then

cut.Enabled=False

Copy.Enabled=False

Else

cut.bnablcd=True

Copy.Enabled=True

EndIf

EndIf

IfRxt3.1<!xt=Then

Pastc.Enablcd=False

Else

d=Tmc

EndIf

EndSub

PrivateSuopaste_Click()

Ifwhich=IThen

Tcxtl.lext=?*****1cxt1.1cxt+Tcxt3.1cxt

Elselfwhich=2Then

Tcxt2.Icxi=?*****Tcxt2.Tcxt+Tcxt3.Tcxt…

EndIf

EndSub

PrivateSubTextl_GotFocus(),本過程的作用是：當(dāng)焦點(diǎn)在Texil中時，which=I

which=I

EndSub

PrivateSu?Tcxt2_GotFocus()'本過程的作用是：當(dāng)焦點(diǎn)在Tcxt2中時，which-2

which=2

EndSub

*****第04套簡單應(yīng)用題

（1）在名稱為Forml的窗體上添加一個名稱為Labell、標(biāo)題為"添訓(xùn)工程：”的標(biāo)簽：添加一個名稱為Tex”的文本框,初始內(nèi)容

為空：添加一個名稱為Combol的下拉式組合框，并通過屬性窗口輸入假設(shè)干工程（不少丁3個，內(nèi)容任意卜再添加兩個命令按

鈕，名稱分別為CommandsCommand2,其標(biāo)題分別為“添加統(tǒng)計(jì)，在程序運(yùn)行時，向Tcxtl中輸入字符，單擊“添加"按鈕

后,那么將Texil中的內(nèi)容作為一個列表項(xiàng)被添加到組合框的列表中；單擊"統(tǒng)計(jì)"按鈕，那么在窗體空白處顯示組合框中列表項(xiàng)

的個數(shù)，如下圖，請編寫兩個命令按鈕的Click事件過程。

注意：程序中不得使用變量,也不能使用循環(huán)結(jié)構(gòu)。存盤時必須存放在考生文件夾下，工程文件名保存為m3.vbp,窗體

文件名保存為。

**???*需考生編寫的程序*****

PrivateSu?CommandI_Click（）

Combo1.AdditemTextl

EndSub

PrivateSu〉Comman<12_Click（）

EndSub

（2）在考生文件夾下有一個工程文件，其窗體如卜.圖。該程序用來對在上面的文本框中輸入的英文字母串（稱為“明文”）加密，

加密結(jié)果（稱為“密文”）顯示在下面的文本框中。加密的方法為：選中一個單項(xiàng)選擇按鈕.單擊“加密”按鈕后，根據(jù)選中的單項(xiàng)選

擇按鈕后面的數(shù)字n,將“明文”中的每個字母改為它后面的第n個字母（?z”后面的字母認(rèn)為是"a","Z"后面的字母認(rèn)為是"A"）,如

下圖。窗體中已經(jīng)給出了所有控件和程序.但程序不完整，請去掉程序中的注釋符.把程序中的?改為正確的內(nèi)容。

注意：不得修改程序中的其他局部和控件的屬性。最后相修改后的文件按原文件名存盤。

PrivateSIDCommandl_Click()

DimnAs'nieger,kAsInteger,mAsInteger

DimcAsString,aAsString

Fbrk=OJO2

IfOpl(k).ValueThen

'n=ValiOpl(k).?)*****Caption

EndIt

Nextk

m二Len(TexiI.Tsxt)

a=.”

'Fork=lTo?*****m*****

'c=MidS(1cxtl.lcxt.?,1)*****k*****

c=S(ring(I,Asc(c)+n)

]fc>"z"Orc>"Z"Andc<VThen

c=String(l.Asc(c)-26)

EndIf

Nexik

Tcxt2.1cx(-a

EndSub

―第04套綜合應(yīng)用題

在考生文件夾下臺?個工程文件，窗體上仃兩個文本框，名稱分別為Tex。、Text2,都可以多行顯示。還有：個命令按鈕.

稱分別為Cl、C2、C3,標(biāo)題分別為“取數(shù)"、>'排序"、"存盤"?！叭?shù)”按鈕的功能是將考生文件夾下的文件中的50個整數(shù)讀到數(shù)組中,

并在Tex。中顯示出來："挎序"按鈕的功能是對這50個數(shù)按升序排片，并顯示在Texl2中：“存盤"按鈕的功能是把排好序的50個數(shù)存到考生目錄下的文件中。如下圖.在

窗體中已經(jīng)給出了全部控件和局部程序代碼，要求閱讀程序并去掉程序中的注擇符，把程序中的?改為正確的內(nèi)容，并編寫“排序”按鈕的Click事件過程，使其實(shí)現(xiàn)上

述功能，但不能修改程序中的其他同部，也不能修改控件的屬性.最后將修改后的文件按原文件名存盤。

Dima(50)AsInteger

PrivateSu，Cl_Click()

DimkAsInteger,chAsString

Open"in5dat"ForInputAs#1

ch=""

Fork=150

'Input#I,?*****a(k)**???

ch=ch+Str(a(k))+""

Nextk

Close#1

'Textl.7ext=?

EndSub

PrivateSuoC2_Click()

,*****需考生編寫的程序*****

DimtAsInteger

DimiAsInteger

DimjAsInteger

DimchAsString

ch='"

Fori=50To2Step-1

Fbrj=1To49

Ifa(j)>a(j+1)Then

c=a(j+1)

a(j+l)=a(j)

a(j)=t

EndIf

Nextj

Nexti

Forj=17b50

ch=ch+Str(a(j))+""

Nextj

TextZlext=ch

EndSub

PrivateSu〉C3_Click()

Open"oui5.dat"ForOutputAs#1

Close#I

EndSub

*****第05套的單應(yīng)用題

（1）在考生文件夾下有?個工程文件sj8Vbp（相應(yīng)的窗體文件名為sjt3.frm）,在窗體上.添加?個名稱為Listl的列表框和?個名稱

為Textl的文本框，如圖I所示”編寫窗體的MouseDown事件過程。程序運(yùn)行后，如果用鼠標(biāo)左犍單擊窗體，那么從寶盤上輸入

要添加到列表框中的工程（內(nèi)容任意，不少于三個）；如果用鼠標(biāo)左鍵單擊窗體，那么從捷盤上輸入要刪除的工程，落其從列表

框中刪除。程序的運(yùn)行情況如圖2所示。這個程序不完整,請把它補(bǔ)充完整，并能正確運(yùn)行。

要求，去黑程序中的注標(biāo)符.把程序中的?改為適當(dāng)?shù)膬?nèi)容.使其正確運(yùn)行,但不能修改程序中的其他局部.呆后將修改

后的文件按原文件名存盤.

PrivateSu?Form_MouscDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

irButton=IThen

Text1.Text=lnpuiBox("請輸入要添加的工程”)

ListI.Additem?*****Text).Text*****

EndIf

IfButton=2Then

TextI.Text=InputBoN"請輸入要刪除的工程。

,Fori=0To??????ListI.UstCount-1*****

1fListl.LisKi)=?Thcn*****Tcxd.lcxt

,ListI.Removeitem?

EndIf

Ncxti

EndIf

EndSub

（2）在考生文件夾下有?個工程文件sjM.vbp（相應(yīng)的窗體文件名為sjl4.frm）,其功能是通過調(diào)用過程FindMin求數(shù)組的最小值。程序運(yùn)行后,在四個文本框中各輸入?

個整數(shù)，然后單擊命令按鈕，即可求出數(shù)組的最小值，并在窗體上顯示出來（如下圖）。

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

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

OptionBa;e1

PrivateFuiclionFindMin(a()AsInteger)

DimStartAsInteger

DimFinishAsInteger,iAsInteger

'Start=?(a)*****LBound*****

,Finish=?(a)*****UBound*****

"Min=?(Start)*****A

Fori=StartlbFinish

Ifa(i)?MinThenMin=*****<********8*a⑴*****

Ncxii

EindMin=Min

EndFunction

PrivateSu〉Commandl_Click()

Diinarrl

Dimarr2(4)AsInteger

arrl=Army(Val(Text1.Text),Val(Text2.1ext),Val(Text3.Text).Val(Text4.Text))

Fori=lib4

arr2(i)=CInt(arrl(i))

Nexti

'M=FindMin(?)???**arr2*****

Print”最小值是："：M

EndSub

*****第05套絳告應(yīng)用題

在窗體上建立三個菜單（名稱分別為Read、Calc和Save,標(biāo)題分別為“讀入數(shù)據(jù)“、“計(jì)算并輸出"和"存盤）然后再添加一個文本框，名稱為Tcxtl,MultiLinc屬性

設(shè)置為Tnie,scellBais屬性設(shè)置為2（如下圖）。程序運(yùn)行后，如果執(zhí)行“讀入數(shù)據(jù)"命令，那么讀入考生文件夾下文件中的100個整數(shù)，放入?個數(shù)組中，數(shù)組的下界為1：

如果單擊“計(jì)算并輸出"按鈕，那么把該數(shù)組中下標(biāo)為偶數(shù)的元素在文本框中顯示出來，求出它們的和，并把所求得的和在窗

體匕顯示出來：如果單擊"存盤1?按鈕,那么把所求得的和存入考生文件夾下的文件中。

在考生文沖夾下有一個工程文件，窗體文件中的ReadDaia過程可以把文件中的100個整數(shù)讀入Arr數(shù)組中：而WriieDaia

過程可以把指定的整數(shù)值寫到考生.文件夾下指定的文件中（整數(shù)值通過計(jì)匏求得，文件名為dataouuxt）。

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

?*???而考生領(lǐng)寫的程序*****

DimsumAsInteger

PrivateSubCalc_Click()

■Rxtl.Text=""

Fori=21blOOStep2

TextI.Text=Textl.Tsxt&Arr(i)&Space(5)

sum=sum+Anti)

Nex(i

Printsum

EndSub

PrivateSu〉Rcad_Click()

ReadData

EndSub

PrivateSu〉Savc_Click()

WriteData"dataout.txt'',sum

EndSub

*****第06套簡單應(yīng)用題

(1)在考生文件夾下有?個工程文件sjt3.vbp,相應(yīng)的窗體文件為sjt3.frm。其功能是產(chǎn)生30個(M000的隨機(jī)整數(shù)，放入?個數(shù)組中，

然后輸出其中的最小值.程序運(yùn)行后，單擊命令按鈕(名稱為Commandl,標(biāo)題為“輸出最小值"),即可求出其最小值，并在窗體上

顯示出來(如下圖)。這個程序不完整，請把它補(bǔ)充完整，并能正確運(yùn)行。

要求：去掠程序中的注釋符，把程序中的？改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他局部,最后把修改后的文

件按原文件名存盤。

OptionBase1

PrivateSubCommandl_Click()

DimarrN(30)asInteger

DimMinasInteger

Randomize

Fori=lto30

*arrN(i)=lnl(Rnd??)***1000…

Nexti

*7=arrN(l)…Min?**

Fori=2to30

'If?Then**?Min>arrN(i)***

Min=airN(i)

Endif

Nexti

PrintMin

EndSub

(2)在考生文件夾下有一個工程文件sjt4.vbp,相應(yīng)的窗體文件為sji4.fhn,在窗體上有一個命令按鈕和?個文本框.程序運(yùn)行后，單擊命令按鈕，即可計(jì)算出0~1000

范困內(nèi)不能被7整除的整數(shù)的個數(shù)，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了局部程序，其中計(jì)算不能被7移除的整數(shù)的個數(shù)的操作在通用過程Fun

中大現(xiàn)，請編寫該過程的代碼。

要求：

請勿改動程序中的任何內(nèi)容，只在FunctionFun()和EndFunction之間填入你編寫的假設(shè)干語句。最后把修改后的文件按原文件名存盤。

SubSaveData()

OpenApp.Path&&""ForOutputAs#1

Close#1

Endsub

'***FunctionFun()請考生編寫的程序???

DimiAsInteger,iAsInteger

Fori=0ToKMX)

IfiMod7<>0Then

EndIf

Nexti

Fun=s

***EndFunction***

PrivateSubCommandl_click()

D=Fun()

Textl.Text=d

SaveDaia

EndSub

*****第06套綜合應(yīng)用題

在考生文件夾下有一個工程文件sjbvbp,請先裝入該工程文件，然后完成以下操作：

在名稱為Forml的窗體上.畫二個命令按鈕，其名稱分別為C1和C2,標(biāo)題分別為“讀入數(shù)據(jù)”和“計(jì)算”(如下圖?。程序運(yùn)行后，如果單擊“讀入數(shù)據(jù)"按鈕，那

么調(diào)用題目所提供的ReadDalal和RcadData2過程讀入datain1.(x1和qlain2.lxl文件中的各20個整數(shù)，分別放入Arrl和Arr2兩個數(shù)組中；如果單擊“計(jì)算.按鈕，

那么把兩個數(shù)組中對應(yīng)下標(biāo)的元素相減，其結(jié)果放入第三個數(shù)組中(即：第一個數(shù)組的第n個元素減去第二個數(shù)組的第n個元素，其結(jié)果作為第三個數(shù)組的第n個元

素.這里的n為I、2.......20),最后計(jì)免第三個數(shù)組各元素之和，把所求得的和在窗體上顯示出來：并調(diào)用題目中給出的WriieData過程將所求得的和存

入考生文件夾下的dataout.txt文件中。

注意：考生不得修改窗體文件中己經(jīng)存在的程序,且必須執(zhí)行此程序一次，最后把修改后的文件以原來的文件名存盤.

OptionBase1

DimArrl(20)AsInteger

DimArr2(20)AsInteger

SubRcadDatal(?

OpenApp.Path&ForInputas#1

Fori=1to20

Input#l.ArrMi)

Ncxti

Close#1

EndSub

SubReadData2(：

OpenApp.PatF&ForInputas#1

Fori=lto20

Input#l.Arr2(i)

Nexti

Close#1

EndSub

SubWriteData(FilenameAsstring.NumAsInteger)

OpenApp.PatF&&FilenameForOutputAs#I

Print#1.Num

Close#1

Endsub

??????請考生編寫的程序*****

PrivateSujCl.ClickO

CallReadDataI

CallReadDaia2

EndSub

PrivateSu?C2_Click()

DimArr3(lTo20)AsInteger

DimsumAsInteger

sum=0

Fori=1lb20

Arr3(i)=Arrl(i)-Arr2(i)

sum=sum+Arr3(i)

Nex(i

Print"sum=";sum

WriteData"dataout.txt".sum

EndSub

*****第07套簡單應(yīng)用題

(1)在名稱為Forml的窗體上添加一個名稱為L1的標(biāo)簽，標(biāo)題為?口令"：添加兩個文本框，名稱分別為Textl、Text2,初始內(nèi)容為空；再添加三個命令按鈕，名稱分

別為CI、C2、C3,標(biāo)題分別為“顯示口令"、"建藏口令"、"復(fù)制口令”，在程序開始運(yùn)行時，向Texil中輸入的所有字符，都顯示為“*"，單擊"顯示口令"按鈕后，在Texil

中顯示所有字符，再單擊-陷臧口令-后，