第7章用户界面设计测试题
一、选择题
1．下列控件中，没有Caption属性的是（ ）。
A. 框架 B. 列表框 C. 复选框 D.单选按钮
2. 复选框的Value属性值为1时，表示（ ）。
A. 复选框未被选中 B.复选框被选中
C. 复选框内有灰色的沟 D.复 选框操作有错误
3. 用来设置粗体字的属性是（ ）。
A. FontItalic B. FontName C. FontBold D.FontSize
4. 假定定时器的Interval属性为1000,Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为（ ）。
Dim x as Integer
Sub Timer1_Timer()
For i=1 to 10
x=x+1
Next i
End Sub
A. 1000 B. 10000 C. 10 D.以上都不对
5. 在下列说法中，正确的是（ ）。
A. 通过适当的设置,可以在程序运行期间让定时器显示在窗体上
B. 在列表框中不能进行多项选择
C. 在列表框中能够将项目按字母顺序从大到小排列
D. 框架也有Click和DbClick事件
6. 在用菜单设计器设计菜单时,必须输入的项（ ）。
A. 快捷键 B.标题 C. 索引 D. 名称
7. 在下列关于菜单的说法中，错误的是（ ）。
A．每个菜单项都是一个控件,与其它控件一样也有自己的属性和方法
B. 除了Click事件之外,菜单项还能响应其它的,如DbClick等事件
C. 菜单项的捷径键不任意设置
D. 在程序执行时,如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择
8．在下列程序中，（ ）不论使用鼠标右键还是左键，弹出菜单中的菜单项都响应鼠标单击。
A. Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu Menu_test, 2
End Sub
B. Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) PopupMenu Menu_test, 0
End Sub
C. Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) PopupMenu Menu_test
End Sub
D. Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button=vbLeftButton) or (Button=vbRightButton) Then PopupMenu Menu_test
End Sub
9. 在下列关于通用对话框的叙述中，错误的是（ ）。
A. CommonDialog1.ShowFont 显示字体对话框
B. 在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回
C．在“打开”或“另存为”对话框中用户选择的文件名及其路径可以经FileName属性返回
D．通用对话框可用来制作和显示“帮助”对话框
10. 以下正确的语句是（ ）。
A．CommonDialog1.Filter=All Files | *.*| Picture(*.Bmp) | *.Bmp
B. CommonDialog1.Filter=”All Files” | ”*.*” | ”Picture(*.Bmp)” | “*.Bmp”
C. CommonDialog1.Filter=”All Files | *.* | Picture(*.Bmp) | *.Bmp”
D. CommonDialog1.Filter=”All Files | *.* | Picture(*.Bmp) | *.Bmp }
11．在下列关于自定义对话框的叙述中，错误的是（ ）。
A．作为对话框的窗体的BorderStyle、ControlBox、MaxButton和MInButton应分别设置为1、True、False和False
B．语句frmAbout.Show vbModeless,frmmain将frmAbout作为frmMain的无模式子窗体显示
C．台以将对话框分成两种类型：模式的和无模式的
D．语句frmAbout.Show将frmAbout作为无模式对话框显示
12．在下面关于窗体的叙述中，错误的是（ ）。
A．在窗体的整个生命周期中，Initialize事件只触发一次
B．在用Show显示窗体时，不一定发生Load事件
C．每当窗体需要重画时，肯定会触发Paint事件、
D．Resize事件是在窗体的大小有所改变时被触发
13．下面关于多重窗体的叙述中，正确的是（ ）。
A．作为启动对象的Main子过程只能放在窗体模块内
B．如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体
C．没有启动窗体，程序不能执行
D．以上都不对
14．确保窗体上所有文本框中输入的全部是数字的最佳方法是（ ）。
A．在窗体的KeyDown或KeyUp事件过程中摒弃非数字输入
B．在窗体的KeyPress事件过程中摒弃非数字输入
C．在每一个文本框的KeyDown或KeyUp事件过程中摒弃非数字输入
D．在每一个文本框的KeyPress事件过程中摒弃非数字输入
15. 当用户按下并释放一个键后会触发KerPress、KeyUp和KeyDown事件，这三个事件发生的顺序是（ ）。
A．KeyPress、KeyDown、KeyUp B．KeyDown、KeyUP、KeyPress
B．KeyDown、KeyPress、KeyUP D．没有规律
16．窗体的KeyPreview属性为True时，并且有下列程序。当焦点在窗体上的文本框时按下“a”键，文本框接收到的字符是（ ）。
Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode=KeyCode+1
End Sub
A．“a” B．“b” C．空格 D．没有接收到字符
17．在下列关于键盘事件的说法中，正确的是（ ）。
A．按下键盘上的任意一个键都会引发KeyPress事件
B．大键盘上的“1”键和数字键盘的“1”的KeyCode码相同
C．KeyDown和KeyUp的事件过程中有KeyAscii参数
D．大键盘上的“4”键的上档字符是“$”,当同时按下Shift和大键盘上的”4”键时，KeyPress事件过程中的KeyAscii参数值是“$”的ASCII值
18．如果Form1是启动窗体，并且Form1的Loag事件过程中有语句Form2.show，则程序启动后（ ）。
A．发生一个运行时错误 B．发生一个编译错误
C．在所有的初始化代码运行后From1是活动窗体
D．在所有的初始化代码运行后From2是活动窗体
19．在KeyDown或KeyUp的事件过程中，能用来检查Ctrl和F3键是否同时按下的表达式为（ ）。
A．( Button=vbCtrlMask）And (KeyCode=vbKeyF3)
B．KeyCode=vbLeyControl+vbKeyF3
C．(KeyCode=vbKeyF3) And (Shift And vbCtrlMask)
D．（Shift And vbCtrolMask）And (KeyCode and vbKeyF3)
20．当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将（ ）。
A．发生DeActivate事件 B．发生LostFocus事件
C．发生DeActivate和LostFocus事件 D．DeActivate和LostFocus事件都不发生
二、填空题
1属性设置为2—Grayed时，变成灰色，禁止用户使用。
2． 属性设置为1，单选按钮和复选框的标题显示在左边。
3． 属性设置为1，单选按钮和复选框以图形方式显示
4．在程序运行时，如果将框架的 属性设为False，则框架的标题呈灰色，表示框架内的所有对象均屏蔽，不允许用户对其进行操作。
5Change。
6．当用户单击滚动条的空白处时，滑块移动的增量值由 属性决定。
7．滚动条产生Change事件是因为 值改变了。
8．如果要每隔15s产生一个计时器事件，则Interval属性应设置为 。
9． 函数将返回系统的时间。
10．Microsoft Windows Common Control 6.0部件包含Toolbar、StatusBar、 、TreeView、ListView、ImageList 、Ｓlider和ImageCombo等控件。
11．如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了热键字母；如果在建立菜单时在标题文本框中输入一个 “ ”，那么显示时形成分隔符。
12．如果把菜单项的 属性设置为True，则该菜单项成为一个选项。
13．不管是在窗口顶部菜单条上显示的菜单，还是隐藏的菜单，都可以 法把它们作为弹出菜单在程序运行期间显示出来。
14．假定有一个通用对话框控件CommonDialog1，除了用CommonDialog1.Action=3显示颜色对话框外，还可以用 方法显示。
15．在显示“字体”对话框之前必须设置 属性，否则将发生不存在字体的错误。
16．用Show方法后显示自定义对话框时，如果Show方法后带参数就将窗
体作为模式对话框显示。
17．每当一个窗体成为活动窗体时触发 事件。
18．在VB中，除了可以指定某个窗体作为启动对象外，还可以指定 作为启动对象。
19．当用户单击鼠标右键时，MouseDown、ＭouseUp和MouseMove事件过程中的Button参数值为 。
20．当用户同时按下Ctrl和Shift键单击鼠标时，MouseDown、MouseUP和MouseMove事件过程中的Shift参数值为 。
21．如果窗体的True,则控件的KeyPress事件过程，可以接收到在窗体的KeyPress过程中修改过的KeyAscii值。
第8章数据文件的测试题
一、选择题
1．在下面关于顺序文件的描述中，正确的是（ ）。
A．顺序文件中每行的长度都是相同的
B．可以通过编程对文件中的某行方便地进行修改
C．数据以ASCII码的形式存放在文件中，所以可通过记事本打开
D．文件的组织结构复杂
2．下面关于随机文件的描述不正确的是（ ）。
A．每条记录的长度必须相同
B．一个文件中记录号不必唯一
C．可通过编程对文件中的某条记录方便地进行修改
D．文件的组织结构比顺序文件复杂
3．按存储信息的形式分类，文件可以分为（ ）。
A．顺序文件和随机文件 B．ASCII文件和二进制文件
C．程序文件和数据文件 D．磁盘文件和打开文件
4．顺序文件是因为（ ）。
A．文件中的数据按每行的长度从小到大排序好的
B．文件中的数据按某个关键数据项从大到小进行排序
C．文件中的数据按某个关键数据项从小到大进行排序
D．数据按进入的先后顺序存放的，读出也是按原写入的先后顺序读出
5．随机文件是因为（ ）。
A．文件中的内容是通过随机数产生的
B．文件中的记录号是通过随机数产生的
C．可对文件中的记录根据记录号随机地读/写
D．文件的每条记录的长度是随机的
6．文件号最大可取的值为（ ）。
A．255 B．511 C．512 D．256
7．Print #1,STR1$中的Print是（ ）。
A．文件的写语句 B．在窗体上显示的方法
C．子程序名 D．以上均不是
8．为了建立一个随机文件，其中每一条记录由多个不同数据类型的数据项组成，应使用（ ）。
A．记录类型 B．数组 C．字符串类型 D。变体类型
9．要从磁盘上读入一个文件名为“c:\t1.txt”的顺序文件，如下正确的是（ ）。
A．F=”c:\t1.txt” B．F=”c:\t1.txt”
Open F For Input As # 1 Open ” F” For Input As # 2
C．Open ”c:\t1.txt” For Output As # 1 D．Open c:\t1.txt For Input As # 2
10．要从磁盘上新建一个文件名为”c:\t1.txt”的顺序文件，如下正确的是（ ）。
A．F=”c:\t1.txt” B．F=”c:\t1.txt”
Open F For Append As # 2 Open ” F” For Output As # 2
C．Open c:\t1.txt For Output As # 2 D．Open “c:\t1.txt” For Output As # 2
11．记录类型定义语句应出现在（ ）。
A．窗体模块 B．标准模块
C．窗体模块、标准模块都可以 D．窗体模块、标准模块均不可以
12．要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课程成绩（百分制）组成，正确的程序段是（ ）。
A．Type stud B．Type stud
no As Integer no As Integer
name As String name As String * 10
mark(1 To 3) As Single mark( ) As Single
End Type End Type
C． Type stud D．Type stud
no As Integer no As Integer
name As String * 10 name As String * 10
mark(1 To 3) As Single mark( 1 to 3 ) As String
End Type End Type
13．为了使用上述定义的记录类型，对一个学生的各数据项通过赋值语句获得，其值分别为9801、“李平”、78、88、96，如下程序段正确的是（ ）。
A． Dim S As atud B．Dim S As atud
stud.no = 9801 S.no = 9801
stud.name = "李平" S.name = "李平"
stud.mark=78,88,96 S.mark=78,88,96
C． Dim S As atud D．Dim S As atud
S.no = 9801 stud.no = 9801
S.name = "李平" stud.name = "李平"
S.mark(1)=78 stud.mark(1)=78
S.mark(2)=88 stud.mark(2)=88
S.mark(3)=96 stud.mark(3)=96
14．对已定义好的学生记录类型，要在内存存放10个学生的学习情况，如下数组声明： Dim s10(1 to 10) As Stud
要表示第3个学生的第3门课程和该生的姓名，（ ）正确。
A．S10(3).mark(3),s10(3).Name B．S3.mark(3),s3.Name
C．S10(3).mark,S10(3).Name D．With S10(3)
.mark
.Name
End With
15．要建立一个只有一个学生成绩（上面第14题中的记录）的随机文件，文件名为：Stud.dat,
则在下列程序段中正确的是（ ）。
A．Open stud.dat For Random As #1 B．Open “stud.dat” For Random As #1 Put #1,1,s Put #1,1,s
Close #1 Close #1
C．Open stud.dat For Outpt As #1 D．Open “stud.dat” For Random As #1 Put #1,1,s Put #1 s
Close #1 Close #1
二、填空题
1．顺序文件的建立。建立文件名为“C:\stud1.txt”的顺序文件，内容来自广西框，每按下Enter键后写入一条记录，然后清除文本框的内容，直到文本框内输入“END”字符。 Private Sub Form_Load()
（1）
Text1 = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If （2） Then
Close #1
End
Else
（3）
Text1 = ""
End If
End If
End Sub
2．将C盘根目录下的一个旧文本文件old.dat复制到新文件new.dat中，并利用文件操作语句将old.dat文件从磁盘上删除。
Private Sub Command1_Click()
Dim str1$
Open "c;\old.dat" Open "c:\new.dat"
Do While
（7）
Print #2, str1
Loop
（8）
（9）
End Sub
3．文本文件合并。将文本文件”t2.txt”合并到“t1.txt”文件中
Private Sub Command2_Click()
Dim s$
Open "t1.txt" (10)
Open "t2.txt" (11)
Do While Not EOF(2)
Line Input #2, s
Print #1, s
Loop
Close #1, #2
End Sub
4．编写对随机文件修改的事件过程。对已建立的有若干条记录的随机文件
“e:\student.dat”,单击窗体上的命令按钮Command1,读出记录号为10的那条记录，显示在
窗体上，然后将其第3门课程成绩加10分，再写入原记录的位置，再读出来显示修改成功与否。记录结构如下：
Type stud
no As Integer
name As String * 10
mark(1 To 3) As Single
End Type
Private Sub Command1_Click()
Dim s As stud, （12）
Open " e:\student.dat " For Random As #1 Len = Len(s)
（13）
Print s.no; s.name; s.mark(1); s.mark(2); s.mark(3)
（14）
Put #1, 10, s
（15）
Print d.no; d.name; d.mark(1); d.mark(2); d.mark(3)
Close #1
End Sub