国家计算机二级VB考试上机题合辑

第一套

Cl）在名窗92钟1的窗件上即虞金命令按科:寸篇海誓答覆为娃驾颜喳题着整

"命令按钮1"和"命令按钮2",।工田卜

.序运行后，“命令按钮2”隐藏。编写适当的事f

冷丑1。则“会令援钮2”出现，“金令松钮1P;而如:、一,一…，

冷丑?_"，则I"命令按钮1”出现，“命令接钮2”科e程序的运行情况如

饕不。

裳雷品龙要暮胃普彗星文件夹下，工程文件名为sjtl.vbp,窗体文件名

为sjtl.frmo

i.Forml，!□1x|

[.备冬卷亩£……jl

启动VisualBasic系统，创建一个Forml窗体。

在该窗体上画二个命令按钮控件，通过其属性窗口将名称分别设为C1和C2,

标题（Caption属性）分别设为“命令按钮1”和“命令按钮2”，将C2的Visible属性

为False。

单击命令按钮1（即运行Click事件过程），在该Click事件过程中加入语句:

PrivateSubCl_Clickk（）

C2.Visible=True

Cl.Visible=False

EndSub

单击命令按钮2(即运行Click事件过程)，在该Click事件过程中加入语句:

PrivateSubC2_Clickk()

Cl.Visible=True

C2.Visible=False

EndSub

C2)在名卷为Forml的窗体上画一个列表框，其名称为L1；一个水平海勃条，其

名称为HS1,SmallChange属性为2,LargeChange属性为10,Miri属性为0,

Max属性苗100*编舄适当的事侔过程。程序运存后，如果把寇劫疱侈氢某

个位亶，然后单击窗体，贝后列表津中添加一个项目，其内舂是“XX”，

其中XK是滚动框所在的位置，如图讲示。

程存中不要使用变量，存盘时必须存放在考生文件夹下，工程文件名为

sjt2.vbp,窗体文件名为sj12.frino

启动VisualBasic系统，创建一个Forml窗体。

在该窗体上画一个列表框控件，通过其属性窗口将名称设为L1。画一个水平

滚动条控件，通过其属性窗口将名称设为HS1,Min属性设为0,Max属性设为100,

SmallChange属性设为2,LargeChange属性设为10。

单击窗体（即运行Click事件过程），在该Click事件过程中加入语句：

PrivateSubForm_Click（）

LI.AdditemStr$（Forml.HS1）

EndSub

在考生文件夹下有一个工程文件值电的直体文件为

(1)在窗体上有一个命令按钮和一个文Sj本t3.框vb。p,矍承运行信，里圭金s令"按3.钮fr，m,取

可讨算出薮组工「也售个元素与基下惊怛隐防得昭也、卷本框里县委出

热肄髓露牖就露镰弱眼谶峰鹭X懑霾飙

请勿改动程序中的甚他部分，只在FunctionFunQ和EndFunc旦on^国

鬟入你编写为若干德句并蓬行程序。最后把修改后的文件按原文件名存

说歉

数组arr中若有40个元素，所谓“数组打工中每个元素与其下标相除所得

的和〃,指的是：

arr(1)/I+arr(2)/2+arr(3)/3+...+arr(40)/40

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp,相应的

窗体文件名为sjt3.frm0

由于提供的Fun()函数不完整，需添加语句，具体内容：

FunctionFun(a()AsSingle)AsSingle

Sum二0

Fori=1ToUBound(a)

Sum=Sum+a(i)/i

Nexti

Fun=Sum

EndFunction

为

隹

件

文

体

的

件

程

有

里

窗

应

考

在

件

文

文

个

—

男

量

CiHs・&

与JsJ5

..鎏

符

其

在-

按

普t4

函

-森

舞

黑

上

V性

别V

名

葬

命6

如

，

薨

为

名

g为coalCOd2>

称

!时

嚎

令.

一

篦

呻

丁

序

里-

拄

命

.葬s

运

计

雪

在

零161

时

T要

11亲

be藉

令

T-”

改

停

始c

.为.

标

显

显co

止

显

示

用

“

”dlt

co体

中

wl5体

为

“-

拿

开

，

％播

豪

廿

鬻

小

票

鬻

？n

的

同

嘉-i

登

堇.Wrn

w篇

此

AuU至

如

si令

鬻

击

1te,间

霸

Tr把In

”al

襄

N时

始

等

个

le时

用

En动

为dffli

国

“

ab自

禁I

动

j单

曹

动

向

.右

始

i体.

灰

普

也

泰

糅

商

篆

按

，

如

时

骨,

智

为

则-

为

塞

.煤

$技*

正

,再

20蕤

羲

”

动

单

，

动

击

令

靠

次

续

.钊

“

序

击

不

界

道

技

，.

把

运

战

它

充

费

并•

.用

行

黄

重.,

i。

鬻

使

程

中

的

把

释

中

的

道

功SS?S

件

他分

不

邰

中

改

酢

：

存JT

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp,相应的

