1、二级 VISUAL+BASIC 笔试-271 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.窗体上命令按钮的事件过程如下：Private Sub Command1_Click()A=“34“:B=“26“:C=“98“Print B+C+AEnd Sub运行程序后，单击命令按钮，输出结果是( )。（分数：2.00）A.“269834“B.269834C.158D.程序运行出错2.在程序运行时，下面的叙述中正确的是( )。（分数：2.00）A.用鼠标右键单击窗体中无控件的部分，会执行窗体的 Form Load 事件过程B.用鼠标左键单击窗体
2、的标题栏，会执行窗体的 Form Click 事件过程C.只装入而不显示窗体，也会执行窗体的 Form Load 事件过程D.装入窗体后，每次显示该窗体时，都会执行窗体的 Form Click 事件过程3.要使菜单项 MenuOne 在程序运行时失效，应使用的语句是( )。（分数：2.00）A.MenuOne.Visible=TrueB.MenuOne.Visible=FalseC.Menuone.Enabled=TrueD.MenuOne.Enabled=False4.算法的时间复杂度是指( )。（分数：2.00）A.算法的长度B.执行算法所需要的时间C.算法中的指令条数D.算法执行过程中所
3、需要的基本运算次数5.下列不一定是传值的虚实结合方式的选项是( )。（分数：2.00）A.调用过程时实参为表达式B.调用过程时实参为常量C.调用过程时实参为变量名D.调用过程时实参将变量名用括号括起来6.当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的( )。（分数：2.00）A.AutoSize 属性B.Resize 事件C.AutoRedraw 属性D.Stretch 属性7.以下程序的功能是：把父目录下顺序文件 smtext1.txt 的内容读入内存，并在文本框 Text3 中显示出来。请选择适合横线处的语句( )。Private Sub Command1_Click()D
4、im inData As StringText3.Text=“Open “/smtext1.txt“_As#1Do While_Input #1.inDataText3.Text=Text3.Text jEnd Sub（分数：2.00）A.50 10B.50 9C.57 10D.57 912.设“A=“87654321“”，则表达式 Val(Lefl(A,4)+Mid(A,4,2)的值为( )。（分数：2.00）A.876543B.876554C.8D.613.下列叙述中错误的是( )。（分数：2.00）A.一个工程中可以含有多个标准模块文件B.以.bas 为扩展名的文件是标准模块文件C.窗体
5、文件包含该窗体及其控件的属性D.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件14.下列选项中，不属于数据管理员(DB（分数：2.00）A.职责的是( )。A) 数据库维护B.数据库设计C.改善系统性能，提高系统效率D.数据类型转换15.以下叙述中正确的是( )。（分数：2.00）A.事件过程都由用户来编写B.事件过程都不是由用户编写的C.事件过程有的由用户编写，有的由系统确定D.用户可以确定事件方法过程是否由用户编写16.某人编写如下函数来判断 a 是否为素数，若是，则函数返回 True；否则返回 False。Function prime(a As Integer)As B
6、ooleanDim k As Integer,isprime As BooleanIf a2 Thenisprime=FalseElseisprime=Truek=2Do While ka/2 And isprimeIf a Modk=0 Thenisprime=FalseElsek=k+1End IfLoopEnd Ifprime=isprimeEnd Function在测试时发现有 1 个非素数也被判断为素数，这个错判的数是( )。（分数：2.00）A.0B.1C.4D.617.下列程序的功能是调用字体对话框来设置文本框中的字体，单击 Command1 按钮弹出对话框，进行相应的字体、字号
7、等的设置，然后单击“确定”按钮退出对话框，则文本框中将发生哪些变化( )。Private Sub Command1_Click()CommonDialog1.CancelError=TrueCommonDialog1.Flags=3On Error Resume NextCommonDialog1.ShowFontText1.Font.Name=CommonDialog1.FontNameText1.Font.Size=CommonDialog1.FontSizeText1.Font.Bold=CommonDialog1.FontBoldText1.Font.Italic=CommonDial
8、og1.FontItalicText1.Font.Underline=CommonDialog1.FontUnderlineText1.FontStrikethru=CommonDialog1.FontStrikethruText1.ForeColor=CommonDialog1.ColorEnd Sub（分数：2.00）A.Text1 的文字下划线发生变化B.Text1 的字体发生变化C.Text1 的字体和颜色发生变化D.程序出错18.窗体上有 1 个名称为 Text1 的文本框；1 个名称为 Thner1 的计时器控件，其 Interval 属性值为5000，Enabled 属性值是 T
9、rue。Timer1 的事件过程如下：Private Sub Timer1_Timer()Static flag As IntegerIf flag=0 Then flag=1flag=-flagIf flag=1 ThenText1.ForeColor=jEnd Sub（分数：2.00）A.50 10B.50 9C.57 10 D.57 9解析：解析 本题考查二层循环的分析。程序段中的循环结构为外循环 DoLoop While，又包括了 For型循环。外循环为直到型循环，先执行循环体，再判断条件。i 的初值为 10，内循环执行完一次后，i 值为 20，i 值为 7，此时内层循环变量 j 小于
10、 1，内循环结束；执行下一次外循环，此叫 i 初值为 27，内存循环 j 初值为 10，小于终止值，内层循环不执行；以此类推，当 i 为 57 时，循环结束。12.设“A=“87654321“”，则表达式 Val(Lefl(A,4)+Mid(A,4,2)的值为( )。（分数：2.00）A.876543B.876554 C.8D.6解析：解析 本题考查字符串函数。Mid(A，4，2)表示从字符串 A 中第 4 个字符开始取 2 个字符构成子串；Left(A,4)表示从 A 左边取 4 个字符构成子串；Val 函数表示将两个字符串连接到一起，构成一个字符串后，将其转化成数字。13.下列叙述中错误的
11、是( )。（分数：2.00）A.一个工程中可以含有多个标准模块文件B.以.bas 为扩展名的文件是标准模块文件C.窗体文件包含该窗体及其控件的属性D.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 解析：解析 本题考查工程中的文件。一个 VB 工程中包括各种类型的文件，常见的有工程文件，多个窗体文件(.frm)和多个模块文件(.bas)，窗体文件中包含窗体及控件的属性设置，窗体级变量等。资源管理器中可以同时管理多个工程文件。14.下列选项中，不属于数据管理员(DB（分数：2.00）A.职责的是( )。A) 数据库维护B.数据库设计C.改善系统性能，提高系统效率D.数据类型转换
12、 解析：解析 数据库管理员(DataBascAdministrator，DBA)是指对数据库的规划、设计、维护、监视等的人员，其主要工作如下：数据库设计。DBA 的主要任务之一是数据库设计，具体地说是进行数据模式的设计；数据库维护。DBA 必须对数据库中的数据安全性、完整性、并发控制及系统恢复、数据定期转储等进行实施与维护；改善系统性能，提高系统效率。DBA 必须随时监视数据库的运行状态，不断调整内部结构，使系统保持最佳状态与效率。15.以下叙述中正确的是( )。（分数：2.00）A.事件过程都由用户来编写B.事件过程都不是由用户编写的C.事件过程有的由用户编写，有的由系统确定D.用户可以确定
13、事件方法过程是否由用户编写 解析：解析 本题考查事件过程。一般控件都有事件过程，这些事件过程在编写程序中，可以根据问题的需要来确定是否编写该事件过程。16.某人编写如下函数来判断 a 是否为素数，若是，则函数返回 True；否则返回 False。Function prime(a As Integer)As BooleanDim k As Integer,isprime As BooleanIf a2 Thenisprime=FalseElseisprime=Truek=2Do While ka/2 And isprimeIf a Modk=0 Thenisprime=FalseElsek=k+
14、1End IfLoopEnd Ifprime=isprimeEnd Function在测试时发现有 1 个非素数也被判断为素数，这个错判的数是( )。（分数：2.00）A.0B.1C.4 D.6解析：解析 本题考查循环的运行。如果输入的数据小于 2，那么肯定不是素数，更改 isprime 的值为False。如果数据大于等于 2，当等于 2 时，isprime 为 True，同时 ka/2 不成立，a 为 2 时为素数，当a 为 4 时，k2 不成立，则误判断 4 也是素数，因此不符合素数的定义。17.下列程序的功能是调用字体对话框来设置文本框中的字体，单击 Command1 按钮弹出对话框，进
15、行相应的字体、字号等的设置，然后单击“确定”按钮退出对话框，则文本框中将发生哪些变化( )。Private Sub Command1_Click()CommonDialog1.CancelError=TrueCommonDialog1.Flags=3On Error Resume NextCommonDialog1.ShowFontText1.Font.Name=CommonDialog1.FontNameText1.Font.Size=CommonDialog1.FontSizeText1.Font.Bold=CommonDialog1.FontBoldText1.Font.Italic=C
16、ommonDialog1.FontItalicText1.Font.Underline=CommonDialog1.FontUnderlineText1.FontStrikethru=CommonDialog1.FontStrikethruText1.ForeColor=CommonDialog1.ColorEnd Sub（分数：2.00）A.Text1 的文字下划线发生变化B.Text1 的字体发生变化 C.Text1 的字体和颜色发生变化D.程序出错解析：解析 本题考查通用对话框的属性。CommonDialog1 的 Flags 属性值为 3 时，出现的字体对话框中没有删除线、下划线、颜色
17、元素，因此利用 CommonDialog1 不能改变文本框中字体颜色以及删除线和下划线，但是可更改 Text1 中的字体。18.窗体上有 1 个名称为 Text1 的文本框；1 个名称为 Thner1 的计时器控件，其 Interval 属性值为5000，Enabled 属性值是 True。Timer1 的事件过程如下：Private Sub Timer1_Timer()Static flag As IntegerIf flag=0 Then flag=1flag=-flagIf flag=1 ThenText1.ForeColor=&HFF& &HFF&为红色ElseText1.ForeCo
18、lor=&HC000$ &HC000&为绿色End IfEnd Sub以下叙述中正确的是( )。（分数：2.00）A.每次执行此事件过程时，flag 的初始值均为 0B.flag 的值只可能取 0 或 1C.程序有逻辑错误，Else 分支总也不能被执行D.程序执行后，文本框中的文字每 5 秒政变一次颜色 解析：解析 计时器控件(Timer)用来完成有规律性时间间隔执行的任务，Interval 属性用于设置计时器事件之间的间隔，以毫秒为单位。本题在每 5 秒执行一次的 Timer 事件过程中，通过静态变量 flag 值的交替变换(即-1 和 1 之间)来控制文本框中文字的颜色，值为-1 时为绿色
19、，值为 1 时为红色。除程序刚启动第一次执行 Timer 事件过程时，静态变量 flag 的初始值为 0 外，其余各次均为-1 或 1。19.以下数据结构中，属于非线性数据结构的是( )。（分数：2.00）A.栈B.线性表C.队列D.二叉树 解析：解析 二叉树属于非线性结构。栈是一种特殊的线性表，这种线性表只能在固定的一端进行插入和删除操作；队列可看作是插入在一端进行，删除在另一端进行的线性表。20.执行下面的程序段后，变量 S 的值为( )。S=5For i=2.6 To 4.9 Step 0.6S=S+1Next i（分数：2.00）A.10B.8C.9 D.7解析：解析 本题考查 VB
20、中 For 循环。VB 中循环变量可以为实数，循环变量的初值为 2.6，终值为4.9，步长 0.6。循环的次数为 Int(终值-初值)/步长)，所以进行了 4 次循环，因此最后 s 的值为 9。21.在关系中凡能惟一标识元组的最小属性集称为该表的键或码。二维表中可能有若干个键，它们称为该表的( )。（分数：2.00）A.连接码B.关系码C.外码D.候选码 解析：解析 在关系中凡能惟一标识元组的最小属性集称为该表的键或码。二维表中可能有若干个键，它们称为该表的候选码或候选键。从二维表的所有候选键中选取一个作为用户使用的键称为主键或主码。22.假定建立了一个名为 Command1 的命令按钮数组，
21、则以下说法中错误的是( )。（分数：2.00）A.数组中每个命令按钮的名称(名称属性)均为 Command1B.数组中每个命令按钮的标题(Caption 属性)都一样 C.数组中所有命令按钮可以使用同一个事件过程D.用名称 Command1(下标)可以访问数组中的每个命令按钮解析：解析 本题考查控件数组。命令按钮的控件数组中每个控件的名字相同，标题属性可以设置为不同值，可以使用索引来区别每一个控件，这些控件共享一个事件。23.假定窗体上有一个标签，名为 Label1，为了使该标签透明并且没有边框，则正确的属性设置为( )。（分数：2.00）A.Label1.BackStyle=0Label1.
22、BorderStvle=0 B.Label1.BackStyle=1Label1.BorderStyle=1C.Label1.BackStyle=TrueLabel1.BorderStyle=TrueD.Label1.BackStyle=FalseLabel1.BorderStyle=False解析：解析 本题考查标签的属性。标签的 BackStyle 属性表示标签的背景是否透明(1 表示不透明，0表示透明)。标签的 BorderStyle 属性表示是否含有边框(1 表示有边框，0 表示没有边框)。24.内聚性是对模块功能强度的衡量，下列选项中，内聚性较弱的是( )。（分数：2.00）A.顺序
23、内聚B.偶然内聚 C.时间内聚D.逻辑内聚解析：解析 内聚是从功能角度来衡量模块的联系，它描述的是模块内的助能联系。内聚有如下种类，它们之间的内聚度由弱到强排列：偶然内聚模块中的代码无法定义其不同功能的调用。但它使该模块能执行不同的功能，这种模块为巧合强度模块。逻辑内聚这种模块把几种相关的功能组合在一起，每次被调用时，由传送给模块的参数来确定该模块应完成哪一种功能。时间内聚这种模块顺序完成一类相关功能，比如初始化模块，它顺序地为变量置初值。过程内聚如果一个模块内的处理元素是相关的，而且必须以特定次序执行，则称为过程内聚。通信内聚这种模块除了其有过程内聚的特点外，还有另外一种关系，即它的所有功能
24、都通过使用公用数据而发生关系。顺序内聚如果一个模块内各个处理元素和同一个功能密切相关，而且这些处理必须顺序执行，处理元素的输出数据作为下一个处理元素的输入数据，则称为顺序内聚。功能内聚如果一个模块包括为完成某一具体任务所必需的所有成分，或者说模块中所有成分结合起来是为了完成一个具体的任务，此模块则为功能内聚模块。25.有如下函数过程：Function f1(x As Integer)As LongDim s As LongDim i As Integers=0For i=1 To xs=s+iNext if1=sEnd Function在窗体上添加一个命令按钮，名为 Command1，并编写事
25、件过程调用该函数，则输出结果为( )。Private Sub Command1_Click()Dim i As IntegerDim sum As LongFor i=1 To 5sum=sum+f1(i)Next iPrint sumEnd Sub（分数：2.00）A.25B.35 C.45D.55解析：解析 本题考查函数过程的功能分析。函数 f1 的主要功能是计算 1 到 x 的累加和，也就是计算1+2+x。在命令按钮的单击事件中循环程序调用了 5 次 f1 函数，sum 计算为：1+1+2+1+2+3+1+2+3+4+1+2+3+4+5，因此结果为 35。26.数据结构中，与所使用的计算
26、机无关的是数据的( )。（分数：2.00）A.存储结构B.物理结构C.逻辑结构 D.线性结构解析：解析 数据的逻辑结构反映的是数据元素之间的逻辑关系，与使用的计算机无关。27.下面( )不是 VB 的文件系统控件。（分数：2.00）A.DriveListBox 控件B.DirListBox 控件C.FileListBox 控件D.ListBox 控件 解析：解析 本题考查常见的文件系统控件。常见的文件系统控件有目录列表框、文件列表框和驱动器列表框。ListBox 不是文件系统控件。28.数据流图用于抽象描述一个软件的逻辑模型，数据流图由些特定的图符构成。下列图符名标识的图符不属于数据流图合法图
27、符的是( )。（分数：2.00）A.控制流 B.加工C.存储文件D.源和潭解析：解析 数据流图用于抽象描述一个软件的逻辑模型，它由一些特定的图符构成，包括 4 个方面，即加工、数据流、存储文件、源和潭。29.在窗体上有两个文本框：Text1 和 Text2，然后编写如下事件过程：Private Sub Form_Load()ShowText1.Text=“:Text2.Text=“:Text2.SetFocusEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer)Text1.Text=Text1.Text+Ch
28、r(KeyCode-4)End Sub程序运行后，如果在 Text2 文本框中输入“ertyu”，则 Text1 文本框中的内容为( )。（分数：2.00）A.anpuqB.ANPUQ C.ERTYUD.ertyu解析：解析 本题考查键盘事件参数。在 Text2 中按下键盘上的某个按键时，KeyDown 事件将发生，其中 KeyDown 中的 KeyCode 参数是所按键的 ASCII 码值，其数据类型为整型，可以对其进行算术运算。Chr(KeyCodc-4)表示 KeyCode 码对应字符前面的第 4 个字符。注意：KoyCbde 返回的总是大写字符。30.下列程序的执行结果为( )。A=“
29、5“:B=“6“A=Val(（分数：2.00）A.+Val( B.&nbC.-56D.0解析：解析 本题考查转换函数的操作。Val 函数可以把数字字符串转化成数字，然后进行算术运算。因此最后 A 的值为 11，而 B 的值为 56，因此输出 A-B 的值为-45。31.以下能正确定义数据类型 SystemInfo 的代码是( )。（分数：2.00）A.Type SystemInfoDiskDrives As String*10Memory As LongEnd Type B.Type SystemInfoDiskDrives As String*10Memory As LongEnd Syst
30、emInfoC.Type SystemInfoDiskDrives String*10Memory LongEnd Type SystemInfoD.Typedef SystemInfoDiskDnves String*10MemoryLongEnd Type解析：解析 本题考查自定义类型的定义。自定义类型要求以 Type 开始，以 End Type 结束，在两者之间包含有各个成员的说明，要求字符串定义为定长字符串，同时每个成员的类型以“As”引出。32.检查软件产品是否符合需求定义的过程称为( )。（分数：2.00）A.确认测试 B.需求测试C.验证测试D.路径测试解析：解析 确认测试的任务
31、是验证软件的功能和性能，以及其他特性是否满足需求规格说明中确定的各种需求。33.对关系 S 和关系 R 进行集合运算，结果中既包含关系 S 中的所有元组也包含关系 R 中的所有元组，这样的集合运算称为( )。（分数：2.00）A.并运算 B.交运算C.差运算D.除运算解析：解析 关系的并运算是指，由结构相同的两个关系合并，形成一个新的关系，其中包含两个关系中的所有元组。34.以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是( )。（分数：2.00）A.LeftB.Mid C.StringD.Instr解析：解析 本题考查字符串函数。函数 Left 表示从字符串的
32、左边取连续个字符构成子串。Mid 可以从字符串的任意位置取出子串。String 则返回字符串的第一个字符构成的，含有相同个数字符的子串。Instr 为字符串匹配函数。35.待排序的关键码序列为(15，20，9，30，67，65，45，90)，要按关键码值递增的顺序排序，采取简单选择排序法，第一趟排序后关键码 15 被放到第( )个位置。（分数：2.00）A.2 B.3C.4D.5解析：解析 选择排序的基本思想是扫描整个线性表，从中选出最小的元素，将它交换到表的最前面，然后对剩下的子表采用同样的方法，直到子表为空。所以第一趟排序后，将选出最小的元素 9 放在第一个位置，元素 15 则放在第二个位
33、置。二、填空题(总题数：9，分数：30.00)36.算法的复杂度主要包括 1 复杂度和空间复杂度。（分数：2.00）填空项 1:_ （正确答案：时间）解析：解析 算法的复杂度主要包括时间复杂度和空间复杂度。算法的时间复杂度，是指执行算法所需要的计算工作量。算法的空间复杂度是指执行这个算法所需要的内存空间。37.对数据元素之间的逻辑关系的描述是 1。（分数：2.00）填空项 1:_ （正确答案：数据的逻辑结构）解析：解析 数据的逻辑结构是对数据元素之间的逻辑关系的描述，它可以用一个数据元素的集合和定义在此集台中的若干关系来表示。38.栈中允许进行插入和删除的一端叫做 1。（分数：2.00）填空项
34、 1:_ （正确答案：栈顶）解析：解析 栈实际也是线性表，只不过是一种特殊的线性表。栈是只能在表的一端进行插入和删除运算的线性表，通常称插入、删除的这一端为栈顶，另一端为栈底。当表中没有元素时称为空栈。栈顶元素总是后被插入的元素，从而也是最先被删除的元素；栈底元素总是最先被插入的元素，从而也是最后才能被删除的元素。39.若按功能划分，软件测试的方法通常分为白盒测试方法和 1 测试方法。（分数：2.00）填空项 1:_ （正确答案：黑盒）解析：解析 软件测试的方法和技术是多种多样的，对于软件测试方法和技术，可以从不同角度加以分类。若从是否需要执行被测试软件的角度划分，可分为静态测试和动态测试，若
35、从功能划分，可以分为白盒测试和黑盒测试。40.在面向对象方法中，信息隐蔽是通过对象的 1 性来实现的。（分数：2.00）填空项 1:_ （正确答案：封装）解析：解析 封装性是指从外面看只能看到对象的外部特征，而不知道也无需知道数据的具体结构以及实现操作的算法。所以在面向对象方法中，信息隐蔽是通过对象的封装性来实现的。41.窗体上已建立多个控件，如 Text1、Command1、Label1，若要使程序开始运行时焦点定位在 Command1控件上，则应将 Command1 控件的 1 属性值设置为 2。（分数：4.00）填空项 1:_ （正确答案：Tablndex）填空项 1:_ （正确答案：0
36、）解析：解析 本题考查控件的焦点。设置控件的 TabIndex 属性可以改变控件焦点的移动顺序，在窗体上绘制控件的时候，TabIndex 属性为 0 的控件，在程序开始运行时获得焦点。42.输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDE”变换成“EDCBA”。请把程序补充完整。Private Sub Command1_ClickDim a$,i%,c$,d$a=InputBox$(“输入仟意字符串”)n=Lea(A) For i=1 to_c=Mid(a,i,1)Mid(a,i,1)=_=cNext iPrint aEnd Sub（分数：6.00）填空项 1:_ （正确答
37、案：n/2；Mid(a,n-i+1,1)；Mid(a,n-i+1,1)）解析：解析 本题考查字符串函数的应用。过程的功能是实现字符串的逆序，基本思路是字符串的第一个字符和最后一个字符交换，第二个字符和倒数第二个字符交换这样交换了字符串长度的一半，即可实现字符串逆序。这里利用字符串函数 Mid(a,i,1)和 Mid(a,n-i+1,1)可以分别取出字符串中的前而的字符和其相对应要交换的后面的字符。43.在窗体上画 1 个名称为 Commund1 的命令按钮和 2 个名称分别为 Text1、Text2 的文本框，如图所示，然后编写如下程序：（分数：4.00）填空项 1:_ （正确答案：-5；5）
38、解析：解析 本题考查参数传递。在 VB 的过程调用中，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用 ByVal 声明，说明此参数为传值调用；若用 ByRef 声明，说明此参数为传址调用；没有说叫传递类型，则默认为传址传递(即形参的结果会传递给实参)。函数 fun 中第一个参数默认为地址传递，而第二个为传值。因此第一次调用结束以后，函数中 a 的值变为-5，而 b 的值不变，Text1 中显示-5，第二次调用前 a 的值为-5，b 为 5，调用以后，Text2 中显示 5。44.窗体上有一个名称为 List1 的列表框，一个名称为 Picture1 的图片框。Form_Load
39、 事件过程的作用是，把 Data1.txt 文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中，如图所示。以下是类型定义及程序，请填空。（分数：6.00）填空项 1:_ （正确答案：Len；p(i).gName；picFile）解析：解析 根据数据的存取方式和结构不同，文件可分为顺序文件和随机文件。顺序文件中的记录是一个接一个地顺序存放，各个记录的长度可以不相同。随机文件又称直接存取文件，文件中的记录长度是固定的。打开文件的基本格式为：Open FileName For Mode As #FileNumber。打开方式(Mode)主要有Output、Append、Input、Random 等几种。其中，打开随机文件要以 Random 方式打开，并且指定记录长度 Len，因此，按照格式第一空处应填 Len。在列表框的双击事件中，首先遍历所有的列表框，依次判断列表项的值是否等于 p(i)中的 gName 域的值，若相等的话，则取出图片路径(p(i)中 picFile 域的值)，使用 LoadPicture 函数为图片框加载图片。
