第7章 对话框与菜单程序设计
习 题
一、判断题
1．用通用对话框控件显示“字体”对话框前，必须先设置Flags属性，否则将发生“不存在字体”的错误。
2．通用对话框的Filename属性返回的是一个输入或选取的文件名字符串。
3．在设计Windows应用程序时，用户可以使用系统本身提供的某些对话框，这些对话框可以直接从系统调入而不必由用户用“自定义”的方式进行设计。
4．在窗体上绘制CommonDialog控件时，控件的大小、位置可由用户自己加以设定。 5．在消息框（MsgBox）中，“Prompt”（消息）是必选项，最大长度为64个字符。 6．如果创建的菜单的标题是一个减号“-”，则该菜单显示为一个分隔线，此菜单项也可以识别单击事件。
7．菜单编辑器中的快捷键是指无须打开菜单就可以直接由键盘输入选择菜单项的键。 8．当一个菜单项不可见时，其后的菜单项就会往上填充留下来的空位。 9．CommonDialog控件就像Timer控件一样，在运行时是看不见的。 10．设计菜单中每一个菜单项分别是一个控件，每个控件都有自己的名字。 二、选择题
1．通常用 方法来显示“自定义”对话框。 A、Load A、ShowOpen A、Filter A、Hide A、Hide A、Action A、字符串 A、Caption
B、Unload C、Hide D、Show B、ShowColor C、ShowFont D、ShowSave B、Font C、Action D、FileName B、Visible C、Enabled D、Checked B、Visible C、Enabled D、Checked B、FilterIndex
C、Font D、Filter
2．将CommonDialog通用对话框以“打开文件对话框”方式打开，可选 方法。 3．将通用对话框类型设置为“另存为”对话框，应修改 属性。 4．用户可以通过设置菜单项的 属性值为False来使该菜单项失效。 5．用户可以通过设置菜单项的 属性值为False来使该菜单项不可见。 6．通用对话框可以通过对 属性的设定来过滤文件类型。 7．输入对话框（InputBox）的返回值的类型是 。
B、浮点数 C、整数 D、长整数 B、Name C、Index D、ShortCut
8．菜单编辑器中，同层次的 设置为相同，才可以设置索引值。 9．每创建一个菜单，它的下面最多可以有 级子菜单。
A、1 A、名称栏 三、填空题
B、3 C、5 D、6 B、标题栏 C、索引栏 D、显示区
10．在设计菜单时，为了创建分隔栏，要在 中输入单连字符（-）。
1．Windows环境下的菜单一般有 、 和 3种基本类型。 2．将通用对话框的类型设置为“字体”对话框可以使用 方法。
3．通用对话框控件可显示的常用对话框有： 、 、 、 和 。 4．如果工具箱中还没有CommonDialog控件，则应从 菜单中选定 ，并将控件添加到工具箱中。
5．将控件CommonDialog1设置为“颜色”对话框，可使用 或 。
6．在使用消息框时，要给MsgBox函数提供3个参数，它们是 、 和 。 7．菜单项可以响应的事件过程为 。
8．在设计菜单时，可在Visual Basic主窗口的菜单栏中选择 ，单击后从它的下拉菜单中选择“菜单编辑器”菜单项。
9．设计时，在Visual Basic主窗口上只要选取一个没有子菜单的菜单项，就会打开 ，并产生一个与这一菜单项相关的 事件过程。
10．设置菜单时，同一层的Name属性设置为 ，才可设置索引值，且索引值应设置为 的连续整数，但不一定从0开始。
四、程序阅读题
程序1. 请写出输入m为60、n为55时消息框中的输出结果。
Dim m As Integer, nmin As Integer,n As Integer, na As Integer Private Sub Form_click()
m = InputBox(\ n = InputBox(\ nmin = m
If n < nmin Then nmin = m: m = n: n = nmin For na = nmin To 1 Step -1
If n Mod na = 0 And m Mod na = 0 Then s = 1 : Exit For Next na
If s = 1 Then p = MsgBox(na, 0, \的输出结果\End Sub
程序2. 请写出在鼠标右击后出现的弹出菜单中点击菜单第一项后的显示结果。 Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuPopup, 10 End Sub
'mnuChoice1、2、3顺序为菜单项mnuPopup的下一级子菜单名
Private Sub mnuChoice1_Click()
m = MsgBox(\您选择了第一项\第一项\End Sub
Private Sub mnuChoice2_Click()
m = MsgBox(\您选择了第二项\第二项\End Sub
Private Sub mnuChoice3_Click()
m = MsgBox(\您选择了第三项\第三项\End Sub 五、程序填空题
1．【程序说明】以下是一个简化了的猜数游戏程序，自动生成一个小于100的随机正整数与您用输入对话框输入的数进行对比，猜中后输出相关信息，过程结束。
单击窗体则开始猜数，如要终止Visual Basic程序运行可以按Ctrl+Break组合键。 Private Sub Form_Click()
Dim r As Integer, x As Integer, i As Integer Randomize : r = （1） For i = 1 To 10
x = Val(InputBox(\请输入一个整数：\
If x < r Then m = MsgBox(\太小了，请继续猜！\ If x > r Then m = MsgBox(\太大了，请继续猜！\ If x = r Then
Print \猜中了！共猜了\（2） + \次\
If i <= 5 Then Print \太棒了！\加油！\ （3） End If Next i End Sub
2．【程序说明】在窗体内设置一个弹出式菜单，分别对文本框进行“显示时间”、“显示日期”、“颜色”、“字体”和“清空”操作。m1为不可见菜单项，m11为其子菜单（共5项，均同名，索引值依次为0，1，2，3，4）。
Private Sub Form_Load()
Timer1.Enabled = False '锁定定时器（时间间隔已设置为1秒） End Sub
Private Sub m11_Click(Index As Integer) Select Case Index
Case 0 : Timer1.Enabled = True Case 1
Timer1.Enabled = （1） : Text1.Text= \日期：\（2）
Case 2
CommonDialog1.Action = 3 : Text1.ForeColor = （3） Case 3
CommonDialog1.Flags = 256 '选择字体范围，否则出现运行错误 CommonDialog1.Action = 4 '打开“字体”对话框
Text1.FontBold = CommonDialog1.FontBold '用修改后的属性设置 Text1.FontItalic = CommonDialog1.FontItalic '文本框相应属性 Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Case 4: Text1.Text = \ End Select End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ x As Single, y As Single)
If Button = 2 Then （4） , 2 End Sub
Private Sub Timer1_Timer() Text1.Text = \时间：\End Sub 六、程序设计题
1．编制Command1的Click事件过程：调用“打开文件对话框”（通过控件CommonDialog1）选择文件，将所选的文件名追加到列表框控件List1中。
2．编制Command1的Click事件过程：调用“另存为对话框”（通过控件CommonDialog1）选择文件，将所选的文件名追加到列表框控件List1中。
3．设计一个如图10-9所示的菜单，各菜单项的属性设置如表10-2所示。要求所有图形用一个形状控件（Shape1）来实现，填充颜色用“颜色”对话框（CommonDialog1）来实现。
图10-9 程序设计题3的界面设计
表10-2 程序3的各级菜单设置
菜单名称 Picture Sqr Rec Oval Circle Rrec RSqr 菜单分类 主菜单1 一级子菜单 一级子菜单 一级子菜单 一级子菜单 一级子菜单 一级子菜单 菜单标题 基本图形(&P) 正方形 长方形 椭 圆 圆 圆角长方形 圆角正方形 菜单名称 FillStyle ShP ShZh XieX ShPJ XJ FillColor Exit 菜单分类 主菜单2 一级子菜单 一级子菜单 一级子菜单 一级子菜单 一级子菜单 主菜单3 主菜单4 菜单标题 填充方式(&T) 水平线 竖直线 斜 线 水平交叉 斜交叉 填充颜色(&C) 退出(&E)
第8章 文 件
习 题
一、判断题
1．运行时盘驱动器的List属性可以用AddItem和RemoveItem两种方法来改变。
2．在盘驱动器列表框Drive1的Change事件过程中，代码Dir1.Path=Drive1.Drive的作用是：当Drive1的驱动器改变时，Dir1的目录列表随同驱动器作相应变化。
3．选中文件列表框File1中某个选项时，File1.FileName属性值为所选文件的全名。 4．目录列表框的Path属性，只能用程序代码设置，不能通过属性窗口设置。
5．在程序运行中，目录列表框DirListBox将以树形展开方式显示某个盘或目录内的各个子目录名，并用是否为打开的文件夹图标来表示选定的目录。
6．由于列表项的内容是由系统自动产生的，因而在运行时，用户不能人为地用代码来改变目录列表框中List属性的值。
7．若要新建一个磁盘上的顺序文件，可用OUTPUT、APPEND方式打开文件。
8．若某文件已存在，用OUTPUT方式打开该文件，等同于用APPEND方式打开该文件。 9．用Kill语句删除文件，只能删除与指定文件名完全匹配的一个文件。
10．Open语句中的文件号，必须是当前未被使用的、最小的作为文件号的整数值。 11．文件列表框与盘驱动器列表框、目录列表框一样，都能响应Change事件。 12．可以用AddItem方法向目录列表框中加入新表项。
13．文件操作语句Name不仅可以修改文件名称，而且可以移动文件的位置。 14．文件以INPUT模式打开后可以往文件中写入数据。
15．用OUTPUT模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。