窗体文件名为sjt4.frm0

由于所提供的窗体程序不完整，在窗体的PrivateSubCommandl_Click()

事件过程中，有二处地方需要修改。

1)将语句'TimerLEnabled=?

改为Timerl.Enabled=True

2)将语句'Commandl.Enabled=?

改为Command1.Enabled=False

在窗体的PrivateSubCommand2click()事件过程中，有•处地方需要修改。

1)将语句'TimerLEnabled=?

改为TimerLEnabled=False

在窗体的PrivateSubTimerl_Timer()事件过程中，有一处地方需要修改。

1)将语句'Label1.Left=?

2)改为La为11.Left=Label1.Left+20

在考生目茎下宣一个工程文件与"5.vbp。啻体生

是，单话“显示”命岑按神，则把考生目录卡一一

放入Textl81>行显示),如图近示；厘口果单击“

计文本框中生嗔、B、C、D与自出场的茨效，并忙、

8an,bn,cn,dn之中(取在其他变量甲超无成绩3;牛辞膏给寓令

按钮,则把统计绪果存入若生文衽来下的。ut5.txC_,.「一

“显本”和“保存下接铮的Click事件过程。请编写“统讨〃知的：韦

量梁程。Click

注羹t十每个字母出现的次数时，不区分大小写。

任案盲自修改已经给出的程序部分；在结束程序运行之时，必须单

提锌,杷结果存入。ut5.txt文件.否则无成绩。最居把作改后I

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp,相应的

窗体文件名为sjt5.frmo

由于所提供的窗体程序不完整，需添加事件过程。

单击“统计”按钮(即运行Click事件过程),在该Click事件过程中加入语句:

PrivateSubCommand2_Click()

n=Len(Textl)

Fork=1Ton

ch=Mid(Textl,k,1)

IfUCase(ch)=〃A〃Then

an=an+1

EndIf

IfUCase(ch)二〃B〃Then

bn=bn+1

EndIf

IfUCase(ch)=〃C〃Then

cn=cn+1

EndIf

IfUCase(ch)=〃D〃Then

dn=dn+1

EndIf

Nextk

Textl二an&〃〃&bn&"〃&cn&〃〃&dn

EndSub

第二套

语不艮据以卜名•<!、幽的g3K设VisualBnslc也用桎J子、包拮界山□本口代右与，

启动VisualBasic系统，创建一个Forml窗体。

在该窗体上画一个标签控件，通过其属性窗口将名称设为Labell,标题

（Caption属性）设为“等级考试"，BorderStyle属性为1,标题大小自动调整

（AutoSize属性）设为True。画一个命令按钮控件，通过其属性窗口将名称设为

Commandlo

单击命令按钮（即运行Click事件过程）,在该Click事件过程中加入语句:

PrivateSubCommandl_Click（）

Command1.Caption=Label1

Labell.Visible=False

EndSub

3）套骨翼蔷生赭其名称为Text初女台,为

盟建翌架翟中察奈噂矗晶运JT后，玄口果选择至送钱包如1・

送逐至选技铉Op2.则本克本框市显

建向着善僖短口诸除段"3.顶本框史H示“四湖,。程

K得使用变量.事件过程中只，艮与一

”甚累时必须存放在考生文件夹下.

工程文件名为5力2.vbp・窗*体文件名

^Jsjt2.frmo

启动VisualBasic系统，创建一个Forml窗体。

在该窗体上画一个文本框控件，通过其属性窗口将名称设为Textl,文本内

容（Text属性）设为空。画三个单选按钮控件，通过属性窗口将名称设为Opl、

0p2、0p3,标题（Caption属性）分别设为“北京”、“西安”、“杭州”。

选择单选按钮Opl（即运行Click事件过程），在该Click事件过程中加入语

句：

PrivateSubOpl_Click（）

Textl="颐和园"

EndSub

选择单选按钮0p2（即运行Click事件过程），在该Click事件过程中加入语

句：

PrivateSub0p2_Click（）

Textl.Text="兵马俑"

EndSub

选择单选按钮0p3（即运行Click事件过程）,在该Click事件过程中加入语

句：

PrivateSub0p3_Click（）

Textl.Text="西湖"

EndSub

文

程文

的

文

在君

隹

件夹

下

寡

个

件

项

应

体曩

为

C)工

琮

1劣*

森V.t3f

两

鳌

“

母

个

个

上SJ

在

有SJ

为,

一

条

器

为

花

二

禽

命

共

器

高

暮rCWOhH£Mt

油

鼠

；

警

名

和O,

歌

笨11

1La」M1UO

”

袈irj

勘>

装

、

)皆

性

烧

媲

此

为

为

蓼

”

分11be14

凝

结

还

四

1力

一

，

薨

、

、W

按

“

霜

个

领

的

梨

四3

簧

组

为

、

序

令

分+

空

运

簟

装

.的

数

蠹

别

“

「

中

口io

后nl

*」

当

动

簧

击

如

襄

兽

