VB二级全国真题

2005年4月全国计算机等级考试二级VB真题....................................2

2005年4月笔试试卷参考答案.................................................9

2005年9月全国计算机等级考试二级VB试卷...................................10

2005年9月全国计算机等级考试二级VB笔试含参考答案.........................18

2006年4月全国计算机等级考试二级VB程序设计试题...........................19

2006年4月笔试试卷参考答案................................................26

2006年9月全国计算机等级考试二级VB程序设计试题...........................27

2006年9月全国计算机等级考试二级VB笔试试卷参考答案.......................35

2007年4月全国计算机等级考试二级VB真题...................................36

2007年4月全国计算机等级考试二级VB笔试试卷参考答案.......................44

2007年9月全国计算机等级考试二级笔试试卷..................................45

2007年9月全国计算机等级考试二级VB参考答案...............................53

2008年4月全国计算机等级考试二级VB试卷...................................55

2008年4月参考答案........................................................62

2008年9月全国计算机等级考试二级VB试卷...................................63

2008年9月全国计算机等级考试二级参考答案..................................76

历届考试真题及参考答案

2005年4月全国计算机等级考试二级VB真题

一、选择题((1)~(35)每小题2分，共70分)

(1)数据的存储结构是指

A)存储在外存中的数据B)数据所占的存储空间量

0数据在计算机中的顺序存储方式D)数据的逻辑结构在计算机中的表示

(2)下列关于栈的描述中错误的是

A)栈是先进后出的线性表B)栈只能顺序存储

0栈具有记忆作用D)对栈的插入与删除操作中，不需要改变栈

底指针

(3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是

A)冒泡排序为n/2B)冒泡排序为nC)快速排序为nD)

快速排序为n(n-l)/2

(4)对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为

A)log2nB)n/2C)nD)n+1

(5)下列对于线性链表的描述中正确的是

A)存储空间不一定是连续，且各元素的存储顺序是任意的

B)存储空间不一定是连续，且前件元素一定存储在后件元素的前面

C)存储空间必须连续，且前件元素一定存储在后件元素的前面

D)存储空间必须连续，且各元素的存储顺序是任意的

(6)下列对于软件测试的描述中正确的是

A)软件测试的目的是证明程序是否正B)软件测试的目的是使程序运行结果

确正确

O软件测试的目的是尽可能多地发现D)软件测试的目的是使程序符合结构

程序中的错误化原则

(7)为了使模块尽可能独立，要求

A)模块的内聚程度要尽量高,且各模块间的耦合程度要尽量强

B)模块的内聚程度要尽量高,且各模块间的耦合程度要尽量弱

C)模块的内聚程度要尽量低,且各模块间的耦合程度要尽量弱

D)模块的内聚程度要尽量低,且各模块间的耦合程度要尽量强

(8)下列描述中正确的是

A)程序就是软件D)软件是程序、数据与相关文档的集

B)软件开发不受计算机系统的限制合

0软件既是逻辑实体，又是物理实体

(9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指

A)数据与程序独立存放所使用

B)不同的数据被存放在不同的文件中D)以上三种说法都不对

0不同的数据只能被对应的应用程序

(10)用树形结构表示实体之间联系的模型是

A)关系模型B)网状模型0层次模型D)以上三个

都是

(11)在窗体(名称为Forml)上画一个名称为Textl的文本框和一个名称为Commandl的

命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，

则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是：

A)PrivateSubTextl_Change()Commandl.Caption=,,计算机等级

考试”Caption二”计算机等级考试”

EndSubEndSub

B)PrivateSubCommand1_C1ick()

C)PrivateSubForml_Click()D)PrivateSubCommandl_Click()

n

TextLCaption="计算机等级考Textl.Text=计算加等级考试”

、・I'，，

TAEndSub

EndSub

(12)设a=5,b=4,c=3,d=2,下列表达式的值是3>2*bOra=cAndbOcOrc>d

A)1B)TrueC)False

D)2

