窗体上有一个名称为Text1的文本框，一个名称为CD1的通用对话框，一个标题为“打开文件”的命令按钮，如图所示。
命令按钮的单击事件过程如下：Private Sub Command1_Click() CD1.ShowOpen Open CD1.FileName For Input As#1 MsgBox CD1.FileName Line Input#1，s Text1.Text＝s Close#1End Sub单击命令按钮，执行以上事件过程，打开选定的文件，读取文件的内容并显示在文本框中.以下叙述中正确的是( )。
- A.程序没有错误，可以正确完成打开文件、读取文件中内容的操作
- B.执行Open命令时出错，因为没有指定文件的路径
- C.Open语句是错误的，应把语句中的For Input改为For Output
- D.Line Input命令格式错
热度🔥360
参考答案：A
解析：
【解析】第1条语句中用ShowOpen方法显示"打开"对话框后，在对话框中选中文件，单击"打开"按钮后，CD1.FileName属性就会返回打开文件的路径，所以用Open语句打开文件时，就可用CD1.FileName指定打开文件的路径，故B选项说法错误。因为第4条语句中要用Line Input从文件读取数据，故用Open语句打开文件时用Input模式打开是正确的，故C选项说法错误。Line Input命令格式为：Line Input #文件号，变量名，题中Line Input语句格式正确。故D选项错误。本题程序无错误，能实现所说功能，故A选项正确。
【解析】第1条语句中用ShowOpen方法显示"打开"对话框后，在对话框中选中文件，单击"打开"按钮后，CD1.FileName属性就会返回打开文件的路径，所以用Open语句打开文件时，就可用CD1.FileName指定打开文件的路径，故B选项说法错误。因为第4条语句中要用Line Input从文件读取数据，故用Open语句打开文件时用Input模式打开是正确的，故C选项说法错误。Line Input命令格式为：Line Input #文件号，变量名，题中Line Input语句格式正确。故D选项错误。本题程序无错误，能实现所说功能，故A选项正确。
复制题目向AI提问
命令按钮的单击事件过程如下：Private Sub Command1_Click() CD1.ShowOpen Open CD1.FileName For Input As#1 MsgBox CD1.FileName Line Input#1，s Text1.Text＝s Close#1End Sub单击命令按钮，执行以上事件过程，打开选定的文件，读取文件的内容并显示在文本框中.以下叙述中正确的是( )。
A.程序没有错误，可以正确完成打开文件、读取文件中内容的操作
B.执行Open命令时出错，因为没有指定文件的路径
C.Open语句是错误的，应把语句中的For Input改为For Output
D.Line Input命令格式错
答案：A。
解析：【解析】第1条语句中用ShowOpen方法显示"打开"对话框后，在对话框中选中文件，单击"打开"按钮后，CD1.FileName属性就会返回打开文件的路径，所以用Open语句打开文件时，就可用CD1.FileName指定打开文件的路径，故B选项说法错误。因为第4条语句中要用Line Input从文件读取数据，故用Open语句打开文件时用Input模式打开是正确的，故C选项说法错误。Line Input命令格式为：Line Input #文件号，变量名，题中Line Input语句格式正确。故D选项错误。本题程序无错误，能实现所说功能，故A选项正确。">
content_copy
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
十进制数60转换成无符号二进制整数是（ ）。
教师管理数据库有数据表"teacher"，包括"编号"、"姓名"、"性别"和"职称"四个字段。下面程序的功能是：通过窗体向"teacher"表中添加教师记录。对应"编号"、"姓名"、"性别"和"职称"的4个文本框的名称分别为：tNo、tName、tSex和tTitles。当单击窗体上的"增加"命令按钮(名称为Command1)时，首先判断编号是否重复，如果不重复，则向"teacher"表中添加教师记录；如果编号重复，则给出提示信息。
Private ADOcn As New ADODB.Connection
Private Sub Form_Load()
'打开窗口时，连接Access本地数据库
Set ADOcn＝CurrentProject.Connection
End Sub
Private Sub Command0_Click()
'追加教师记录
Dim strSQL As String
Dim ADOcmd As New ADODB.Command
Dim ADOrs As New ADODB.Recordset
Set ADOrs.ActiveConnection＝ADOcn
ADOrs.Open "Select 编号 From teacher Where 编号＝'" ＋ tNo ＋ "'"
If Not ADOrs.EOF Then
MsgBox "你输入的编号已存在，不能新增加！"
Else
ADOcmd.ActiveConnection＝ADOcn
strSQL＝"Insert Into teacher(编号，姓名，性别，职称)"
strSQL＝strSQL＋"Values('"＋tNo＋"'，'"＋tname＋"'，'"＋tsex＋"'，'"＋ttitles＋"')"
ADOcmd.CommandText＝strSQL
ADOcmd.
MsgBox "添加成功，请继续！"
End If
ADOrs.Close
Set ADOrs＝Nothing
End Sub
按照功能要求，在横线上应填写的是( )。
以下叙述中正确的是
下列关于数据字典的叙述中，哪一条是错误的？
如果某台微机用于日常办公事务，除了操作系统外，还应该安装的软件类别是（ ）。