篦S1

为

瞿

取

舅

巢M

用&

个

中

鬻

重

t期

絮

示

金

条

善

含

在

个U

皿

应La

，

抵

.秀.

序

把

be确

好

翻

徐

盥

谈

建

注

壁，

要

充

中

运

元,

行

警

的

翼

推

中

皿

隹

改

的

其饕

确运

瘠

ISV射

i雷

器

也

案

里

里?

分

文1g

性

来

属

用原

旎

和•

磐

覆

存

件

件

.。

文

的

。

件

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp,相应的

窗体文件名为sjt3.frm0

由于所提供的窗体程序不完整，在窗体的PrivateSubCommandl_Click()

事件过程中，有三处地方需要修改。

1)将语句'If?=TrueThen

改为IfOptionl(i)=TrueThen

2)将语句'SelectCase?

改为SelectCaseopt

3)将语句'？=Str(HScrolll.Value)&""&opt&Str(HScrol12.Value)&

"="&Str(Result)

改为Label4=Str(HScrolll.Value)&〃〃&opt&Str(HScrol12.Value)

&"="&Str(Result)

(2)个工程件vbp,相应f5f-J14.firm。

按钮，基名称为Coiranandl,“揄入/显示“，

毒百个笨手鬻'基名称为三芒口,一初茹眩虎

轴入对话框，在对话位中输入某个

C1-1旗滤虬甥在斋I槽喷襄序不

整。

嘉意球蘸翻述撕霸」黯需舞舞名黯壁霜螂

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp,相应的

窗体文件名为sjt4.friDo

由于所提供的窗体程序不完整，在窗体的PrivateSubCommandl_Click()

事件过程中，有三处地方需要修改。

1)将语句'LoopUntil?Andn<13

改为LoopUntiln>0Andn<13

2)将语句'SelectCase?

改为SelectCasen

3)将语句'SelectCase?

改为SelectCasem

_____:。其中“写文件

职方式保存到文件t5.t

窗体上：ft示出来。

电话CTel)由口政编行马CPos)

LiuMingliang(010)62781234100082

雷

号

的

类

长

¥和M

w

，

编

话Naurnme.

砧

基

运

Te码

修

星击

po要

丁

据

行

®？向按理,则可以照出售取方三打开文住

蕾写入一布己宗居.都箕询问是古

,t窠

“贡嚼

葡.

新

xt入

；入新记录，回写“N〃(蓑"n〃

读

^件1

〃命令最S,则句/磔杭存取方弟打开区

止

停

出

悻

它上显示由来,如函2铳不。该

徜

t...杷.并在窗

整

不

xt完

-Forml|口|x[I.Forml■，口I♦

LiuMin&Liang(010)62781234100085

WangDali(010)62775678100083

ZRangLiming(010)66824567100087

写爻怦--4读文件存文件读文件1

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp,相应的

窗体文件名为sjt5.frm0

由于所提供的窗体程序不完整，在命令按钮的PrivateSubCommandl_Click()

事件过程中，有三处地方需要修改。

1)将语句'RecNum=?

改为RecNum=RecNum+1

2)将语句‘Put#1,?

改为Put#1,RecNum,Pers

3)将语句'LoopWhileUCase(asp)?

改为LoopWhileUCase(asp)<>"N"

由于所提供的窗体程序不完整，在命令按钮的PrivateSubCommand2Click()

事件过程中，有二处地方需要修改。

1)将语句'RecNum=?

改为RecNum=LOF(l)/Len(Pers)

2)将语句'Get#1,?

改为Get#1,i,Pers

第三套

体

个

文本

的

为

在

名

画

框

F毒-

-s为

i，

3称

T1和

C1)别i翻麴第檀

ml再

个

钮

名

名

画

盘

筐

奈

O1扩

40“

14示

”

后

C2单

程

耳

等

雾

，

如

i>,除

另

中

二单击命令拉

“JTCl

在fg

加

偿

翱

文

在

黄

一后命令技轻.

方

上

增.C2

倍

向

本

本

、

，

、小扩大到原来

的

霰

示

文

注1

S2

爵

姜

使

瑟

变

51用.

件

在

生

考

a.vbp,囱体文件名

启动VisualBasic系统，创建一个Forml窗体。

在该窗体上画一个文本框控件，通过其属性窗口将名称设为T1,高(Height

属性)设为400,宽(Width属性)设为1400。画二个命令按钮控件，通过其属性

窗口将名称分别设为Cl、C2,标题(Caption属性)分别设为“显示”、“扩大”。

单击“显示”按钮(即运行Click事件过程)，在该Click事件过程中加入语句:

PrivateSubCl_Click()

T1="等级房•试”

EndSub

单击“扩大”按钮(即运行Click事件过程)，在该Click事件过程中加入语句:

PrivateSubC2_C1ick()

Tl.Height=2*Me.Tl.Height

Tl.Width=2*Tl.Width

Tl.FontSize=3*Forml.Tl.FontSize

EndSub

C2?