计算机二级(VB)考试机试题库

2021年VB题库

第01套简单应用题

（I）在考生文住央下有一个工程文件，窗体上已经有一个标签Label1,请添加一个单项选择按钮数组，名称为Opl,含三个单项选择

按钮，它们的Index属性分别为0、I、2,标题依次为"飞机"、"火车"、"汽车"，再添加一个名称为Tcxll的文本框。窗体文件中已经给

出了Opl的Click%件过程，但不完整，要求去掉程序中的注耗符，把程序中的?改为正确的内容，使得在程序运行时单击”K机"或"火

车”单项选择按钮时，在Texil中显示“我坐飞机去"或"我坐火车去・.单击“汽车”单项选择按钮时，在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）在考生文件夹下有一个工程文件，Fbrml窗体中有一个文本桂，名称为Texll：请在窗体上添加两个框架控件，名称分别为Fl、F2,标题分别为”性别"、"身份•1:

在F1中添加两个单项选择按钮控件Opl、Op2,标题分别为"男"、-女”：在F2中添加两个单项选择按钮控件Op3、Op4,标题分别为"学生"、啜师"：再添加一个命令按

钮，名称为C1,标题为"确定"。如下图。请编写适当的事件过程,使得在运行时，在Fl、F2中各选一个单项选择按钿，然后单击“确定"按钮,就可以按照下表把结果

显示在文本框中。

性别身份在文本框中显示的内容

男学生我是男学生

男教肺我是男教师

女学生我是女学生

女教师我是女教师

最后把修改后的文件以原来的文件名存盘。

注意：考生不得修改窗体文件中已经存在的程序和Textl的属性，在结束程序运行之前，必须进行能够产生上

表中•个结果的操作。必须用窗体右上角的关闭按钮结束程序.否那么无成绩.

，*****请考生编写程序*****

Ifoplandop3thenTextl.Text="我是男学生”

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

Ifop2andop3thenTextl.Text=w我是女学生”

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

***««第01套综合应用题

以下数列：1.1.2.3,5,8,13,21,....的规律是从第3个数开始.每个数都是其前面两个数之和。

在考生文冲夹下有一个工程文件。窗体中已经给出了所有控件，如下图。请编写适当的事件过程完成如下功能：选中

•个单项选择按钮后,单击”计算“按钮，那么计算出上述数列的第n项的值，并在文本框中显示，n是选中的单项选择按钮后

面的数值。（提示：因计兑结果较大，应使用长整型变试.）

注意：不能修改已经给出的程序和已有的控件的属性：在势束程序运行之前，必须选中一个单项选择按钮，并单击”

计兑"按钮获得一个结果：必须使用窗体右上角的关闭按钮结束程序，否那么无成绩”最后把修改后的文件按原文件名存盘,

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套简单应用题

(1)在考生文件夹下有一个工程文件，窗体中有两个图片框，名称分别为Pl、P2,其中的图片内容分别是一架航天飞机和一朵云彩，一个命令

按钮，名称为CL标题为“发射“，还有一个计时器，名称为Timcrl。并给出了两个事件过程，但并不完整，要求：

①设置Timeri的属性，使其在初始状态下不计时：

②设巴Time”的属性，使其每隔秒调用Timci■事件过程一次。

③去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时单击•"发射"按钮，那么航天飞机每隔秒向h移动•次，当到达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)在考生文件夹下有一个工程文件，运行情况如下图,程序的功能是计算以下表达式的值：

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

其中的N和x的值通过键盘分别输入到文本框Texil、Texi2中。之后如果单击标题为“计匏"、名称为Commandl的命令按钮，那么计免表达式的(ftz,并将计匏结

果显示在名称为Label1的标签中。

在给出的窗体文件中已经添加了全部控件和程序，但程序不完整,要求去掉程序中的注群符，把程序中的?改为正

确的内容。

注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用八运算符,而应使用函数xn进行庠运算。程序至

少运行•次，按照以下图输入数据，使x=10,N=5,单击"计算"按钮，计算z的值，并将结果显示在标卷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套与合应用题

在考生文冲夹中有一个工程文件sjt5.vbp.该程序的功能是从文件中注入40个数据,统计这些数据中素数的个数,并

找出所有素数中最小的素数（判断素数的函数已给出）。最后将杳我和统计的结果分别显示在标卷LabcU和Labd3中（窗体外

观如下图）。程序不完整，请在指定的位置把程序补充完整。

注意：不得修改原有程序和控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在

标签中，否那么无成绩。最后把修改后的文件按原文件名存盘。

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

*****考生编写程序结束*****

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

Close#1

EndSub

*****笫03套简单应用题

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

①单击••读数据"按钮.那么将考生文件夹下文件中的100个。到999之间的整数读入到数组a中;

・For*l

②单击“计算”按钮，那么找出这100个整数中的所有水仙花数，井将它们的最大值与最小值分别显示在文本框Tex,1、BE®