(13)设a="MicrosoftVisualBasic"，则以下使变量b的值为"VisualBasic”的语句是

A)b=Left(a,10)B)b=Mid(a,10)C)b=Right(a,10)

D)b=Mid(a,11,10)

(14)假定有如下的窗体事件过程，程序运行后单击窗体，则在弹出的信息框中的标题栏

中显示的信息是：

PrivateSubForm_Click()

a$="MicrosoftVisualBasic”

b$=Right(a$,5)

c=Mid(a$,1,9)

MsgBoxa$,34,b$,c$,5

EndSub

A)MicrosoftVisualB)MicrosoftC)Basic

D)5

(15)设a"，b="b"，c="c"，d二"d"，执行语句x=IIf((a<d),"A"，"B")后，x

的值为：

A)"a“B)”b“C)"B“D)"A"

(16)为了使命令按钮(名称为Command1)右移200,应使用的语句是

A)Command1.Move-200B)Command1.Move200

C)Command1.Left=Commandl.Left+200D)Command1.Left=

Command1.Left-200

(17)在窗体上画一个文本框，然后编写如下事件过程，程序运行时，在文本框中输入456,

然后单击窗体，在输入对话框中输入123,单击“确定”按钮后，在窗体上显示的内

容是：

PrivateSubForm_Click()

x=InputBox(〃请输入一个整数〃)

Printx+Textl.Text

EndSub

A)123B)456C)579

D)123456

(18)在窗体上画一个文本框和一个计时器控件，名称分别为Textl和Timerl,在属性窗

口中把计时器的Interval属性设置为1000,Enabled属性设置为False,程序运行

后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实

现上述操作的程序，在处应填入的内容是

PrivateSubCommand1_C1ick()

Timerl._________

EndSub

PrivateSubTimerl_Timer0

Textl.Text=Time

EndSub

A)Enabled=TrueB)Enabled=FalseC)Visible=True

D)Visible=False

(19)假定在图片框Picturel中装入了一个图形，为了清除该图形(不删除图片框)，应

采用的正确方法是:

A)选择图片框，然后按Del键

B)执行语句Picturel.Picture=LoadPicture("")

C)执行语句Picturel.Picturei'”

D)选择图片框，在属性窗口中选择Picture属性，然后按回车键

(20)在窗体上画一个Listl的列表框，一个名称为Labell的标签，列表框中显示若干

个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列

能正确实现上述操作的程序是

A)PrivateSubListl_Click()C)PrivateSubListl_Click()

Labell.Caption=Labell.Name=Listl.Text

Listl.ListindexEndSub

EndSubD)PrivateSubListl_Click()

B)PrivateSubListl_Click()Labell.Caption=Listl.Text

Labell.Name=Listl.ListindexEndSub

EndSub

(23)执行以下程序段后，x的值为

DimxAsInteger,iAsInteger

x=0

Fori=20To1Step-2

x=x+i\5

NextI

A)16B)17018

D)19

(21)在窗体上画一个命令按钮，名称为012D)15

Commands然后编写如下事件过程：(22)在窗体上画一个名称为Commandl的

PrivateSubCommandl_Click()命令按钮，然后编写如下事件过程：

DimiAsInteger,xAsPrivateSubCommand1_C1ick()

Integerc="ABCD”

Fori=1To6Forn=1To4

Ifi=1Thenx=iPrint__________

Ifi<=4ThenNext

x=x+1EndSub

Else程序运行后，单击命令按钮，要求在

x=x+2窗体上显示如下内容：

EndIfD

NextiCD

PrintxBCD

EndSubABCD

程序运行后，单击命令按钮，其输出则在处应填入的内容为

结果为A)Left(c,n)B)Right(c,n)

A)9B)6C)Mid(c,n,1)D)Mid(c,n,n)

(24)在VisualBasic工程中，可以作为启动对象的程序是

A)任何窗体或标准模块B)任何窗体或过程C)SubMain过程或其他任何模块

D)SubMain过程或任何窗体

