二级Visual+Basic语言程序设计模拟216

1、模拟二级VisualBasic语言程序设计模拟216单项选择题第1题：对长度为n的线性表排序，在最坏情况下，比较次数不是n(n-1)/2的排序方法是oA. 快速排序B. 冒泡排序C. 直接插入排序堆排序参考答案：D除了堆排序算法的比较次数是O(nlog2n),其他的都是n(n1)/2。第2题：下列叙述中正确的是。A. 栈是"先进先出"的线性表B. 队列是"先进后出"的线性表C. 循环队列是非线性结构有序线性表既可以采用顺序存储结构，也可以采用链式存储结构参考答案：D栈是先进后出的线性表，所以A错误；队列是先进先出的线性表，所以B错误;循环队列是线性结构的

2、线性表，所以C错误。第3题：VisualBasic中的"启动对象"是指启动VisualBasic应用程序时，被自动加载并首先执行的对象。下歹U关于VisualBasic"启动对象”的描述中，错误的是A. 启动对象可以是指定的标准模块B. 启动对象可以是指定的窗体C. 启动对象可以是SubMain过程若没有经过设置，则默认的"启动对象"是第一个被创建的窗体参考答案：AVB中启动对象可以是SubMain过程或窗体，不能是标准模块。故A选项错误第4题：算法的空间复杂度是指。A. 算法在执行过程中所需要的计算机存储空间B. 算法所处理的数据量C. 算法

3、程序中的语句或指令条数算法在执行过程中所需要的临时工作单元数参考答案：A算法的空间复杂度是指算法在执行过程中所需要的内存空间。所以选择A。第5题：对于循环队列，下列叙述中正确的是。A. 队头指针是固定不变的B. 队头指针一定大于队尾指针C. 队头指针一定小于队尾指针队头指针可以大于队尾指针，也可以小于队尾指针参考答案：D循环队列的队头指针与队尾指针都不是固定的，随着入队与出队操作要进行变化。因为是循环利用的队列结构所以对头指针有时可能大于队尾指针有时也可能小于队尾指针。第6题：设循环队歹0为Q(1:m),其初始状态为front=rear=m。经过一系歹U入队与退队运算后，front=20,re

4、ar=15。现要在该循环队歹U中寻找最小值的元素，最坏情况下需要比较的次数为A. 5B. 6C. m-5m-6参考答案：D循环队列是队列的一种顺序存储结构，用队尾指针rear指向队列中的队尾元素，用排头指针指向排头元素的前一个位置，因此，从排头指针front指向的后一个位置直到队尾指针rear指向的位置之间所有的元素均为队列中的元素，队列初始状态为front=rear=m，当front=20,rear=15时，队歹U中有m-20+15=m-外元素，比较次数为m-6次，D选项正确。第7题：在面向对象方法中，不届于"对象”基本特点的是0A. 一致性B. 分类性C. 多态性标识唯一性参考答

5、案：A对象有如下一些基本特点：标识唯一性、分类性、多态性、封装性、模块独立性好。所以选择A。第8题：一间宿舍可住多个学生，则实体宿舍和学生之间的联系是。A. 一对一B. 一对多C. 多对一多对多参考答案：B因为一间宿舍可以住多个学生即多个学生住在一个宿舍中，但一个学生只能住一间宿舍，所以实体宿舍和学生之间是一对多的关系。第9题：顺序文件在一次打开期间。A. 只能读，不能写B. 只能写，不能读C. 既可读，乂可写或者只读，或者只写参考答案：D顺序文件的读写是由Open语句的打开模式决定。用Output模式打开，则可对顺序文件进行写操作；用Input模式打开，可对顺序文件进行读操作；用Append

6、模式打开，可将数据追加到文件尾部。打开一次期间，只能读，或只能写，不能同时进行读写操作。但随机文件和二进制文件打开以后可以同时进行读写操作。故D选项正确。第10题：为了建立随机文件，要求文件的每条记录应包含多个不同数据类型的数据项，则记录应使用的数据类型是A. 记录类型B. 字符申类型C. 字符申数组变体类型参考答案：AType语句定义的类型乂称记录类型，记录类型文件的每条记录应包含多个不同数据类型的数据项，故Type语句定义的类型满足题目需求，记录应使用的数据类型是为记录型数据，选项A正确。8GD项不能包含多个不同数据类型的，故都错误。第11题：在VB集成环境中要结束一个正在运行的工程，可单