333水仙花数的最大值为

Texi2中.（注：当一个数的值等于该数中的各位数字的立方和时，此数被称为水仙花数。如：153-1‘丁+5'+3'所以

水仙花数的最小值为

153就是一个水仙花数）

在窗体文件中已经给出了全部控件（如下图）和”读数据••命令按钮的事件过程以及判断一个数是否为水仙花数的通用过11速蝴CIi+M

程。要求编写"「匏t•命令按钮的事件过程。

注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前,必须进行“计算”，并且必须通过单击窗体右上角的••关闭”按钮结束程序，否那么

无成绩。最后，程序按原文件名存盘,

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过程用于判断某数是否为水仙花数

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。请在窗体上添加一个组合框，名称为cbl,并输入三个列表项："3"、"7"、11”（列表项的顺序不限，但必须是这3

个数字）；添加,个名为Textl的文本框：再添加•个标题为“计算名称为C1的命令按钮.如下图。请编写适当的事件过.Foral匚2叵)区j

程，使得在程序色行时，在组合框中选定一个数字后，单击“计第”按钮，那么计兑5000以内能够被该数整除的所有数之和,

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

提示：由于计算结果较大，应使用长整型变量.

注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角

的关闭按钮结束程序，有那么无成绩。

PrivateSujCI_Click()

,*•••*需考生编写的程序*****

DimsumAsLong

DimnAsInteger

DimiAsInteger

n=Val(Cbl.Tcxt)

Fori=nTo5()(X)

IIiModn=Ufhen

suin=sum+i

EndIf

Nexti

Textl.Text=sum

EndSub

*****第03套绦合应用题

在考生文冲夹下有一个工程文件，其名称为Forml的窗体上已有三个文本框Tcxll、Tcxt2、Tcxt3,以及同部程序代码。请完成以下工作:

①在属性熨I」中修改Texts的适当属性，使其在运行时不显示，作为模拟的剪贴板使用。窗体如下图：

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

标题名称

编辑Edit

剪切Cut

复制Copy

粘贴Paste

③窗体文件中给出了所有事件过程,但不完整.请去掉程序中的注释符,把程序中的？改为正确的内容。以便实现如下功能：当光标所在的文件椎中无内容时.

“剪切"、”豆制"不可用，否那么可以把该文本框中的内容剪切或兔制到Texi3中：假设Text3中无内容，那么“粘贴"不能用，否那么可以把Texl3中的内容粘贴在光标所

在的文本框中的内容之后.

注意：不能修改程序中的其他局部。各菜单项的标题名称必须正确。最后将修改后的文件按原文件名存盘。

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(),本过程的作用是：当焦点在Texil中时，which=I

which=I

EndSub

PrivateSu?Tcxt2_GotFocus()'本过程的作用是：当焦点在Tcxt2中时，which-2

which=2

EndSub

*****第04套简单应用题

（1）在名称为Forml的窗体上添加一个名称为Labell、标题为"添训工程：”的标签：添加一个名称为Tex”的文本框,初始内容

为空：添加一个名称为Combol的下拉式组合框，并通过属性窗口输入假设干工程（不少丁3个，内容任意卜再添加两个命令按

钮，名称分别为CommandsCommand2,其标题分别为“添加统计，在程序运行时，向Tcxtl中输入字符，单击“添加"按钮

后,那么将Texil中的内容作为一个列表项被添加到组合框的列表中；单击"统计"按钮，那么在窗体空白处显示组合框中列表项

的个数，如下图，请编写两个命令按钮的Click事件过程。

注意：程序中不得使用变量,也不能使用循环结构。存盘时必须存放在考生文件夹下，工程文件名保存为m3.vbp,窗体

文件名保存为。

**•••*需考生编写的程序*****

PrivateSu?CommandI_Click（）

Combo1.AdditemTextl

EndSub

PrivateSu〉Comman<12_Click（）

EndSub

（2）在考生文件夹下有一个工程文件，其窗体如卜.图。该程序用来对在上面的文本框中输入的英文字母串（称为“明文”）加密，

加密结果（称为“密文”）显示在下面的文本框中。加密的方法为：选中一个单项选择按钮.单击“加密”按钮后，根据选中的单项选

择按钮后面的数字n,将“明文”中的每个字母改为它后面的第n个字母（・z”后面的字母认为是"a","Z"后面的字母认为是"A"）,如

下图。窗体中已经给出了所有控件和程序.但程序不完整，请去掉程序中的注释符.把程序中的?改为正确的内容。

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

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套综合应用题

在考生文件夹下台•个工程文件，窗体上仃两个文本框，名称分别为Tex。、Text2,都可以多行显示。还有：个命令按钮.

称分别为Cl、C2、C3,标题分别为“取数"、>'排序"、"存盘"。“取数”按钮的功能是将考生文件夹下的文件中的50个整数读到数组中,

