VB第九章自测及答案.docVIP

第9章 自测题及其参考答案 9．1 文件及其基本操作 自测题 一．单项选择题（共40分，每小题10分） 1．若以读的方式打开顺序文件“d:\file1.dat”，则正确的语句是（ ）。 a Open “d:\file1.dat” For Output As #1 b Open “d:\file1.dat” For Input As #1 c Open “d:\file1.dat” For Binary As #1 d Open “d:\file1.dat” For Random As #1 2．若使已打开的文件不能被其它用户进行写操作，则在打开文件语句中应使用（ ）参数。 a Shared b Lock Read c Lock Write d Lock Read Write 3．下列访问方式中，（ ）访问方式不能以不同的文件号打开当前未关闭的文件。 a Output b Input c Random d Binary 4．要判别顺序文件中的数据是否读完，应使用（ ）函数。 a LOF b LOC c EOF d FreeFile 二．填空题（ 共40分，每小题10分） 1．要关闭所有已打开的文件，可以使用的语句为（ ）。 2．为了获得当前还没有使用的通道号，可以使用（ ）函数。 3．若要在8号通道上建立顺序文件“c:\dir1\file2.dat”，使用的语句为（ ）。 4．假设随机文件“c:\dir1\file3.dat”的每条记录占用100个字节的存贮空间，则在5号通道上打开该随机文件使用的语句为（ ）。 三．问答题（20分） 在VB中，要对数据文件中的数据进行读写操作一般要经过哪三步？ b 2. c 3. a 4. c 二．填空题 Close FreeFile Open “c:\dir1\file2.dat” For Output As #8 Open “c:\dir1\file3.dat” For Random As #5 Len 100 三．问答题 答：（1）打开文件。 （2）使用相关语句对打开文件进行读写操作。 （3）关闭文件。 9．2 顺序存取文件 自测题 一．下面事件过程的功能是使用1 号通道建立如下名为“d:\file1.txt”的文本文件，在横线上填上适当语句。（20分） 夜 思 床前明月光，疑是地上霜。 举头望明月，低头思故乡。 Private Sub Command1_Click Dim a$, b$, c$ a$ 夜 思 b$ 床前明月光，疑是地上霜。 c$ 抬头望明月，低头思故乡。 1 Print #1, a$ Print #1, b$ Print #1, c$ 2 End Sub 二．下面事件过程的功能是在窗体上显示由第一题建立的文件“d:\file1.txt ”中的内容，在横线上填上适当内容。（20分） Private Sub Command1_Click Dim linetext As String Dim fileno As Integer fileno FreeFile Open d:\file1.txt For Input As #fileno While 1 2 Print linetext Wend Close #fileno End Sub 三．下面事件过程的功能是输入某班学生的某门课程成绩，并存放到文件“d:\file2.dat”中，在横线上填上适当内容。（20分） Private Sub Command1_Click Dim n%, i%, score! n InputBox 输入学生人数： Open d:\file2.dat 1 As #1 For i 1 To n score InputBox 输入第 Str i 个学生的成绩： 2 Next i Close #1 End Sub 四．下面事件过程的功能是从第三题所建立的文件中读取各个学生的分数，并求该班的平均成绩，在横线上填上适当内容。（20分） Private Sub command1_Click Dim n%, score!, s! Open d:\file2.dat For Input As #3 n 0: s 0 While 1 2 s s + score n n + 1 Wend Print 平均分数为：; s / n Close #3 End Sub 五．下面事件过程的功能是统计由第一题建立的文件“d:\file1.txt”的字符个数，在横线上填上适当内容。（20分） Private Sub Command1_Click Dim k!, ch As String * 1 1 k 0 Do Wh