多重窗体与数据文件 (总分154,考试时间90分钟)
一、选择题
1. 目录列表框的Path属性的作用是____。
A. 显示当前驱动器或指定驱动器上的目录结构
B. 显示当前驱动器或指定驱动器上的某目录下的文件名 C. 显示根目录下的文件名 D. 显示该路径下的文件
2. 从顺序文件中读取数据，不能使用______。
A. Get[#]语句 B. Input#语句 C. Line Input#语句 D. Input#函数
3. MDI窗体执行MDIForm1.Arrange2的作用为____。
A. 层叠所有非最小化MDI子窗体 B. 水平平铺所有非最小化MDI子窗体 C. 垂直平铺所有非最小化MDI子窗体 D. 重排最小化MDI子窗体的图标
4. 假定定义了一个记录类型，名为Rt，同时建立了一个名为Fr.txt的文件，然后执行下面的程序段后，变量n中存放的是____。 Private Sub Command1_Click() Dim Rv As Rt R1= Len(Rv)
Open\"Fr.txt\"For Random A.s #1 X= LOF(1) n =X\\RL Close #1 End Sub
A. 文件中的记录数 B. 文件字节数 C. 文件行数 D. 文件字符数
5. 返回文件大小应使用的函数为____。
A. Loc B. LOF C. EOF D. FileAttr
6. 以下叙述中错误的是____。
A. 一个工程中可以包含多个窗体文件
B. 在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C. 在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
D. 全局变量必须在标准模块中定义
7. 关于子窗体，下列说法正确的是______。
A. 窗体最大化时标题会与MDI窗体的标题组合显示于MDI窗体的标题栏上 B. MDI窗体在子窗体最大化时将隐藏 C. 窗体最小化时图标显示在系统栏上 D. 窗体可以被拖出MDI窗体
8. MDI应用程序的主窗体和子窗体分别有各自的菜单。运行该MDI应用程序并打开一个窗体后，在MDI主窗体的菜单条上显示的是____。
A. MDI主窗体上定义的菜单 B. MDI子窗体上定义的菜单
C. MDI主窗体菜单和子窗体菜单的简单组合
D. MDI主窗体菜单和子窗体菜单组合到一起，且相同的部分不重复出现 9. 以下叙述中错误的是____。
A. 一个工程中只能有一个Sub Main过程
B. 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体 C. 窗体的hide方法和Unload方法的作用完全相同
D. 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 10. 设x=10，y=20，z=30。要按如下的格式将x，y，z的值写入顺序文件中该使用语句____。
A. Print#1 x, y, z B. Print#1 x; y; z C. Write#1 x, y, z D. Write#1 x; y; z
11. 为把一个记录型变量写入文件中指定的位置，所使用语句的格式为______。
A. Get记录号，文件号，变量名 B. Get文件号，变量名，记录号
C. Put文件号，变量名，记录号 D. Put文件号，记录号，变量名 12. 可以在窗体模块的通用声明段中声明____。
A. 局部变量 B. 全局常量 C. 全局数组 D. 全局用户自定义类型 13. 下列控件可以用来显示文件的是____。
A. DirListBox B. FileListBox C. DriveListBox D. ListBox
14. 使用Open语句打开文件时需果指定参数Len的是____。
A. 打开顺序文件 B. 打开文本文件 C. 打开随机文件 D. 打开二进制数文件
15. 对随机文件数据的存取是以______为单位进行操作的。
A. 指定的一列数据项 B. 一个记录 C. 一个字符 D. 一个变量名
16. 若要求显示一个指定窗体，所用的方法是______。
A. Show B. Open C. Hide D. Load
17. 进行多窗体设计时，“窗体资源管理器”窗口是很有用的窗口。下列关于“资源管理器”窗口功能的说法中，错误的是______。
A. 在“资源管理器”窗口中可以设置某一个窗体作为“启动窗体” B. 在“资源管理器”窗口中显示与工程有关的文件和对象
C. 在“资源管理器”窗口中工程名左边方框图内标有“-”号表示该工程已经被移走
D. 在“资源管理器”窗口中双击.frm的文件名，能够打开该文件的窗体以及与之对应的属性窗口、代码窗口 18. 设有语句：
Open\"c:\\Test.Dat\"For Output As #1 则以下错误的叙述是____。
A. 该语句打开C盘根目录下一个已存在的文件Text.Dat B. 该语句在C盘根目录下建立一个名为Text.Dat的文件 C. 该语句建立的文件的文件号为1
D. 执行该语句后，就可以通过Print#语句向文件Text.Dat中写入信息
19. 下列关于顺序文件中使用Put语句、Get语句、Print语句和Write语句的说法中，错误的是____。
A. 每执行一次Put[#]语句，会在随机文件中产生一个记录
B. 每执行一次Get[#]语句，会在随机文件中读取一个记录的数据 C. 一条Print.#(或Write#)语句可以将若干个数据项写入数据文件中，但这些数据项类型必须是相同的
D. -条Print#(或Write#)语句可以将若干个数据项写入数据文件中，但这些数据项类型可以是不同的
20. 下列关于LOC函数说法正确的是____。
A. 对于随机方式打开的文件返回上一次对文件进行读出或写入的记录号 B. 对于顺序打开的文件返回上一次读出或写入的字节位置
C. 对于二进制数方式打开的文件返回当前字节位置除以128的值 D. 对于文本方式打开的文件返回当前位置
21. 删除C盘根目录所有txt文件的命令是______。
A. Kill\"*.txt\" B. Kill\"c:\\*.txt\" C. Kill\"c:\\?.txt\" D. Kill\"\\*.txt\"
22. Mdiform为MDI窗体，其中有菜单MnuTest，Form1为子窗体，也有菜单MnuTest，执行下列程序后，单击MnuTest菜单，输出结果为______。 其中Mdiform中代码如下： Private Sub MDIForm_Load () Form1.Show End Sub
Private Sub Mnutest_Click () MsgBox \"MDI\" End Sub
Form1中代码如下：
Private Sub Mnutest_Click() MsgBox\"Child\" End Sub
A. 显示Child对话框 B. 显示Mdi对话框 C. 显示Child对话框后再显示Mdi对话框 D. 显示Mdi对话框后再显示Child对话框
23. 能对顺序文件进行输出的语句是______。
A. Put B. Get
C. Write D. Read
24. 要将名为MyForm的窗体显示出来，正确的使用方法是______。
A. MyForm Show B. Show.MyForm C. MyForm Load D. MyForm.Show 25. 下列说法中错误的是____。
A. Put语句可以用来修改随机文件记录的数据 B. 得到随机记录的长度用Len(变量名)函数 C. 删除随机文件的记录用Kill语句
D. 得到随机文件当前记录的记录号用Loc(文件号)bib ovt 26. 下列说法中，不属于随机文件特点的是____。
A. 可以随意读取随机文件中任一记录的数据
B. 随机文件没有只读或只写的操作方式，随机文件只要一打开，就既可读又可写 C. 随机文件的操作是以记录为单位进行的
D. 随机文件的读、写操作语句与顺序文件的读写操作语句一样 27. 下列控件没有Change事件的是____。
A. DriveListBox B. DirListBox C. FileListBox D. TextBox 28. 下列说法正确的是____。
A. 一个应用程序中只能创建一个窗体 B. 一个应用程序中只能创建一个模块
C. 一个应用程序中只能创建一个MDI窗体 D. 一个应用程序中只能创建一个MDI子窗体
29. 工程中有两个普通窗体From1和From2，其中From1中有一个按钮，启动程序后，单击From1中的按钮，输出结果为______。 Private Sub Command1_Click() Print \"A\"
Form2.Show vbModal Print\"B\" End Sub
A. From1中显示A，From2中显示B B. From1中显示A，From2中无显示 C. From1中无显示，From2中显示AB
D. From1中无显示，From2中显示B
30. 要设置工程中某一个窗体作为启动窗体，必需的操作步骤是____。
A. 打开“属性窗口”，选择作为启动窗体的窗体名称 B. 打开“代码窗口”，选择作为启动窗体的窗体名称 C. 打开“工程窗口”，选择作为启动窗体的窗体名称
D. 打开“窗体设计器”窗口，选择作为启动窗体的窗体名称 31. 层叠所有非最小化MDI子窗体的方法是______。
A. MDIForm1.Arrange 0 B. MDIForm1.Arrange 1 C. MDIForm1.Arrange 2 D. MDIForm1.Arrange 3
32. 以下叙述中正确的是____。
A. 一个记录中所包含的各个元素的数据类型必须相同 B. 随机文件中每个记录的长度是固定的
C. Open命令的作用是打开一个已经存在的文件 D. 使用Input#语句可以从随机文件中读取数据
33. 要将1，2，3，…，10这10个整数写入顺序文件Datal中，正确的程序应是____。
A. Open\"Datal\"For Input As #2 For i =1 To 10 Print #2, \"i\" Next i Close#2
B. Open\"Datal\"For Output As#2 For i =1 To 10 Print#2 \"i\" Next i Close #2
C. Open\"Datal\"For Output As #2 For i =1 To 10 Print#2, i Next i Close #2
D. Open\"Datal\"For Output As #2 For i =1 To 10 Print#1 i Next i
Close #2
34. 某程序执行后显示了一个MDI窗体和两个子窗体，其中某子窗体中有一个按钮，执行下列程序后的输出结果为______。 Private Sub Command1_Click() Print DoEvents() End Sub
A. 0 B. 1 C. 2 D. 3
35. 为了使窗体从屏幕上消失但仍在内存中，所使用的方法或语句为____。
A. Show B. Hide C. Load D. Unload
36. 使用FileListBox，如果只显示系统文件，需要设置的属性为____。
A. Path B. Pattern C. System D. FileName
二、填空题
1. 假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Fonn2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将程序补充完整。 Private Sub Command1_Click() ______Form1 Form2.______ End Sub
2. 新建一个工程时，系统自动把创建的______作为启动窗体。
3. 为了把一个窗体装入内存，所使用的语句为______；而为了清除内存中指定的窗体，所使用的语句为______。
4. 为了显示一个窗体，所使用的方法为______；而为了隐藏一个窗体，所使用的方法为______。
5. 当最大化一个子窗体时，它的标题会与MDI窗体的标题组织在一起并显示于______上。
6. 一个工程可以有______个MDI窗体，设置子窗体必须将该窗体的______属性设置为______。
7. Visual Basic应用程序由______、______和______3种模块组成。
8. 根据数据的编码方式，文件分为______和______。
9. 打开文件所使用的语句为______。在该语句中，可以设置的输入输出方式包括______、______、______、______和______，如果省略，则为______ 方式。存取类型分为______、______和______3种。
10. 在Visual Basic中，顺序文件的读操作通过______、______语句或______函数实现。随机文件的读写操作分别通过______和______语句实现。
11. 使用FileListBox，如果不显示只读文件，需要设置______属性。
12. 进行文件操作时，常需要使用______函数返回一个当前可以使用的文件号。
13. 为避免几个进程可能同时对同一文件进行存取，用______和______语句可以对文件“锁定”和“解锁”。
14. 假设某文件存储的多个用户自定义类型记录，使用Get语句将数据从文件中读出的所有记录放到某数组中。完成该程序。 定义用户自定义的数据类型： Type Record ID As Integer
Name As String * 20 End Type
Sub GetRecord()
Dim MyRecord As Record, Position
Open\"TESTFILE\"For Random As #1 Len=______ Position=3
Get #1, Position, MyRecord Close #1 End Sub
15. 下列程序使用FileListBox来实现程序启动时，列出C盘根目录下的所有“*.exe”文件，完成下列程序。
Private Sub Form_Load() File 1.______=\"c:\\\" File 1.______=\"*.exe\" File 1.Refresh End Sub
16. 本程序将顺序文件A:、MYFILE.TXT的内容一个字符一个字符地读入文本框txtTest中。请将程序补充完整。
Private Sub Form_Click() Dim InputData As String txtText.Text=\"\" ______
Do While______ ______
txtTest.Text = txtTest.Text +InputData Loop ______ End Sub
因篇幅问题不能全部显示，请点此查看更多更全内容