(25)假定建立了一个名为Commandl的命令按钮数组，则以下说法中错误的是

A)数组中每个命令按钮的名称(名称属性)均为Commandl

B)数组中每个命令按钮的标题(Caption属性)都一样

C)数组中所有命令按钮可以使用同一个事件过程

D)用名称Commandl(下标)可以访问数组中的每个命令按钮

(26)把窗体的KeyPreview属性设置为True,然后编写如下事件过程：

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

程序运行后,按键盘上的“A”键,则在窗体上显示的内容是

A)AB)BC)CD)D

(27)在窗体上画一个命令按钮和一个文本框,名称分别为Commandl和Textl,然后编写如

下程序：

PrivateSubCommand1_C1ick()

a=InputBox(“请输入日期(「31)〃)

t="旅游景点：”&Ilf(a>0Anda<=10,"长城&IIf(a>10And

a<=20,“故宫_

&IIf(a>20Anda<=30,“颐和园

Textl.Text=t

EndSub

程序运行后，如果从键盘输入16,则在文本框中显示的内容是：

A)旅游景点：长城故宫B)旅游景点：长城颐和园C)旅游景点：颐和园

D)旅游景点：故宫

(28)在窗体上画一个名称为Label1的标签,然后编写如下事件过程，程序运行后,单击窗

体,在标签中显示的内容是

PrivateSubForm_Click()

Dimarr(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=2To4

Forj=2To4

arr(i,j)=i*j

Nextj

Nexti

Label1.Caption=Str(arr(2,2)+arr(3,3))

EndSub

A)12B)13014D)15

(29)在窗体上画一个名称为Comamndl的Else

命令按钮,然后编写如下通用过程和命令按fun=1

钮的事件过程：EndIf

PrivateFunctionfun(ByValmAsEndFunction

Integer)PrivateSubCommand1_C1ick()

IfmMod2=0ThenDimiAsInteger,sAsInteger

fun=2s=0

Fori=1To5Fori=1To3

s=s+fun(i)Forj=1To2

Nextarr(i,j)=i*2+j

PrintsNextj

EndSubNexti

程序运行后，单击命令按钮，则窗体ReDimPreservearr(3,4)

上显示的是：Forj=3To4

A)6B)7C)8D)9arr(3,j)=j+9

(30)阅读程序:Nextj

OptionBase1Printarr(3,2)+arr(3,4)

Dimarr()AsIntegerEndSub

PrivateSubForm_Click()程序运行后,单击窗体,输出结果为:

DimiAsInteger,jAsIntegerA)21B)13C)8D)25

ReDimarr(3,2)

31)在窗体上画一个名称为Command1的命(32)设有如下程序：

令按钮,然后编写如下程序：PrivateSubCommand1_Click()

OptionBase1DimcAsInteger,dAsInteger

PrivateSubCommand1Click()c=4

DimcAsInteger,dAsIntegerd=InputBox(“请输入一个整数

d=0:c=6”)

x=Array(2,4,6,8,10,12)DoWhiled>0

Fori=1To6Ifd>cThen

Ifx(i)>cThenc=c+1

d=d+x(i):c=x(i)EndIf

Elsed=InpulBox("请输入一个整

d=d-c数”)

EndIfLoop

NextiPrintc+d

PrintdEndSub

EndSub程序运行后，单击命令按钮如果在输

程序运行后，如果单击命令按钮，则在窗体入对话框中依次输入1、2、3、4、5、6、7、

上输入的内容为8、9、0,则输出结果是:

A)10B)16A)12B)ll

012D)20C)10D)9

(33)在窗体上画一个名称为Commandl的命令按钮和一个名称为Textl的文本框，在文本框

中输入以下字符串：

MicrosoftVisualBasicProgramming,然后编写如下事件过程：

PrivateSubCommand1_C1ick()

Open"d:\temp\outf.txt“ForOutputAs#1

Fori=1ToLen(Textl.Text)

c=Mid(Textl.Text,i,1)