7、击工具栏上的一个按钮，这个按钮是0D第12题：设x是整型变量，与函数IIf(x>0,-x,x)有相同结果的代数式是。A. |x|B. -|x|C. x-x参考答案：BIIF函数是条件函数，本题的含义是如果x>0条件成立，即x为正数，就返回-x,即x的负数，否则返回x(它本身),两种情况都是返回负数。根据这一点，选项B符合要求。故B选项正确。第13题：下面有关标准模块的叙述中，错误的是。A. 标准模块不完全由代码组成，还可以有窗体B. 标准模块中的Private过程不能被工程中的其他模块调用C. 标准模块的文件扩展名为.bas标准模块中的全局变量可以被工程中的任何模块引用参考答案：A

8、标准模块中只包含其他窗体模块中公用的一些变量、过程等代码，不包括窗体。故选项A错误。标准模块中用Private声明的过程届于私有过程，只能被它所在的模块中的其他过程调用，不能被工程中其他模块调用，用Public声明的全局变量届于公用变量,可以被工程中的任何模块引用。标准模块的文件扩展名是.bas。第14题：以下数组定义语句中，错误的是。A. Statica(10)AsIntegerB. Dimc(3,1To4)C. Dimd(10)Dimb(0To5,1To3)AsInteger参考答案：C第15题：以下关于过程及过程参数的描述中，错误的是。A. 调用过程时可以用控件名称作为实际参数B. 用数

9、组作为过程的参数时，使用的是"传地址"方式C. 只有函数过程能够将过程中处理的信息传回到调用的程序中窗体（Form）可以作为过程的参数参考答案：C过程定义时，形参除了可以是整型、单精度、双精度等数据类型外，还可以是控件或窗口等对象型。相对应的调用过程时实参也可以是一般数据类型、控件名或窗体。故A、D选项正确。调用过程时，如果过程的参数是数组，则实参传给形参的是地址，这个地址是用数组名表示的一个符号地址，是数组的起始地址，形参和实参用的是同一个地址，在过程中形参的改变会引起实参的改变。故B选项正确。在过程调用时，不只是函数过程能把过程中处理的信息传回到调用程序中,Sub过程也

10、可以。Sub过程中形参声明时前面有关键字ByRef或省略ByRef（默认）时，实参和形参之间传递的是地址，Sub过程中形参的变化也会引起实参的变化，这样Sub过程中处理的信息也可以传回调用程序中。故C选项说法错误。第16题：窗体上建立了一个名为CommonDialong1的通用对话框，用下面的语句建立一个对话框：CommonDialong1Action=2，则以下语句与之等价的是（）。A. CommonDialon1.ShowOpenB. CommonDialog1.ShowSaveC. CommonDialog1ShowColorCommonDialog1ShowFont参考答案：B本题考查

11、通用对话框。系统提供了6种通用对话框。可以利用其Action值和提供的不同方法来区分不同的对话框。Action取值可为：1、2、3、4、5、6,对应的方法分别为ShowOpenShowSaveShowColor、ShowFont、ShowPrimer、ShowHelp第17题：若实体A和B是一对多的联系，实体B和C是一对一的联系，则实体A和C的联系是A. 一对一B. 一对多C. 多对一多对多参考答案：BA和B为一对多的联系，则对于A中的每一个实体，B中有多个实体与之联系，而B与C为一对一联系，则对于B中的每一个实体，C中之多有一个实体与之联系，则可推出对于A中的每一个实体，C中有多个实体与联系

