Dim b as books Open"c: \Person. txt"For Output As #1 B Name= Input Box("输入姓名") B. TelNum= nput Box("输入电话号码 Write #l.B. Name. B. TelNum B) Private Sub Command1 Click( Dim b as books Open"c: Person. txt "For Input As# 1 B Name= Input Box("输入姓名") B. TelNum= nput Box("输入电话号码 PrinttlB Name. B telN End sub C) Private Sub Commandl Click() Dim b as books Name= InputBox("输入姓名") Tenom= Input Box("输入电话号码") Write #lB End Sub D) Private Sub Commandl Click( Dim b as book Open"c: \Person. txt"For Input As #1 Name= Input Box("输入姓名") TelNum= nput Box("输入电话号码") Print #lB Name B. TelNum Close #1 End Sub (35)目录列表框的Path属性的作用是() A)显示当前驱动器或指定驱动器上的某目录下的文件名 B)显示当前驱动器或指定驱动器上的目录结构 C)显示根目录下的文件名 D)显示指定路径下的文件 二、填空题(每空2分,共30分) (1)数据管理技术发展过程经过人工管理、文件系统和数据库系统3个阶段,其中数据独 立性最高的阶段是【1】 (2)算法复杂度主要包括时间复杂度和【2】复杂度 (3)在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块 (桩模块)。其中_【3】的作用是将测试数据传送给被测试的模块,并显示被测试 模块所产生的结果。 二级 Visual basic语言程序设计试卷第8页(共11页)二级 Visual Basic 语言程序设计试卷 第 8 页（共 11 页） Dim B As Books Open"c:\Person.txt"For Output As #1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Write #1,B.Name,B.TelNum Close #1 End Sub B）Private Sub Command1_Click( ) Dim B As Books Open "c:\Person.txt"For Input As#1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Print#1,B.Name,B.TelNum Close #1 End Sub C）Private Sub Command1_Click( ) Dim B As Books Open "c:\Person.txt"For Output As #1 Name=InputBox("输入姓名") TelNom=InputBox("输入电话号码") Write #1,B Close #1 End Sub D）Private Sub Command1_Click( ) Dim B As Book Open "c:\Person.txt"For Input As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1,B.Name,B.TelNum Close #1 End Sub （35）目录列表框的 Path 属性的作用是（ ）。 A）显示当前驱动器或指定驱动器上的某目录下的文件名 B）显示当前驱动器或指定驱动器上的目录结构 C）显示根目录下的文件名 D）显示指定路径下的文件 二、填空题（每空 2 分，共 30 分） （1）数据管理技术发展过程经过人工管理、文件系统和数据库系统 3 个阶段，其中数据独 立性最高的阶段是 【1】 。 （2）算法复杂度主要包括时间复杂度和 【2】 复杂度。 （3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块 （桩模块）。其中 【3】 的作用是将测试数据传送给被测试的模块，并显示被测试 模块所产生的结果