Ifc>="A"Andc<="Z"Then

Print#1,LCase(c)；

EndIf

Nexti

Close

EndSub

程序运行后,单击命令按纪,文件outf.txt中的内容是:

A)MVBPB)mvbp

C)MD)m

VV

Bb

PP

(35)设有如下通用过程：

PublicSubfun(a()AsInteger,xAsInteger)

Fori=1To5

x=x+a(i)

Next

EndSub

在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮,然后编

写如下事件过程：

PrivateSubCommand1_C1ick()

Dimarr(5)AsInteger,nAsInteger

Fori=1To5

arr(i)=i+i

Next

funarr,n

Textl.Text=Str(n)

EndSub

程序运行后,单击命令按钮,则在文本框中显示的内容是

A)30B)25C)20D)15

(34)在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:

DimSWAsBoolean

Functionfunc(XAsInteger)AsInteger

IfX<20Then

Y=X

Else

Y=20+X

EndIf

func=Y

EndFunction

PrivateSubCommand1_C1ick()

DimintNumAsInteger

intNum=InputBox(〃〃)

IfSWThen

Printfunc(intNum)

EndIf

EndSub

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,

YAsSingle)

SW=False

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,

YAsSingle)

SW=True

EndSub

程序运行后，单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序

的执行结果是：

A)输出0B)输出25C)输出45D)无任何输出

二、填空题(每空2分，共30分)

请将每一个空的正确答案写在答题卡【1】〜【15】序号的横线上，答在试卷上不得分。

注意：以命令关键字填空的必须拼写完整。

(1)某二叉树中度为2的结点有18个，则该二树中有【1】个叶子结点。

(2)在面向对象方法中，类的实例称为【2】o

(3)诊断和改正程序中错误的工作通常称为【3】。

(4)在关系数据库中，把数据表示成二维表，每一个二维表称为【4】o

(5)问题处理方案的正确而完整的描述称为【5】。

(6)以下语句PrintInt(12345.6789*100+0.5)/100的输出结果是:[6]

(7)在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程：

PrivateSubForm_Click()

Textl.Text="VB程序设计”

EndSub

PrivateSubTextl_Change()

Picturel.Print，/VBProgramming/，

EndSub

程序运行后,单击窗体,在文本框中显示的内容是【7]，而在图片框中显示的内容是【8】

(8)阅读下面的程序，程序运行后，单击窗体，输出结果是[9】

PrivateSubForm_Click()

DimCheckAsBoolean,CounterAsInteger

Check=True

Counter=5

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10Then

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter

EndSub

⑼设有如下程序：s=s+n

PrivateSubForm_Click()n=n-1

DimaAsInteger,sAsLoopWhilen>0

IntegerPrints

n=8EndSub

s=0以上程序的功能是【10】，程序运行后,

Do单击窗体，输出结果为[11]

Min=[12]

Fori=2To8

(10)设有如下程序：Ifarrl(i)<MinThen[13]

OptionBase1Nexti

PrivateSubCommand1_C1ick()Print〃最小值是：〃；Min

DimarrlEndSub

DimMinAsInteger,iAsInteger以上程序的功能是用Array函数建立一

arrl=Array(12,435,76,-24,78,个含有8个元素的数组,然后查找并输出该

54,866,43)数组中的最小值,请填空

(11)在名称为Forml的窗体上画一个文本框，其名称为Textl,在属性窗口中把文本框的

MultiLine属性设置为True,然后编写如下事件过程：

PrivateSubForm_Click()

Open"d:\test\smtextl.txt"ForInputAs#1

DoWhileNot[14]

LineInput#1,aspect$

whole$=whole$+aspect$+Chr(13)+Chr(10)

Loop

Textl.Text=whole$

Close#1

Open"d:\test\smtext2.txt"ForOutputAs#1

Print#1,[15]

Close#1

EndSub

上述程序的功能是,把磁盘文件smtextl.txt的内容读到内存并在文本框中显示出来,

然后把该文本框中的内容存入磁盘文件smtext2.txt.请填空。

2005年4月笔试试卷参考答案

选择题:

1---5DBDCA6——10CBDDC

11—15，ABBCD16—20CDABD

21—25，ABCDB26—30CDBBA

31—35>CDDDA

填空题：

[1]19[9]10

[2]对象[10]求1-8的和

[3]程序调试[11]36

[4]关系[12]arrl(1)

[5]算法[13]min=arrl(i)

[6]12345.68[14]EOF(l)

[7]VB程序设计[15]textl.text(或whole$)

[8]VBProgramming

2005年9月全国计算机等级考试二级VB试卷

一、选择题（每小题2分，共70分）

下列各题A）、B）、C）、D）四个选项中,只有一个选项是正确的。请将正确选项填涂

在答题卡相应位置上，答在试卷上不得分。

（1）下列叙述中正确的是

A）程序设计就是编制程序B）程序的测试必须由程序员自己去完成

C）程序经调试改错后还应进行再测试D）程序经调试改错后不必进行再测试

（2）下列数据结构中，能用二分法进行查找的是

A）顺序存储的有序B）线性链表D）有序线性链表

线性表C）二叉链表

（3）下列关于栈的描述正确的是

A）在栈中只能插入元素而不能删除B）在栈中只能删除元素而不能插入元

元素素

C）栈是特殊的线性表，只能在一端插入或删除元素

D）栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素

（4）下列叙述中正确的是

A)一个逻辑数据结构只能有一种存储结构