12、，所以为一对多联系。第18题：可以产生3050(含30和50)之间的随机整数的表达式是。A. Int(Rnd*21+30)B. Int(Rnd*20+30)C. Int(Rnd*50Rnd*30)Int(Rnd*30+50)参考答案：A第19题：为了使文本框同时具有垂直和水平滚动条，应先把MultiLine届性设置为True，然后再把ScrollBars届性设置为。A. 0B. 1C. 23参考答案：D文档的ScrollBars届性值，0表小无滚动条，1表小只有水平滚动条，2表小只有垂直滚动条，3表小水平和垂直滚动条都有。故D选项正确。第20题：某人编写了下面的程序，希望能把Text1文本框中

13、的内容写到out.txt文件中：PrivateSubCommand1_Click()Open"out.txt"ForOutputAs#2Print"Text1"Close#2EndSub调试时发现没有达到目的，为实现上述目的，应做的修改是。A. 把Print"Text1"改为Print#2,Text1B. 把Print"Text1"改为PrintText1C. 把Print"Text1"改为Write"Text1"把所有#2改为#1参考答案：A要把文本框中的内容写入文本文件中

14、，首先要用Open语句的ForOutput模式打开文本文件，并为文件制定一个文件号，然后，用Print语句将文本写入文本文件，最后关闭文件。本题中Click事件过程中第1、3条语句正确。第2条语句Print语句的格式是：Print#文件号，要写入的内容，原语句错误。根据格式按选项A修改正确，故A选项正确。第21题：以下能够触发文本框Change事件的操作是。A. 文本框失去焦点B. 文本框获得焦点C. 设置文本框的焦点改变文本框的内容参考答案：D改变文本框中的内容时就会触发它的Change事件，故选D=第22题：构成计算机软件的是A. 源代码B. 程序和数据C. 程序和文档程序、数据及相关文档

15、参考答案：D软件指的是计算机系统中与硬件相互依赖的另一部分，包括程序、数据和有关的文档，选Do第23题：在关系A（S,SND）和B（D,CNNM冲，A的主关键字是S,B的主关键字是D,则D是A的A. 外键（码）B. 候选键（码）C. 主键（码）元组参考答案：A第24题：以下说法中正确的是。A. 当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程B. 因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程C. 若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDowr#件过程中的KeyCode参数的值也相同在KeyPress事件过程中，

16、KeyAscii参数可以省略参考答案：AB选项错误原因：窗体有自己的KeyPress事件过程;C选项错误原因：KeyPress事件过程中的KeyAscii参数返回按键的ASCII码值，大小写字母返回值不同；而KeyDowr#件过程中的KeyCode参数返回的是按键代码，大小写字母返回值相同。故按下的键相同时，keyAscii和KeyCode数不一定返回相同值；D选项错误原因：KeyPress事件中的KeyAscii参数不能省略。A选项正确。第25题：下歹0关于通用对话框CommonDialogl的叙述中，错误的是。只要在”打开”对话框中选择了文件，并单击”打开”按钮，就可以将选中的文件打开A.

17、 使用CommonDialogl.ShowColor方法，可以显示"颜色"对话框B. CancelError届性用于控制用户单击"取消"按钮关闭对话框时，是否显示3十日巨口在显示"字体"对话框前，必须先设置CommonDialogl的Flags届性，否则会出错参考答案：A打开对话框主要用来获取用户指定的文件信息并供程序使用，对话框本身并不提供打开文件功能，这些功能需另外编写代码才能实现，所以在”打开"对话框中可选中某文件，但不能打开。故A选项错误。第26题：在窗体上画一个名称为Command的命令按钮，并编写如下程序：Fun

18、ctionFun(x)y=0Ifxv10Theny=xElsey=y+10EndIfFun=yEndFunctionPrivateSubCommand1_Click()n=InputBox("请输入一个数")n=Val(n)P=Fun(n)PrintPEndSub运行程序，单击命令按钮，将显示输入对话框，如果在对话框中输入100,并单击”确定”按钮，则输出结果为。A. 10B. 100C. 110出错信息参考答案：A程序中输入100,则调用过程为Fun(100)，过程Fun中判断参数是否小于10,小于10则将此值赋给y,如果不小于10,则变量y值加10,由于100不小于10

