《2023年3和9月月计算机等级考试二级-VB笔试真题及答案.docx》由会员分享,可在线阅读,更多相关《2023年3和9月月计算机等级考试二级-VB笔试真题及答案.docx(24页珍藏版)》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2023年3月全国计算机等级考试二级VB笔试试卷一、选择题(每题2分,共70分)(1)下列叙述中正确的是()A)对长度为n的有序链表进行查找,最坏状况下须要比较次数为nB)对长度为n的有序链表进行对分查找,最坏状况下须要比较次数为(n/2)C)对长度为n的有序链表进行对分查找,最坏状况下须要的比较次数(log2n)D)对长度为n的有序链表进行对分查找,最坏状况下须要的比较次数(nlog2n)(2)算法的时间困难是指()A)算法的执行时间B)算法所处理的数据量C)算法程序中的语句或指令条数D)算法在执行过程中所须要的基本运算次数(3)软件按功能可以分为:应用软件、系统软件和支持软件(或工具软件)
2、,下面属于系统 软件的是()A)编辑软件B)操作系统 C)教务管理系统 D)阅读器(4)软件(程序)调试的任务是()A)诊断和改正程序中的错误B)进肯能多的发觉程序中的错误C)发觉并改正程序中的全部错误D)确定程序中错误的性质(5)数据流程图(DFD图)是()A)软件概要设计的工具B)软件具体设计的工具C)机构化方法的需求分析工具D)面对对象方法的需求分析工具(6)软件生命周期可以分为定义阶段,开发阶段和维护阶段。具体设计属于()A)定义阶段B)开发阶段C)维护阶段 D)上述三个阶段(7)数据库管理系统中负责数据模式定义的语言是A)数据定义语言B)数据管理语言C)数据操纵语言D)数据限制语言(
3、8)在学生管理的关系数据库中,存取一个学生信息的数据单位是A)文件B)数据库C)字段D)记录(9)数据库设计中,用E-R图来描述信息结构但不涉及信息在计算机中的表示,它属 于数据库设计的A)需求分析阶段B)逻辑设计阶段C)概念设计阶段D)物理设计阶段(10)有两个关系R和T如下:对该二叉树进行后序遍历的结果为【3】o(4)软件是【4】、数据和文档的集合。(5)有一个学生选课的关系,其中学生的关系模式为:学生(学号,姓名,班级,年 龄),课程的关系模式为:课程(课号,课程名,学时),其中两个关系模式的键分别是学号 和课号,则关系模式选课可定义为:选课(学号,【5】,成果)。(6)为了使复选框禁用
4、(即呈现灰色),应把它的uHz便属性设置为【6】o(7)在窗体上画一个标签、一个计时器和一个吩咐按钮,其名称分别为Lab、Timer 1 Command 1,如图1所示。程序运行后,假如单击吩咐按钮,则标签起先闪耀,每秒钟“欢 迎”二字显示、消逝各一次,如图2所示。以下是实现上述功能的程序,请填空。Private Sub Form_Load ()Label 1 Caption一欢迎”Timerl .Enabled=FalseTimer l.Interval= 7End SubPrivate Sub Timerl_Timer ()Label l.Visible=【8 】End SubPrivat
5、e Sub command l_Click ()9End Sub(8)有如下程序:Private Sub Form_Click ()n=10i=0Doi=i+nn=n-2Loop While n2Print iEnd Sub程序运行后,单击窗体,输出结果为【10】o(9)在窗体上画一个名称为Commandl的吩咐按钮。然后编写如下程序:Option Base 1Private Sub Command l_Click ()Dim a (10) As IntegerFor i=l To 10 a (i) =iNextCall swap ( 11 )For i=l To 10Print a (i);
6、NextEnd SubSub swap (b () As Integer) n=Ubound (b)For i=l To n / 2 t=b (i) b (i) =b (n) b (n) =t12NextEnd Sub上述程序的功能是,通过调用过程sw叩,调换数组中数值的存放位置,即a(l)与a(10) 的值互换,a(2)与a(9)的值互换,。请填空。(10)在窗体上画一个文本框,其名称为Textl,在属性窗口中把该文本框的MultiLine 属性设置为True,然后编写如下的事务过程:Private Sub Form_Click ()Open d:testsmtextl.Txt For In
7、put As #1Do While Not 13Line Input #1, aspect$Whole$=whole$+aspect$4-Chr$ (13) +Chr$ (10)LoopText 1 ,Text=whole$14Open d:testsmtext2.Txt For Output As #1Print#1, 15Close #1End Sub运行程序,单击窗体,将把磁盘文件smtextl.txt的内容读到内存并在文本框中显示出来, 然后把该文本框中的内容存入磁盘文件smtext2.txto请填空。2023年3月全国计算机等级考试二级VB笔试试卷答案选择题1-5ADBAC6-10B
8、ADBA11 (D) 12(B) 13(C) 14(A) 15(D)16 (C) 17(B) 18(A) 19(B) 20(A)21 (A) 22(D) 23(A) 24(D) 25(C)26 (C) 27(A) 28(C) 29(C) 30(B)31 (C) 32(B) 33(A) 34(B) 35(D)填空题(1) A,BCD,E,F,5,4,3,2(2) 15(3) EDBGHFCA(4)程序(5)课号(6) 6 27 500(8) 8 Not label 1.visible(9) 9 Timer 1 .Enabled=Ture(10) 10 28或 a(12) 12 n=n-l(13)
9、 13 EOF(l)(14) 14 Close# 1(15) 15 Text 1.Text 或 textl dfyz来自2023年9月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计(考试时间90分钟,满分100分)一、选择题(每小题2分,共70分)下列各题A) 、B) 、C) 、D)四个选项中,只有一个选项是正确的。请将正确选 项填涂在答题卡相应位置上,答在试卷上不得分。(1)下列叙述中正确的是()。A)算法就是程序B)设计算法时只须要考虑数据结构的设计C)设计算法时只须要考虑结果的牢靠性D)以上三种说法都不对(2)下列关于线性链表的叙述中,正确的是A)各数据结点的存储空间
10、可以不连续,但它们的存储依次与逻辑依次必需一样B)各数据结点的存储依次与逻辑依次可以不一样,但它们的存储空间必需连续C)进行插入与删除时,不须要移动表中的元素D)以上三种说法都不对(3)下列关于二叉树的叙述中,正确的是A)叶子结点总是比度为2的结点少一个 B)叶子结点总是比度为2的结点多一个C)叶子结点数是度为2的结点数的两倍D)度为2的结点数是度为1的结点数的两倍(4)软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软 件的是A)学生成果管理系统B) C语言编译程序C) UNIX操作系统D)数据库管理系统(5)某系统总体结构图如下图所示:该系统总体结构图的深度是A)
11、 7B) 6C)D) 2(6)程序调试的任务是A)设计测试用例C)发觉程序中的错误B)D)验证程序的正确性诊断和改正程序中的错误(7)下列关于数据库设计的叙述中,正确的是A)在需求分析阶段建立数据字典C)在逻辑设计阶段建立数据字典B)D)在概念设计阶段建立数据字典在物理设计阶段建立数据字典(8)数据库系统的三级模式不包括A)概念模式B)内模式C)外模式D)数据模式C)交(9)有三个关系R、则由关系R和S得到关系T的操作是A)自然连接B)差D)(10)下列选项中属于面对对象设计方法主要特征的是A)继承B)自顶向下C)模块化D)逐步求精A)B)C)D)A)代码窗口C)工程资源管理器窗口B)D)工具
12、箱窗口 属性窗口(13)设有如下变量声明语句:Dim a, b As Boolean则下面叙述中正确的是A) a和b都是布尔型变量C) a是整型变量,b是布尔型变量B)D)a是变体型变量,b是布尔型变量a和b都是变体型变量(11)以下描述中错误的是窗体的标题通过其Caption属性设置窗体的名称(Name属性)可以在运行期间修改 窗体的背景图形通过其Picture属性设置 窗体最小化时的图标通过其Icon属性设置(12)在设计阶段,当按Ctrl+R键时,所打开的窗口是(14)下列可以作为Visual Basic变量名的是A) A#AB) 4ABCC)?xyD) Print TextA)B)C)
13、D)则100表示(15)假定一个滚动条的LargeChange属性值为100,单击滚动条箭头和滚动框之间某位置时滚动框位置的改变量滚动框位置的最大值拖动滚动框时滚动框位置的改变量单击滚动条箭头时滚动框位置的改变量(16)在窗体上画一个吩咐按钮,然后编写如下事务过程:Private Sub Command 1 _Click()MsgBox Str(123 + 321)End Sub程序运行后,单击吩咐按钮,则在信息框中显示的提示信息为A)字符串“123+321 B)字符串“444 C)数值“444 D)空白(17)假定有以下程序:Private Sub Form_Click()a = 1: b
14、= aDo Until a = 5 x = a * b Print b; x a = a + b b = b + aLoopEnd Sub程序运行后,单击窗体,输出结果是D) 1136A) 11B) 11C) 11232438(18)在窗体上画一个名称为Listl的列表框,列表框中显示若干城市的名称。当单击列表 框中的某个城市名时,该城市名消逝。下列在List_Qick事务过程中能正的确现上述功能的 语句是A) Listl.Removeitem Listl.TextB) Listl.Removeitem Listl.ClearC) List 1 .Removeitem List 1 .List
15、CountD) List 1 .Removeitem Listl.Listindex(19)列表框中的项目保存在一个数组中,这个数组的名字是A) ColumnB) StyleC) ListD) MultiSelect(20)有人编写了如下的程序:Private Sub Form_Click()Dim s As Integer, x As Integers = 0x = 0Do While s = 10000x = x + 1s = s + x 八 2LoopPrint sEnd Sub上述程序的功能是:计算s=l+22+32+直到s10000为止。程序运行后,发觉得不到正确的结果,必需进行修改
16、。下列修改中正确的是A)把x = 0改为x = 1B)把 Do While s = 10000 改为 Do While s 10000D)交换x = x+ Mlls = s + x八2的位置(21)设有如下程序:Private Sub Form_Click()Dim s As Long, f As LongDim n As Integer, i As Integer f= 1 n = 4For i = 1 To n f=f*i s = s + fNext iPrint sEnd Sub程序运行后,单击窗体,输出结果是A) 32B) 33(22)阅读下面的程序段:a = 0For i = 1 T
17、o 3For j = 1 To iFor k = j To 3 a = a + 1Next kNext jNext i执行上面的程序段后,a的值为A) 3B) 9C) 34D) 35C) 14D) 21(23)设有如下程序:Private Sub Form_Click()Cisa$ = 123456”For i = 1 To 6PrintTab(12-i); Next iEnd Sub程序运行后,单击窗体,要求结果如图所示,A) Left(a$, i)B) Mid(a$, 8 - i, i)则在处应填入的内容为C) Right(a$, i) D) Mid(a$, 7, i)(24)设有如下程序
18、:Private Sub Form_Click()Dim i As Integer, x As String, y As Stringx 二ABCDEFG”For i = 4 To 1 Step -1 y = Mid(x, i, i) + yNext iPrint yEnd Sub程序运行后,单击窗体,输出结果是A) ABCCDEDEFGB) AABBCDEFGC) ABCDEFGD) AABBCCDDEEFFGG(25)设有如下程序:Private Sub Form_Click()Dim ary(l To 5) As IntegerDim i As IntegerDim sum As Int
19、egerFor i = 1 To 5ary(i)= i + 1sum = sum + ary(i)Next iPrint sumEnd Sub程序运行后,单击窗体,则在窗体上显示的是A) 15B) 16C) 20D) 25(26)有一个数列,它的前3个数为0, 1, 1,此后的每个数都是其前面3个数之和,即0, 1, 1, 1, 2, 4, 7, 13, 24, 要求编写程序输出该数列中全部不超过1000的数。某人编写程序如下:Private Sub Form_Click()Dim i As Integer, a As Integer, b As IntegerDim c As Integer
20、, d As Integer a = 0: b = 1: c = 1 d = a + b + c i = 5While d = 1000Print d;a = b:b = c:c = d d = a + b + c i = i + 1WendEnd Sub运行上面的程序,发觉输出的数列不完整,应进行修改。以下正确的修改是A)把 While d 1000B)把i = 5改为i = 4C)把 i = i + 1 移到 While d = 1000 的下面D)在i = 5的上面增加一个语句:Print a; b; c;(27)下面的语句用Array函数为数组变量a的各元素赋整数值:a = Array
21、(l, 2, 3, 4, 5, 6, 7, 8, 9)针对a的声明语句应当是A) Dim aB) Dim a As IntegerC) Dim a(9) As IntegerD) Dim a() As Integer(28)下列描述中正确的是A) Visual Basic只能通过过程调用执行通用过程B)可以在Sub过程的代码中包含另一个Sub过程的代码C)可以像通用过程一样指定事务过程的名字D) Sub过程和Function过程都有返回值(29)阅读程序:Function fac(ByVal n As Integer) As IntegerDim temp As Integertemp = 1
22、For i% = 1 To ntemp = temp * i%Next i% fac = tempEnd FunctionPrivate Sub Form_Click()Dim nsum As Integer nsum = 1For i% = 2 To 4nsum = nsum + fac(i%)Next i%Print nsumEnd Sub程序运行后,单击窗体,输出结果是A) 35B) 31C) 33D) 37(30)在窗体上画一个吩咐按钮和一个标签,其名称分别为Commandl和Label 1,然后编 写如下代码:Sub S(x As Integer, y As Integer)Stat
23、ic z As Integery = x * x + zz 二 yEnd SubPrivate Sub Command 1 _Click()Dim i As Integer, z As Integerz = 0For i = 1 To 3S i, zm = m + zNext iLabel 1.Caption 二 Str(m)End Sub程序运行后,单击吩咐按钮,在标签中显示的内容是A) 50B) 20C) 14D) 7(31)以下说法中正确的是A) MouseUp事务是鼠标向上移动时触发的事务B) MouseUp事务过程中的x, y参数用于修改鼠标位置C)在MouseUp事务过程中可以推断
24、用户是否运用了组合键D)在MouseUp事务过程中不能推断鼠标的位置(32)假定已经在菜单编辑器中建立了窗体的弹出式菜单,其顶级菜单项的名称为al,其“可见”属性为False。程序运行后,单击鼠标左键或右键都能弹出菜单的事务过程是A) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 And Button = 2 ThenPopupMenu alEnd IfEnd SubB) Private Sub Form_MouseDown(Butto
25、n As Integer, Shift As Integer, X As Single, Y As Single)PopupMenu alEnd SubC) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenPopupMenu alEnd IfEnd SubD) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Sing
26、le)If Button = 2 ThenPopupMenu alEnd IfEnd Sub(33)在窗体上画一个名称为CD1的通用对话框,并有如下程序:Private Sub Form_Load()ABCa12b22c32d32ABCc32d32则由关系R得到关系T的操作是A)选择B)投影C)交D)并(11)在VB集成环境中要结束一个正在运行的工程,可单击工具栏上的一个按钮,这 个按钮是(12)设x是整型变量,与函数nf(xO,-x,x)有相同结果的代数式是A) |x|B) -|x|C) xD) -x(13)设窗体文件中有下面的事务过程:Private Sub Commandl_Click
27、()Dim sa%=100Print aEnd Sub其中变量a和s的数据类型分别是A)整型,整型B)变体型,变体型C)整型,变体型D)变体型,整型(14)下面哪个属性确定不是框架控件的属性A) TextB) CaptionCDl.DefaultExt = ndocnCDl.FileName = k:filel.txt”CD 1.Filter 二”应用程序(*.exe)|*.exe”End Sub程序运行时,假如显示了 “打开”对话框,在“文件类型”下拉列表框中的默认文件类 型是A)应用程序(*取。) B) *.docC)*.txtD)不确定(34)以下描述中错误的是A)在多窗体应用程序中,可
28、以有多个当前窗体B)多窗体应用程序的启动窗体可以在设计时设定C)多窗体应用程序中每个窗体作为一个磁盘文件保存D)多窗体应用程序可以编译生成一个EXE文件(35)以下关于依次文件的叙述中,正确的是A)可以用不同的文件号以不同的读写方式同时打开同一个文件B)文件中各记录的写入依次与读出依次是一样的C)可以用Input#或Line Input#语句向文件写记录D)假如用Append方式打开文件,则既可以在文件末尾添加记录,也可以读取原有记 录二、填空题(每空2分,共30分)请将每空的正确答案写在答题卡口】至15序号的横线上,答在试卷上不得分。(1)数据结构分为线性结构与非线性结构,带链的栈属于【1】
29、。(2)在长度为n的依次存储的线性表中插入一个元素,最坏状况下须要移动表中【2】个元素。(3)常见的软件开发方法有结构化方法和面对对象方法。对某应用系统经过需求分析建立 数据流图(DFD),则应采纳 【3】 方法。(4)数据库系统的核心是一【4】。(5)在进行关系数据库的逻辑设计时,E-R图中的属性常被转换为关系中的属性,联系通 常被转换为 【5】。(6)为了使标签能自动调整大小以显示标题(Caption属性)的全部文本内容,应把该标签 的【6】 属性设置为Trueo(7)在窗体上画一个吩咐按钮,其名称为Commandl,然后编写如下事务过程:Private Sub Command 1 _Cl
30、ick()x = 1Result = 1While x = 10Result =【7】x = x + 1WendPrint ResultEnd Sub上述事务过程用来计算10的阶乘,请填空。(8)在窗体上画一个吩咐按钮,其名称为Commandl,然后编写如下事务过程:Private Sub Command 1 _Click()t = 0: m = 1: Sum = 0Dot二t +18】Sum = Sum +19】m = m + 2Loop While 【10】Print SumEnd Sub该程序的功能是,单击吩咐按钮,则计算并输出以下表达式的值:1+(1 +3)+( 1 +3+5)+.+(
31、 1 +3+5+.+39)请填空。(9)在窗体上画一个吩咐按钮(其Name属性为Commandl),然后编写如下代码:Private Sub Commandl_Click()Dim M(10) As IntegerFor k = 1 To 10M(k)= 12-kNext kx = 6Print M(2 + M(x)End Sub程序运行后,单击吩咐按钮,输出结果是.【11】。(10)在窗体上画一个吩咐按钮,其名称为Commandl,然后编写如下事务过程:Private Sub Commandl_Click()Dim n As Integern = Val(InputBox(请输入一个整数:)
32、If n Mod 3 = 0 And n Mod 2 = 0 And n Mod 5 = 0 ThenPrint n + 10End IfEnd Sub程序运行后,单击吩咐按钮,在输入对话框中输入60,则输出结果是.【12】。(11)在窗体上画一个吩咐按钮,其名称为Command1,然后编写如下事务过程:Private Sub Commandl_Click()Dim ct As StringDim nt As IntegerOpen e:stud.txt 【13】Do While Truect = InputBox(”请输入姓名:”)If ct =【14】Then Exit Dont = Va
33、l(InputBox(”请输入总分:)Write #1,【15】LoopClose #1End Sub以上程序的功能是,程序运行后,单击吩咐按钮,则向e盘根书目下的文件stud.txt中 添加记录(保留已有记录),添加的记录由键盘输入;假如输入“end”,则结束输入。 每条记录包含姓名(字符串型)和总分(整型)两个数据。请填空。参考答案、选择题(每小题2分,共70分)(1) D(6) D(11) B(16) B(21) B(26) D(31) C(2) C(7) A(12) C(17) D(22) C(27) A(32) B(3) B(8) D(13) B(18) D(23) A(28) A(
34、33) A(4) A(9) B(14) D(19) C(24) A(29) C(34) A(5) C(10) A(15) A(20) B(25) C(30) B(35) B二、填空题(每空2分,共30分)请将每空的正确答案写在答题卡【1】至15序号的横线上,答在试卷上不得分。1线性结构【2】n【3】结构化4数据库管理系统5关系6 AutoSize7 Result * x8 m9 t10 m40 或 m KeyDown KeyUp,若光标在Textl文本框 中,则每输入一个字母A)这3个事务都会触发B)只触发KeyPress事务C)只触发KeyDown、KeyUp事务D)不触发其中任何一个事务(
35、19)下面关于标准模块的叙述中错误的是A)标准模块中可以声明全局变量B)标准模块中可以包含一个Sub Main过程,但此过程不能被设置为启动过程C)标准模块中可以包含一些Public过程D) 一个工程中可以含有多个标准模块(20)设窗体的名称为Forml,标题为Win,则窗体的MouseDown事务过程的过程名 是A) Form 1 _MouseDownB) Win_MouseDownC) Form_MouseDownD) MouseDown_Form 1(21)下面正确运用动态数组的是A) Dim arr() As Integer ReDim arr(3,5)B) Dim arr() As
36、IntegerReDim arr(50)As String C) Dim arr()ReDim arr(50) As IntegerD) Dim arr(50) As Integer ReDim arr(20)(22)下面是求最大公约数的函数的首部Function gcd(ByVal x As Integer, By Vai y As Integer) As Integer若要输出8、12、16这3个数的最大公约数,下面正确的语句是A) Print gcd(8,12), gcd(12,16), gcd(16,8)B) Print gcd(8,12,16)C) Print gcd(8), gcd
37、(12), gcd(16)D) Print gcd(8,gcd(12,16)(23)有下面的程序段,其功能是按图1所示的规律输出数据Dim a(3,5) As IntegerFor i=l To 3For j=l To 5NextPrintNext若要按图2所示的规律接着输出数据,则接在上述程序段后面的程序段应当是A) For i=l To 5Forj=l To 3Print a (j,i);NextPrintNextB) For i=l To 3Forj=l To 5Print a (j,i);NextPrintNextC) Forj=l To 5For i=l To 3Print a (j
38、,i);NextPrintNextD) For i=l To 5Forj=l To 3Print a (ij);NextPrintNext(24)窗体上有一个Textl文本框,一个Commandl吩咐按钮,并有以下程序Private Sub Commandl_Click ()Dim nIf Textl.Texto 23456 Thenn二n+1Print 口令输入错误& n & 次End IfEnd Sub希望程序运行时得到左图所示的效果,即:输入口令,单击“确认口令”吩咐按钮,若 输入的口令不是“123456”,则在窗体上显示输入错误口令的次数。但上面的程序实际显示 的是右图所示的效果,程序
39、须要修改。下面修改方案中正确的是A)在Dim n语句的下面添加一句:n=0B)把Print 口令输入错误& n & 次改为Print 口令输入错误+n+次C)把Print 口令输入错误 & n & 次改为Print 口令输入错误&Str(n)&次D)把 Dim n 改为 Static n(25)要求当鼠标在图片框Pl中移动时,马上在图片框中显示鼠标的位置坐标。下面 能正的确现上述功能的事务过程是Private Sub Pl_MouseMovePrivate Sub Pl_MouseDownPrivate Sub Pl_MouseMovePrivate Sub Form_MouseMoveA)(
40、Button AS Integer,Shift As Integer,X As Single, Y As Single) Print X,YEnd SubB)(Button AS Integer,Shift As Integer,X As Single, Y As Single) Picture.Print X,YEnd SubC)(Button AS Integer,Shift As Integer,X As Single, Y As Single) Pl.Print X,YEnd SubD)(Button AS Integer,Shift As Integer,X As Single, Y
41、 As Single) Pl.Print X,YEnd Sub(26)计算二的近似值的一个公式是。某人编写下面的程序用此公式计算并输出兀的近似值:Private Sub Comandl_Click ()PI=1Sign=l n=20000For k=3 To nSignSign/kPI=PI+Sign/kNext kPrint PI*4End Sub运行后发觉结果为3.22751,明显,程序须要修改。下面修改方案中正确的是A)把 For k=3 To n 改为 For k=l To nB)把 n=20000 改为 n=20000000C)把 For k=3 To n 改为 For k=3 To
42、 n Step 2D)把 PI=1 改为 PI=0(27)下面程序计算并输出的是Private Sub Comandl_Click ()a=10s=0Dos=s+a*a*aa=a-lLoop Until a=0Print sEnd SubA) 13+23+33+103 的值B) 10!+3!+2!+l!的值C) (1+2+3+10) 3 的值D) 10个103的和(28)若在窗体模块的声明部分声明白如下自定义类型和数组Private Type recCode As IntegerCaption As StringEnd TypeDim arr (5) As rec则下面的输出语句中正确的是A) Print arr.Code(2),arr.Caption(2)B) Print arr.Code,arr.CaptionC) Print arr(2).Code,arr(2).Cap