B)数据的逻辑结构属于线性结构，存储结构属于非线性结构

C)一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率

D)一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率

（5）下列描述中正确的是

A）软件工程只是解决软件项目的管B）软件工程主要解决软件产品的生产

理问题率问题

C）软件工程的主要思想是强调在软件开发过程中需要应用工程化原则

D）软件工程只是解决软件开发中的技术问题

（6）在软件设计中，不属于过程设计工具的是

A)PDL(过程设计语B)PAD图D)DFD图

言）C)N-S图

（7）下列叙述中正确的是

A）软件交付使用后还需要进行维护C）软件交付使用后其生命周期就结束

B）软件一旦交付使用就不需要再进D）软件维护是指修复程序中被破坏的

行维护指令

（8）数据库设计的根本目标是要解决

A）数据共享问题B）数据安全问C）大量数据存储问题D）简化数据

题维护

（9）设有如下关系表:

T

A)T=RASB)T=RUSC)T=RXSD)T=R/S

（10）数据库系统的核心是

A）数据模型B）数据库管理系统C）数据库D）数据库管理员

（11）假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为保存该

应用程序，以下正确的操作是

A）只保存窗体模块文件C）只保存窗体模块和标准模块文件

B）分别保存窗体模块、标准模块和D）只保存工程文件

工程文件

（12）为了清除窗体上的一个控件，下列正确的操作是

A）按回车键C）选择（单击）要清除的控件，然后按Del键

B）按Esc键D）选择（单击）要清除的控件，然后按回车键

（13）以下叙述中错误的是

A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件

B）当程序运行时，双击一个窗体，则触发该窗体的DblClick事件

C）VisualBasic应用程序只能以解D）事件可以由用户引发，也可以由系

释方式执行统引发

(14)设a=2,b=3,c=4,d=5,下列表达式Nota<=cOr4*c=b'2Andb<>a+c的值是

A)-1B)1C)TrueD)False

(15)设a=5,b=10,则执行c=Int((b-a)*Rnd+a)+1后，c值的范围

为

A)5-10B)6-9C)6-10D)5~9

(16)在窗体上画一个命令按钮，名称为Commandl,然后编写如下事件过程：

PrivateSubCommandl_Click()

a$=zzsoftwareandhardwarezz

b$=Right(a$,8)

c$=Mid(a$,1,8)

MsgBoxa$,,b$,c$,1

EndSub

运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是

A)softwareandhardwareB)softwareC)hardware

D）1