19、,所以y值加10,等于10,并将此值做为函数值返回。因此输出结果为10。第27题：为了使文本框显示滚动条，除要设置ScrollBars夕卜，还必须设置的届性是A. AutoSizeB. AlignmentC. MultilineMaxLength参考答案：C为了使文本框显示滚动条，要将ScrollBars的值设置为非0的1、2或3,还要设置Multiline届性为True。第28题：假定在图片框Picture1中装入了一个图片，在程序运行中，为了活除该图片(注意，活除图片，而不是删除图片框)，应采用的正确方法是。A. 单击图片框，然后按Del键B. 执行语句Picture1.Picture=L

20、oadPicture("")C. 执行语句Picture1.Picture=""执行语句：Picture1.Cls参考答案：BA选项按Del键不能删除图片；C选项中Pictue届性值不能为空字符申，语法错误；D选项中Cls方法只能活除图片上显示的内容，不能活除图片。要将图片框中的图片活除，用B选项方法可以。故B选项正确。第29题：以下合法的VB变量名是。A. _xB. 2yC. a#bx_1_x参考答案：DVB中变量的命名规则为：必须以字母或汉字开头由字母、汉字、数字或下划线组成不能使用VB的保留字。_x不能以下划线开头，不合法；2y不能以数字开头，不合

21、法；a#b中有#，不合法；D选项符合命名规则，故D选项正确。第30题：PrintRight("VBProgramming",2)语句的输出结果是。A. VBB. ProgrammingC. ng2参考答案：CRight是字符申的右部截取函数，本题中是从字符申"VBProgramming”右边向左截取2个字符，即为"ng",故选C。第31题：设有如下一段程序：PrivateSubCommand1_Click()StaticaAsVarianta=Array("one","two","three&q

22、uot;,"four","five")Printa(3)EndSub针对上述事件过程，以下叙述中正确的是。A. 变量声明语句有错，应改为Statica(5)AsVariantB. 变量声明语句有错，应改为StaticaC. 可以正常运行，在窗体上显示three可以正常运行，在窗体上显示four参考答案：D题目中变量a被定义为Variant类型，Variant是一种特殊的数据类型，除了定长String数据及用户定义类型外，可以包含任何种类的数据。变量a被赋值为字符申数组，数组默认下标从0开始，因此元素a(3)的值为"four”。第32题：求1!+

23、2!+10!的程序如下：PrivateFunctions(xAsInteger)f=1Fori=1Toxf=f*iNexts=fEndFunctionPrivateSubCommand1_Click()DimiAsIntegerDimyAsLongFori=1To10NextPrintyEndSub为实现功能要求，程序的横线处应该填入的内容是。A. Calls(i)B. CallsC. y=y+s(i)y=y+s参考答案：C题目中过程s的功能是实现一个数的阶乘，而题目是求1到10的阶乘的和，则程序空缺处应该是过程s返回值的累加，因此就应该为y=y+s(i)。第33题：在窗体上画1个名称为Com

24、mand的命令按钮，1个名称为Label1的标签，然后编写如下事件过程：PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimsAsIntegerFori=1To5Forj=1Tois=s+jNextjNextiLabell.Caption=sEndSub程序运行后，单击命令按钮Command!则标签中显示的内容是A. 15B. 20C. 3555参考答案：CFor循环，对s累加，当i=1时，完成内层For循环后s=1;当i=2时，For循环后s=4;依次类推，当i=5时，完成内层For循环后s=35,接利用多重完成内层着退出最外层循环。将s

25、的值赋值给标签Label1的标题，故标签中显示为35,选择C项。第34题：设窗体上有一个文本框Text1和一个命令按钮Command,1并有以下事件过程：PrivateSubCommand1_Click()DimsAsString,chAsStringcIllis=Fork=1ToLen(Text1)ch=Mid(Text1,k,1)s=ch+sNextkText1.Text=sEndSub程序执行时，在文本框中输入"Basic",然后单击命令按钮，则Text1中显示的是0A. BasicB. cisaBC. BASICCISAB参考答案：BLen函数返回字符申的长度，Mi