并在Tex。中显示出来："挎序"按钮的功能是对这50个数按升序排片，并显示在Texl2中：“存盘"按钮的功能是把排好序的50个数存到考生目录下的文件中。如下图.在

窗体中已经给出了全部控件和局部程序代码，要求阅读程序并去掉程序中的注择符，把程序中的?改为正确的内容，并编写“排序”按钮的Click事件过程，使其实现上

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

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套的单应用题

（1）在考生文件夹下有•个工程文件sj8Vbp（相应的窗体文件名为sjt3.frm）,在窗体上.添加•个名称为Listl的列表框和•个名称

为Textl的文本框，如图I所示”编写窗体的MouseDown事件过程。程序运行后，如果用鼠标左犍单击窗体，那么从宝盘上输入

要添加到列表框中的工程（内容任意，不少于三个）；如果用鼠标左键单击窗体，那么从捷盘上输入要删除的工程，落其从列表

框中删除。程序的运行情况如图2所示。这个程序不完整,请把它补充完整，并能正确运行。

要求，去黑程序中的注标符.把程序中的?改为适当的内容.使其正确运行,但不能修改程序中的其他局部.呆后将修改

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

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（相应的窗体文件名为sjl4.frm）,其功能是通过调用过程FindMin求数组的最小值。程序运行后,在四个文本框中各输入•

个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来（如下图）。

要求：去掉程序中的注糅符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他局郤。最后

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

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套绦告应用题

在窗体上建立三个菜单（名称分别为Read、Calc和Save,标题分别为“读入数据“、“计算并输出"和"存盘）然后再添加一个文本框，名称为Tcxtl,MultiLinc属性

设置为Tnie,scellBais属性设置为2（如下图）。程序运行后，如果执行“读入数据"命令，那么读入考生文件夹下文件中的100个整数，放入•个数组中，数组的下界为1：

如果单击“计算并输出"按钮，那么把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗

体匕显示出来：如果单击"存盘1•按钮,那么把所求得的和存入考生文件夹下的文件中。

在考生文冲夹下有一个工程文件，窗体文件中的ReadDaia过程可以把文件中的100个整数读入Arr数组中：而WriieDaia

过程可以把指定的整数值写到考生.文件夹下指定的文件中（整数值通过计匏求得，文件名为dataouuxt）。

注意：考生不得修改窗体文件中已经存在的程序。存盘时，I：程文件名仍保存为.窗体文件名仍保存为。

»*»»»而考生领写的程序*****

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套简单应用题

(1)在考生文件夹下有•个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是产生30个(M000的随机整数，放入•个数组中，

然后输出其中的最小值.程序运行后，单击命令按钮(名称为Commandl,标题为“输出最小值"),即可求出其最小值，并在窗体上

显示出来(如下图)。这个程序不完整，请把它补充完整，并能正确运行。

要求：去掠程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他局部,最后把修改后的文

件按原文件名存盘。

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,相应的窗体文件为sji4.fhn,在窗体上有一个命令按钮和•个文本框.程序运行后，单击命令按钮，即可计算出0~1000

范困内不能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了局部程序，其中计算不能被7移除的整数的个数的操作在通用过程Fun

中大现，请编写该过程的代码。

要求：

请勿改动程序中的任何内容，只在FunctionFun()和EndFunction之间填入你编写的假设干语句。最后把修改后的文件按原文件名存盘。

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套综合应用题

在考生文件夹下有一个工程文件sjbvbp,请先装入该工程文件，然后完成以下操作：

在名称为Forml的窗体上.画二个命令按钮，其名称分别为C1和C2,标题分别为“读入数据”和“计算”(如下图।。程序运行后，如果单击“读入数据"按钮，那

么调用题目所提供的ReadDalal和RcadData2过程读入datain1.(x1和qlain2.lxl文件中的各20个整数，分别放入Arrl和Arr2两个数组中；如果单击“计算.按钮，

那么把两个数组中对应下标的元素相减，其结果放入第三个数组中(即：第一个数组的第n个元素减去第二个数组的第n个元素，其结果作为第三个数组的第n个元

素.这里的n为I、2.......20),最后计免第三个数组各元素之和，把所求得的和在窗体上显示出来：并调用题目中给出的WriieData过程将所求得的和存

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

注意：考生不得修改窗体文件中己经存在的程序,且必须执行此程序一次，最后把修改后的文件以原来的文件名存盘.

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套简单应用题

(1)在名称为Forml的窗体上添加一个名称为L1的标签，标题为•口令"：添加两个文本框，名称分别为Textl、Text2,初始内容为空；再添加三个命令按钮，名称分

别为CI、C2、C3,标题分别为“显示口令"、"建藏口令"、"复制口令”，在程序开始运行时，向Texil中输入的所有字符，都显示为“*"，单击"显示口令"按钮后，在Texil

中显示所有字符，再单击-陷臧口令-后，