（17）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1,把文本

框的Text属性设置为空白，然后编写如下事件过程：

PrivateSubCommand1_C1ick（）

a=InputBox（"Enteraninteger"）

b=InputBox（z，Enteraninteger"）

Textl.Text=b+a

EndSub

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10,则文本框中显示

的内容是

A）108B）18C）810D）出错

（■在窗体上画两个文本框，其名称分别为Textl和Text2,然后编写如下程序：

PrivateSubForm_Load（）

Show

Textl.Text=〃〃:Text2.Text=〃〃:Textl.SetFocus

EndSub

PrivateSubTextl_Change0

Text2.Text=Mid（Text1.Text,8）

EndSub

程序运行后，如果在文本框Textl中输入BeijingChina,则在文本框Text2中显示的

内容是

A)BeijingChinaB)ChinaC)BeijingD)BeijingC

H在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Commandl,然后编

写如下事件过程：

PrivateSubFormLoad()

Listl.Additem"Item1〃

Listl.Additem"Item2〃

Listl.Additem"Item3〃

EndSub

PrivateSubCommandl_Click()

Listl.List(Listl.ListCount)=〃AAAA〃

EndSub

程序运行后，单击命令按钮，其结果为

A)把字符串“AAAA”添加到列表框中，但位置不能确定

B)把字符串“AAAA”添加到列表框的最后(即"Item3”的后面)

C)把列表框中原有的最后一项改为“AAAA"

D)把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)

(20)假定有如下事件过程:(21)有如下程序：

PrivateSubForm_Click()PrivateSubForm_Click()

DimxAsInteger,nAsDimCheck,Counter

IntegerCheck=True

x=1Counter=0

n=0Do

DoWhilex<28DoWhileCounter<20

x=x*3Counter=Counter+1

n=n+1IfCounter=10Then

LoopCheck=False

Printx,nExitDo

EndSubEndIf

程序运行后，单击窗体，输出结果是Loop

A)814B)563LoopUntilCheck=False

C)281D)2435PrintCounter,Check

EndSub

程序运行后，单击窗体，输出结果为

A)150B)20-1

C)10TrueD)10False

(22)有如下程序：Printsum

PrivateSubForm_Click()EndSub

DimiAsInteger,sumAsInteger程序运行后，单击窗体，输出结果为

sum二0A)12B)30C)24D)18

Fori=2To10

IfiMod200AndiMod3=0

Then(23)在窗体上画一个名称为Text］的

sum=sum+i文本框和一个名称为Commandl的命令按钮，

EndIf然后编写如下事件过程：

NextiPrivateSubCommandl_Click()

Dimarray1(10,10)AsIntegerTextl.Text=arrayl⑵3)+

DimiAsInteger,jAsIntegerarray1(3,4)

Fori=1To3EndSub

Forj=2To4程序运行后，单击命令按钮，在文本框中

array1(i,j)=i+j显示的值是

NextjA)12B)13C)14D)15

Nexti

(24)在窗体上画一个命令按钮，其名称为Commandl,然后编写如下事件过程:

PrivateSubCommandl_Click()

Dimal(4,4),a2(4,4)

Fori=1To4

Forj=1To4

al(i,j)=i+j

a2(i,j)=al(i,j)+i+j

Nextj

Nexti

Printal(3,3);a2(3,3)

EndSub

程序运行后，单击命令按钮，在窗体上输出的是

A)66B)105C)721D)612

(25)有如下程序：

OptionBase1(26)在窗体上画一个命令按钮，然后编写如

PrivateSubForm_Click()下事件过程：

Dimarr,SumPrivateSubCommand1_Click()

Sum=0Dima(5)AsString

arr=Array(1,3,5,7,9,11,Fori=1To5

13,15,17,19)a(i)=Chr(Asc(〃A〃)+(i-1))

Fori=1To10Nexti

Ifarr(i)/3=arr(i)\3ForEachbIna

ThenPrintb;

Sum=Sum+arr(i)Next