26、d函数为字符申中部截取函数格式为：Mid(字符申，起始位置，长度)。程序中，For循环的终值是Text1中输入的字符申的长度，即"Basic"的长度，为5。循环体中Mid函数从第一个字符开始依次取出一个字符，然后与上次取出的字符连接，本次取出的字符在前，上次取出的字符在后。最终变量s中应该是"cisaB”。第35题：窗体上有名称为Command的命令按钮，名称分别为List1、List2的歹U表框，其中List1的MultiSelect届性设置为1(Simple),并有如下事件过程：PrivateSubCommand1_Click()Fori=0ToList1.L

27、istCount1IfList1.Selected(i)=TrueThenList2.AddItemTextEndIfNextEndSub上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下歹0修改中正确的是OA. 将For循环的终值改为List1.ListCountB. 将List1.Selected(i)=True改为List1.List(i).Selected=TrueC. 将List2.AddItemText改为List2.AddItemList1.List(i)将List2.AddItemText改为List2.AddIt

28、emList1.ListIndex参考答案：C题目程序不能将List1中的选中项添加到List2中，List2.AddItemText一行有误，应该改为List2.AddItemList1.List(i)才能使List1中每个选中的行添加到List2中。列表框控件的List届性保存了列表框中所有值的数组，可以通过下标访问数组中的值。第36题：为计算an的值，某人编写了函数power如下：PrivateFunctionpower(aAsInteger,nAsInteger)AsLongDimsAsLongp=aFork=1Tonp=p*aNextkpower=pEndFunction在调试时发现

29、是错误的，例如Printpower(5,4)的输出应该是625,但实际输出是3125。程序需要修改。下面的修改方案中有3个是正确的，错误的一个是A. 把Fork=1Ton改为Fork=2TonB. 把p=p*a改为p=pAnC. 把Fork=1Ton改为Fork=1Ton1把p=a改为p=1参考答案：B程序中计算an的算法有误，由于已经将a的值赋给了p,在后边的For循环中再乘n次a显然就多乘了一次a,因此，要改正此程序或者将p=a改为p=1,或者将fork=1ton改成fork=1ton1或fork=2ton。而B选项将p=p*a改为p=pAn将会导致p=pAn执行n次，得不到正确结果。第3

30、7题：编写如下程序：PrivateSubCommand1_Click()DimmAsInteger,nAsIntegern=2Form=1To3Printproc(n)；NextmEndSubFunctionproc(iAsInteger)DimaAsIntegerStaticbAsIntegera=a+1b=b+1proc=a*b+iEndFunction程序运行后，单击命令按钮Command!输出结果为A.333B.345C.356D.123参考答案：B第38题:下列循环中，可以正常结束的是。A. i=10Doi=i+1LoopUntili<1B. i=1Doi=i+1LoopUnt

31、ili=10C. i=10Doi=i+1LoopWhilei>1i=10Doi=i2LoopUntili=1参考答案：B选项A中先执行一次循环体，i的值变成1,测试循环结束条件，iv1不成立，循环继续，i值总是增加，达不到循环结束条件，不能正常结束。选项B先执行循环体，i值加1变成2,再测试循环结束条件i=10,继续循环，i值再加1,直到i变为10,循环结束。选项C中i初值为10,先执行一次循环体，使i加1,然后判断继续循环的条件i>1是否成立，此后i值不会小于等于，循环会一直继续下去，不会正常结束。选项D中i初值为10,每次循环i值减2,因此它总是偶数，而循环结束的条件是i=1,

32、不可能达到，循环会一直继续下去。第39题：窗体的MouseU沙件过程如下：PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSub关于以上定义，以下叙述中错误的是。A. 根据Shift参数，能够确定使用转换键的情况B. 根据X、Y参数可以确定触发此事件时鼠标的位置C. Button参数的值是在MouseU冲件发生时，系统自动产生的MouseUpH鼠标向上移动时触发的事件参考答案：DMouseUW件是鼠标松开时触发的事件过程，事件过程的Button参数值由系统产生，为被按下的键，Shift参数

33、表示Shift、Ctrl和Alt键的状态，X、Y参数表小光标的当前位置。第40题：设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command的命令按钮。Form1的代码如下：PublicxAsIntegerPrivateSubForm_Load()x=1y=5EndSubPrivateSubCommand1_Click()Form2.ShowEndSubForm2的代码如下：PrivateSubCommand1_Click()PrintForm1.x,yEndSubModulel的代码如下：Publicy

