第1题：
将考生文件夹下文本文件Test．txt中的数据导入追加到当前数据库的数据表tTmp
第2题：
设有语句：Open "d:\Test.txt" For Output As #1，以下叙述中错误的是______。
A．若d盘根目录下无Test.txt文件，则该语句创建此文件
B．用该语句建立的文件的文件号为1
C．该语句打开d盘根目录下一个已存在的文件Test.txt，之后就可以从文件中读取信息
D．执行该语句后，就可以通过Print#语句向文件Test.txt中写入信息
第3题：
若磁盘上已存在某个文本文件，其全路径文件名为 d:\ncre\test.txt ，下列语句中不 能打开该文件的是
A ． ifstream file("d:\ncre\test.txt") ；
B ． ifstream file("d:\ncre\test.txt");
C ． ifstream file; file.open("d:\ncre\test.txt");
D ． ifstream* pFile=new ifstream("d:\ncre\test.txt");
第4题：
公司要为每个员工在服务器上分配一个不同的FTP访问目录，且每个用户只能访问自己目录中的内容，需要进行以下操作：(6)和(7)。(6)A．为每个员工分别创建一个Windows用户 B．在“内部FTP站点”中为每个员工分别创建一个用户 C．为每个员工分别设置一个用户名和密码(7)A．在主目录下为每个用户创建一个与用户名相同的子目录
B．在主目录下的Local User子目录中为每个用户创建一个与用户名相同的子目录
C．在主目录下的Local User子目录中为每个用户创建一个子目录，并在FTP中设置为用户可访问
D．在主目录下为每个用户创建一个与用户名相同的虚拟目录
第5题：
有如下程序： Sub Filelnfo(file1) Dim f1,{f,s Set f1＝CreateObject("Scripting.FileSystemObject") Set f＝f1.GetFile(file1) s＝f.DateCreated MsgBox s End Sub 这个子程序的作用是
A．创建一个新文件file1
B．在消息对话框中显示文件file1的内容
C．在消息对话框中显示文件的所有信息
D．在消息对话框中显示文件的创建日期
第6题：
（ 34 ）设有语句： Open "d:\Test.txt" For Output As #1 ，以下叙述中错误的是
A ）若 d 盘根目录下无 Test.txt 文件，则该语句创建此文件
B ）用该语句建立的文件的文件号为 1
C ）该语句打开 d 盘根目录下一个已存在的文件 Test.txt ，之后就可以从文件中读取信息
D ）执行该语句后，就可以通过 Print # 语句向文件 Test.txt 中写入信息
第7题：
利用"资源管理器"，在C盘根文件夹下创建名为"广告.txt"的空白文本文件。
第8题：
将考生文件夹下文本文件Test．txt中的数据导入追加到当前数据库的“员工表，，相应字段中。
第9题：
阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。
【说明】
某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这
些数据之和，其运行窗口如下。
用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名，再单击“累计”按钮，就
能在“总计”文本框中看到该文本文件中的数据之和。
在开发过程中，设驱动器列表框名为Drivel，目录列表框名为Dirl，文件列表框名为Filel，存放数据的文本文件名为D：\test\vb7\datA
．txt，“累计”按钮名为sum，“总计”文本框(TextBox)名为textl。
【Visual Basic代码】
Private Sub Drivel_Change()
Dirl．Path=(1) '户选择的驱动器反映到目录列表框中
End Sub
Private Sub Dirl_Change()
Filel．Path=(2) '用户选择的文件夹改变文件列表框内容
End Sub
Private Sub sum_Click()
Dim (3) As New FileSystemOject, (4) As TextStxeam
'创建自己的文件系统对象，说明自己的文本流对象
If Right (Dirl．Path，1)="\"Then
SetmyTextFile=fso．OpenTextFile (Dirl．Path+Filel．FileNamc)
Else
SetmyTextFile=fso．OpenTextFile(Dirl．Path+”\’+Filel．FileName)
End“
S=0
Do
d=Val (myTextFilE．ReadRow)
S=S+d
Loop While (5)
Textl．Text=Str$(S)
End Sub
第10题：
阅读以下说明Visual Basic代码，回答问题1～2，将解答填入对应的栏内。
[说明]
本程序实现的功能是判断指定的文本文件中是否包含指定的字符串，并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示，用户只要通过驱动器列表框、目录列表框选定文件夹，文件列表框会自动列出该文件夹下所有文本文件名称，选中其中某个文件，再输入目标字符串并且单击“查找”按钮，就能看到查找的结果。
在开发过程中，驱动器列表框名为Drive1，目录列表框名为Dirl，文件列表框名为File1，目标字符串输入框名为Text1，“查找”按钮名为Command1。
[Visual Basic 代码]
Private Sub Drivel_Change()
Dirl. Path=(1) '更新目录列表框的路径
End Sub
Private Sub Dirl_Change( )
(2)= Dirl. Path '更新文件列表框的路径 End Sub
Private Sub Commandl_Click( )
Dim fso, a As Object
Dim i, j As Integer
If (3) = "" Then '判断是否已经选中某个文件
MsgBox "请选择一个文件文件!"
(4) '退出事件过程
End If
'创建文件系统对象以及文本流对象
Set fso = CreateOhjecl( "Scripting. FileSystemOhject" )
Set a = fso. OpenTextFile( Dirl. Path & "/" &(3))
i=1
Do While (5)＜＞ True '逐行读取文件，直至文件末尾
strLine = a. ReadLine
j = InStr(1,(6))'返回目标字符串在文件这一行中的位置
If j > 0 Then '如果目标字符串在这一行出现，则返回其位置
MsgBox "字符串第一次出现的位置是" & "(" & i & "," &j & "),,"
(4) '退出事件过程
End If
i:i+l
Loop
MsgBox "字符串在文件中不出现，"
End Sub