VB面向对象程序设计（山东联盟）章节测试课后答案2024春

第九章测试

1.设有如下程序代码：Private Sub Command1_Click()  Dim Sname As String, SNo As String, Score As Single  Open "D:Score.txt" __________ As #1  SNo = InputBox("输入学号：")  Sname = InputBox("输入姓名：")  Score = Val(InputBox("输入成绩："))  Print #1, SNo, Sname, Score  Close #1End Sub以上程序的功能是，向文件D:Score.txt中写入一名同学的学号、姓名和成绩，当文件不存在时，则新建该文件；当文件存在时，则覆盖原文件的内容。在横线处应填入的内容是________。
A:For OverWrite B:For Random C:For Input D:For Output
答案:D
2.Visual Basic的窗体文件（.frm文件）是一个文本文件，它________。
A:不能作为Visual Basic的数据文件来访问 B:可以当作随机文件读取 C:可以当作顺序文件读取 D:既可当作顺序文件读取也可当作随机文件读取 3.在一个有若干个整数的顺序文件中查找一个数（这个数从文本框中输入），找到后在标签Label1中显示该数是文件中第几个数；如果没找到，则显示文件中没有该数的信息Private Sub Command1_Click()    Dim x As Integer, n As Integer    a = Val(Text1.Text)    Open "file1.txt" For Input As #1    Do While Not EOF(1)        Input  __________________         n = n + 1        If x = a Then            Label1.Caption = a & "是文件中第" & n & "个数"            Close #1            Exit Sub        End If    Loop    Close #1    Label1.Caption = "文件中没有" & aEnd Sub要使上面的程序代码实现上述功能，在横线处应填写的是________。
A:1, a B:1, n C:#1, a D:#1, x 4.下列关于随机文件的描述中，错误的是________。
A:只能随机存取 B:数据存取灵活方便，容易修改 C:每条记录的长度必须相同 D:每条记录都有一个记录号 5.在窗体Form1上画一个名称为Command1的命令按钮，编写如下程序代码：Private Type stu  sn As String * 20  class As String * 20End TypePrivate Sub Command1_Click()  Dim s As stu  Open "c:allstu.dat" For Random As #1 Len = Len(s)  s.sn = "John"  s.class = "Computer 2013"  Put #1, , s  Close #1End Sub则以下叙述中正确的是________。
A:文件c:allstu.dat中的每条记录是等长的 B:定义记录类型stu的Type语句可以移到事件过程Command1_Click中 C:语句'Put #1, , s'中没有指明记录号，因此系统总是把记录写到文件的头部 D:如果文件c:allstu.dat不存在，则Open语句执行中出现'文件未找到'的错误 6.Print #语句的作用是________。
A:向窗体上输出数据 B:从顺序文件中读入数据 C:向随机文件中写数据 D:向顺序文件中写数据 7.以下关于文件的叙述中，错误的是________。
A:读取顺序文件的记录时，只能从头至尾逐记录进行 B:顺序文件中各记录的长度是固定的 C:随机文件一般占用空间比较小 D:顺序文件有多种打开文件的方式 8.以下不属于Visual Basic数据文件的是________。
A:随机文件 B:顺序文件 C:二进制文件 D:数据库文件 9.下列关于顺序文件的描述中，正确的是________。
A:不能像随机文件一样灵活地存取数据 B:文件的组织与数据写入的顺序无关 C:主要的优点是占空间少，且容易实现记录的增减操作 D:每条记录的长度是固定的 10.下列关于数据文件的描述中，错误的是________。
A:VB应用程序在读写数据文件之前，必须用Open语句打开该文件 B:VB应用程序不能把一个二维表格中的数据存入文件 C:VB数据文件不包括VB的窗体文件 D:VB应用程序可以用随机方式读写数据文件 11.下面关于文件叙述中错误的是________。
A:随机文件每个记录的长度是固定的 B:顺序文件的记录是顺序存放的，可以按记录号直接访问某个记录 C:不论是顺序文件还是随机文件，都是数据文件 D:VB数据文件需要先打开，再进行处理 12.以下关于文件的叙述中，错误的是________。
A:EOF函数用来测试是否到达文件尾 B:顺序文件中的记录是一个接一个地顺序存放 C:文件被打开后，自动生成一个文件指针 D:随机文件中记录的长度是随机的 13.以下关于文件的叙述中，正确的是________。
A:随机文件记录中的各个字段具有相同的长度 B:随机文件的记录是定长的 C:用Append方式打开的文件，既可以进行读操作，也可以进行写操作 D:随机文件通常比顺序文件占用的空间小 14.关于随机文件，以下叙述中错误的是________。
A:随机文件中，每个记录的长度相等 B:随机文件记录中，每个字段的长度是固定的 C:随机文件的每个记录都有一个记录号 D:使用随机文件能节约空间 15.在Open语句中可以用Output和Append两种方式打开顺序文件，其主要区别是________。
A:Output总是从文件的第一个记录开始写，而Append在文件最后一个记录后面添加数据 B:Output在文件最后一个记录后面添加数据，而Append总是从文件的第一个记录开始写 C:Output和Append都只能从文件的第一个记录开始写数据 D:Output和Append都可以在文件的最后一个记录后面添加数据 16.窗体上有一个名称为Command1的命令按钮。要求编写程序，把文件f1.txt的内容写到文件f2.txt中，然后将f1.txt删除。命令按钮的单击事件过程如下：Private Sub Command1_Click()    Open "c:f1.txt" For Input As #1    Open "c:f2.txt" For Output As #2    Do While Not EOF(2)        Line Input #1, str1        Print #2, str1    LoopCloseKill "c:f1.txt"End Sub该程序运行时发生错误，应该进行的修改是________ 。
A:Line Input应改为Get B:Close语句改为Close All C:Not EOF(2)应该改为Not EOF(1) D:打开f1.txt应该使用Output 方式，打开f2.txt 应该使用Input 方式 17.设在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books　　Name As String * 10　　TelNum As String * 20End Type在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是________。
A:Private Sub Command1_Click()Open 'Person.txt' For Input As #1Name＝InputBox('输入姓名')TelNum＝InputBox('输入电话号码')Print #1， Name， TelNumClose #1End Sub B:Private Sub Command1_Click()Dim B As BooksOpen 'Person.txt' For Input As #1B.Name＝InputBox('输入姓名')B.TelNum＝InputBox('输入电话号码')Print #1， B.Name， B.TelNumClose #1End Sub C:Private Sub Command1_Click()Dim B As BooksOpen 'Person.txt' For Output As #1B.Name＝InputBox('输入姓名')B.TelNum＝InputBox('输入电话号码')Write #1， B.Name， B.TelNumClose #1End Sub D:Private Sub Command1_Click()Dim B As BooksOpen 'Person.txt' For Output As #1B.Name＝InputBox('输入姓名')B.TelNum＝InputBox('输入电话号码')Write #1， BClose #1End Sub 18.窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据：Private Sub Command1_Click()　　Dim s1 As String， s2 As String　　Open "c：d4.dat" For Append As #3　　Line Input #3， s1　　Line Input #3， s2　　Text1.Text＝s1＋s2　　Close End Sub该程序运行时有错误，应该进行的修改是________。
A:将Close语句改为Close #3 B:将Open语句中的For Append改为For Input C:将Line Input改为Line D:将两条Line Input语句合并为Line Input #3， s1，s2 19.窗体上有一个名称为Command1的命令按钮。其单击事件过程如下：Private Sub Command1_Click()    Open "c:f1.txt" For Input As #1    Open "c:f2.txt" For Output As #2    Do While Not EOF(1)        Line Input #1, str1        Print #2, str1    Loop    CloseEnd Sub以下关于上述程序的叙述中，错误的是________。
A:f1.txt和f2.txt均是顺序文件 B:程序的功能是将f2.txt文件的内容复制到f1.txt中 C:EOF函数可以判断是否已到文件的末尾 D:Close能够把打开的两个文件都关闭 20.为了保存数据，需打开顺序文件"E:UserData.txt"，以下正确的命令是________。
A:Open 'E:UserData.txt' For Output As #2 B:Open E:UserData.txt For Output As #1 C:Open E:UserData.txt For Input As #1 D:Open 'E:UserData.txt' For Input As #2 21.用Open语句打开文件时，如果省略"For 方式"，则该文件的存取方式是________。
A:随机存取方式 B:顺序存取方式 C:二进制存取方式 D:不确定 22.如果希望向一个顺序文件写入数据，但又要保留文件中的原有内容，应采取的文件打开方式是________。
A:Random B:Append C:Input D:Output 23.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()  Dim s1 As String, s2 As String  Open "D:data.txt" For Input As #1  Seek #1, 5  s1 = Input$(2, #1)  s2 = Input$(3, #1)  Print Seek(1)  Close #1End Sub假设有磁盘文件D:data.txt，且文件足够长，当程序运行时，单击Command1，在窗体上输出的结果是________。
A:10 B:9 C:11 D:5 24.某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中：Private Sub Command1_Click()　　Open "out.txt" For Output As #2　　Print "Text1"　　Close #2End Sub调试时发现没有达到目的，为实现上述目的，应做的修改是________。
A:把Print 'Text1' 改为Print #2， Text1 B:把所有 #2 改为 #1 C:把Print 'Text1' 改为 Print Text1 D:把Print 'Text1' 改为Write 'Text1' 25.某人编写了向随机文件中写一条记录的程序，代码如下：Type RType　　Name As String * 10　　Tel  As String * 20End TypePrivate Sub Command1_Click()　　Dim p As RType　　p.Name＝InputBox("姓名")　　p.Tel＝InputBox("电话号")　　Open "Books.dat" For Random As #1　　Put #1， ， p　　Close #1End Sub该程序运行时有错误，修改的方法是________。
A:在类型定义'Type RType'之前加上'Private' B:Put语句应该写为Put #1，p.Name ，p.Tel C:Dim p As RType必须置于窗体模块的声明部分 D:应把Open语句中的For Random 改为 For Output 26.有如下过程：Sub proc()    Dim ch As String    Open "file1.txt" For Input As #1    Open "file1_bak.txt" For Output As #2    Do While Not EOF(1)        ch = Input$(1, #1)        Print #2, ch;    Loop    Close #1, #2End Sub这一过程的功能是________。
A:把文件file1_bak.txt复制为file1.txt文件 B:把文件file1.txt复制为file1_bak.txt文件 C:读入文件file1_bak.txt的内容在窗体上显示 D:读入文件file1.txt的内容在窗体上显示 27.窗体的单击事件过程如下：Private Sub Form_Click()    n = FreeFile    Open "e:f1.txt" For Input As n    Do While Not EOF(n)        Line Input #n, str1        Print str1    Loop    CloseEnd Sub对于以上程序，如下叙述中错误的是________。
A:Open打开一个随机文件 B:Not EOF(n)的含义是没有到达n所对应文件的末尾 C:n = FreeFile的作用是自动获取文件号，并赋值给n D:Line Input语句从#n对应的文件中读数据，并赋值给str1 28.为了返回或设置磁盘驱动器的名称，应使用的驱动器列表框的属性是________。
A:ChDrive B:ListIndex C:List D:Drive 29.以下说法中正确的是________。
A:当在名称为Drive1的驱动器列表框中选取不同的驱动器时，系统将执行事件过程Drive1_Click B:当一个复选框被选中时，它的Value属性的值是1 C:Shape控件可以将同一个窗体上的多个单选按钮分成多个组 D:能获取列表框List1中最后一个列表项内容的表达式是List1.List(ListCount-1) 30.窗体上有一个名称为Command1的命令按钮，一个名称为List1的列表框。命令按钮的单击事件过程如下：Private Sub Command1_Click()    Open "c:f1.txt" For Input As #1    Do While Not EOF(1)        Input #1, str1        List1.AddItem str1    Loop    CloseEnd Sub对于上述程序，以下叙述中错误的是________。
A:以输入方式打开随机文件f1.txt B:Close的作用是关闭已经打开的数据文件 C:单击命令按钮后，把f1.txt中的所有内容添加到列表框中 D:运行程序后，列表框中的列表项都是f1.txt中的记录