34、AsInteger运行以上程序，单击Forml的命令按钮Command，1则显示Form2；再单击Form2上的命令按钮Command,1则窗体上显示的是。A. 15B. 05C. 00程序有错参考答案：A在Form1窗体模块中x被定义为全局变量，这使得它的值可以在其他模块中通过"过程名.变量名”的形式被引用。而变量y在标准模块中被定义为全局变量，则它可以在工程的每个模块，每个过程中使用。因此程序运行时，x赋值为1,y赋值为5,它们的值都可以在Form2中引用。基本操作题基本操作题第41题：(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“

35、姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2,初始内容均为空)和一个命令按钮(名称为Command1标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp,窗体文件名保存为sitl.frm。（2）在名称为Forml的窗体上画一个图片框，其名称为Picturel，一个水平滚动条，名称为HScrollI,一个命令按钮，名称为Command1标题为“设置属性”，通过属性窗口

36、在图片框中装入一个图形（文件名为pic1.jpg，位丁考生目录下），图片框的高度与图形的高度相同，图片框的宽度任意（如图1所示）。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的属性如下：Min100Max1500.LargeChange100SmallChange10之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。(1)通过标签的Nam屏日Caption届性设置标签的名称和标题，通过文本框NameffiText届性设

37、置文本框的名称和文本，通过命令按钮的Nam凯Caption届性设置命令按钮的名称和标题，“&”和“+”运算符均可将两个表达式作为字符申连接。在窗体上输出文本内容可使用Print方法。(2)在设计阶段通过Picture届性为图片框指定显示的图片，通过Width届性来设定或修改图片框的宽度。通过调整滚动条滑块的位置即可改变其Value届性的值。滚动条的Max和Min届性限定了滚动条所能表示的最大值和最小值，LargeChangcH性用丁设置当单击滑块与两侧箭头间区域时Value届性值的改变量，SmallChangeH性用于设置当单击滚动条两侧箭头时Value届性值的改变量。当改变滚动条滑块

38、位置后将触发其Change事件。简单应用题简单应用题第42题：(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是：1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为jpg的文件。2)双击文件列表框中某个图片文件名时，能在图像框中显示出该张图片，并将该图片文件的信息(包括路径及文件名)显示到标签中。3)“下一张”命令按钮的功能：选中并显示卜次选中文件的下一个图片文件(如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名，则从第1个图片文件开始)。在当前程序所在文件夹中，已经提供了所需要的图片文件，运行时窗体如图所示。在给出的窗体文件中已经有了全部控件，但程序不完整

39、。请将事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是：程序运行时，文本框中显示一篇英文短文，单击“查找”按钮时可输入查找内容，如图1所示。若未找到查找内容，查找结束；若找到查找内容，被找到的内容在文本框中以反相显示(即呈选中状态)，每找到一次都给出提示，并在左下角文本框中显示累计的次数，如图2所示，若单击提示对话框的“是”按钮，则继续向后查找；若单击“否”按钮，则终止查找。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的

40、注释符去掉，把？改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。参考答案：步骤1:打开本题工程文件。步骤2:打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。File1.File1File1.PrivatePrivateSubCommandlClick()IfListindex=1OrFilel.Listindex=Filel.ListCount1LiStIndex=0E1SeIfFilelListindex>=0Listindex=File1.Listindex+1EndIfEndIfShowinforEndSu

41、bSubFilel_DblClick()CallShowinforEndSubPrivateCaption=AppPath+""+File1ThenThenSubFileNameSub步Showinfor()LabellImage1.Picture=LoadPicture(Label1Form_Load()Filel.Path=App.PathFile1.Pattern="*.jpg"骤3:一调试并运行程序，关闭程序后按题目要求存盘。(2)步骤程文件。步骤2:打开代码编辑窗口，去掉程序中的注释符为正确的内容。PrivateSubCommand1_Click()DimfstrAsStringAsStringDimtimesAsInteger,posAsIntegerDimansAsInteg