VB文件数据读取试题及答案

VB文件数据读取试题及答案考试时间：______分钟总分：______分姓名：______选择题1.下列关于VB文件类型的说法，正确的是（）。A.顺序文件只能以字符形式存储数据B.随机文件每条记录的长度必须相同C.二进制文件的数据读写必须按记录进行D.顺序文件适合存储结构化数据2.使用Open语句打开"D:\data.txt"文件用于追加数据，正确的语句是（）。A.Open"D:\data.txt"ForOutputAs#1B.Open"D:\data.txt"ForInputAs#1C.Open"D:\data.txt"ForAppendAs#1D.Open"D:\data.txt"ForRandomAs#13.下列函数中，用于判断文件指针是否到达文件末尾的是（）。A.LOFB.FileLenC.EOFD.FreeFile4.随机文件的访问模式是（）。A.InputB.OutputC.AppendD.Random5.顺序文件的读写语句是（）。A.Get和PutB.Input和PrintC.LineInput和WriteD.以上都是6.二进制文件以什么为单位进行读写？（）A.字符B.记录C.字节D.行7.下列关于文件号的说法，正确的是（）。A.文件号必须是1-511之间的整数B.文件号可以重复使用C.FreeFile函数返回的文件号是固定的D.文件号可以省略8.使用Input#语句读取数据时，数据之间用什么分隔？（）A.逗号B.空格C.换行符D.分号9.下列语句中，用于关闭文件的是（）。A.OpenB.CloseC.EndD.Exit10.下列文件访问模式中，会覆盖原文件内容的是（）。A.InputB.OutputC.AppendD.Random填空题1.使用Open语句打开文件时，获取空闲文件号的函数是______。2.读取文本文件中的一行数据，应使用的语句是______。3.随机文件中，每条记录的长度由______参数指定。4.使用Print#语句向文件写入数据时，数据之间用______分隔。5.判断文件是否为空的函数是______。6.使用LineInput#语句读取数据时，读取的是______。7.打开文件"test.txt"用于写入，正确的Open语句是______。8.使用Split函数分割字符串时，分隔符由______参数指定。9.计算文件大小的函数是______。10.使用Write#语句写入数据时，数据会自动用______括起来。程序填空题1.以下程序功能是读取文本文件"score.txt"中的学生成绩（每行一个成绩），计算平均分并输出。请补充完整代码。```vbPrivateSubCommand1_Click()DimscoreAsSingle,totalAsSingle,countAsIntegerDimfilenumberAsIntegerfilenumber=FreeFile()Open"score.txt"ForInputAs#filenumbertotal=0:count=0DoWhile______(1)Input#filenumber,scoretotal=total+scorecount=count+1LoopIfcount>0ThenPrint"平均分："&total/countElsePrint"文件无数据"EndIf______(2)EndSub```2.以下程序功能是读取随机文件"student.dat"中的学生记录，并输出姓名。请补充完整代码。```vbPrivateSubCommand1_Click()DimstudentAsStudentDimfilenumberAsIntegerfilenumber=FreeFile()Open"student.dat"ForRandomAs#filenumberLen=Len(student)DoWhile______(1)______(2)PrintLoopClose#filenumberEndSub```3.以下程序功能是将文本文件"input.txt"的内容复制到"output.txt"。请补充完整代码。```vbPrivateSubCommand1_Click()DimfilenumberInAsInteger,filenumberOutAsIntegerDimstrAsStringfilenumberIn=FreeFile()Open"input.txt"ForInputAs#filenumberInfilenumberOut=FreeFile()Open"output.txt"For______(1)As#filenumberOutDoWhileNotEOF(filenumberIn)______(2)Print#filenumberOut,strLoopClose#filenumberInClose#filenumberOutEndSub```4.以下程序功能是统计文本文件"numbers.txt"中偶数的个数。请补充完整代码。```vbPrivateSubCommand1_Click()DimnumAsInteger,countAsIntegerDimfilenumberAsIntegerfilenumber=FreeFile()Open"numbers.txt"ForInputAs#filenumbercount=0DoWhileNotEOF(filenumber)______(1)IfnumMod2=0Then______(2)EndIfLoopPrint"偶数个数："&countClose#filenumberEndSub```程序阅读题1.阅读以下程序，写出程序运行后，文本文件"result.txt"中的内容。```vbPrivateSubCommand1_Click()DimfilenumberAsIntegerfilenumber=FreeFile()Open"result.txt"ForOutputAs#filenumberPrint#filenumber,"VB"Print#filenumber,"文件操作"Close#filenumberOpen"result.txt"ForAppendAs#filenumberPrint#filenumber,"测试"Close#filenumberEndSub```2.阅读以下程序，写出程序运行后，文本文件"output.txt"中的内容。```vbPrivateSubCommand1_Click()DimfilenumberAsInteger,iAsIntegerfilenumber=FreeFile()Open"output.txt"ForOutputAs#filenumberFori=1To3Print#filenumber,i*10NextiClose#filenumberEndSub```编程题编写程序，实现以下功能：（1）从文本文件"student.txt"中读取学生信息，每行格式为“姓名,数学成绩,英语成绩”（例如“张三,85,90”）；（2）计算每个学生的总分和平均分；（3）将结果写入新文件"result.txt"，格式为“姓名数学成绩英语成绩总分平均分”。要求：文件操作需包含错误处理（如文件不存在时提示）。试卷答案选择题1.B解析：随机文件要求每条记录长度固定，顺序文件以字符形式存储，二进制文件按字节读写，顺序文件适合非结构化数据。2.C解析：追加数据需使用Append模式，Output会覆盖原文件，Input用于读取，Random用于随机文件。3.C解析：EOF函数判断文件指针是否到达末尾；LOF返回文件大小；FileLen返回文件长度；FreeFile返回空闲文件号。4.D解析：随机文件访问模式为Random；Input用于顺序读取，Output用于顺序写入，Append用于追加。5.C解析：顺序文件常用Input（读取）和Print（写入），以及LineInput（读行）和Write（写带分隔符数据）；Get/Put用于随机/二进制文件。6.C解析：二进制文件以字节为单位读写；顺序文件以字符/行，随机文件以记录。7.A解析：文件号需为1-511整数；FreeFile返回可用文件号（非固定）；文件号不能重复使用；文件号不可省略。8.A解析：Input#语句用逗号分隔数据；LineInput读整行（含换行符）。9.B解析：Close关闭文件；Open打开文件；End结束程序；Exit退出循环/过程。10.B解析：Output模式覆盖原文件；Input用于读取，Append用于追加，Random用于随机文件（不覆盖）。填空题1.FreeFile解析：FreeFile函数返回可用文件号，用于Open语句。2.LineInput#解析：LineInput#读取文本文件一行（含换行符）；Input#读取数据项（需分隔符）。3.Len解析：随机文件打开时，Len参数指定记录长度（字节数）。4.分号（;）或逗号（,）解析：Print#语句中，分号紧凑格式，逗号分区格式分隔数据。5.EOF（但严格判断空文件需读取时立即遇到EOF）解析：EOF函数返回True表示文件结束；空文件读取时立即触发EOF。6.一行文本（含换行符）解析：LineInput#读取到换行符为止，包含换行符本身。7.Open"test.txt"ForOutputAs#文件号解析：写入文件需Output模式，文件号为1-511整数。8.第二个参数（分隔符字符串）解析：Split(expression,delimiter)中，delimiter指定分隔符。9.LOF解析：LOF函数返回打开文件的大小（字节）。10.双引号（"）解析：Write#语句自动用双引号括起字符串，数字不加引号。程序填空题1.(1)NotEOF(filenumber)(2)Close#filenumber解析：(1)循环条件：文件未结束；(2)操作完成后关闭文件。2.(1)NotEOF(filenumber)(2)Get#filenumber,,student解析：(1)循环条件：文件未结束；(2)用Get读取一条记录到变量。3.(1)Output(2)LineInput#filenumberIn,str解析：(1)输出文件需Output模式；(2)读输入文件一行到str。4.(1)Input#filenumber,num(2)count=count+1解析：(1)用Input#读取整数；(2)偶数时计数器加1。程序阅读题1."result.txt"内容：VB文件操作测试解析：第一次Output写入两行；第二次Append追加一行。2."output.txt"内容：102030解析：循环3次写入i*10，每次一行。编程题参考代码：```vbPrivateSubCommand1_Click()DimfilenumberInAsInteger,filenumberOutAsIntegerDimstrAsString,nameAsString,mathAsInteger,englishAsIntegerDimtotalAsInteger,avgAsSingleOnErrorGoToErrorHandlerfilenumberIn=FreeFile()Open"student.txt"ForInputAs#filenumberInfilenumberOut=FreeFile()Open"result.txt"ForOutputAs#filenumberOutPrint#filenumberOut,"姓名数学成绩英语成绩总分