【题目描述】
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为CD1的通用对话框,通过属性窗口设置CD1的初始路径为C:\,默认的文件名为None,标题为“保存等级考试”,如图2所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2)在名称为Form1的窗体上设计一个菜单。要求在窗体上添加名为menu0,标题为“菜单命令”的主菜单,再添加两个名称分别为“menu1”、“menu2”,标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单,并且使程序运行时,menu1子菜单不可用,menu2子菜单已经选中(运行时的效果如图3所示)再编写适当的事件过程,使得程序运行时,单击“上一菜单项可用”,则“不可用菜单项”变为黑色(可用)。要求程序中不得使用变量,且只有一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm
【我提交的答案】:
【参考答案分析】:
第1小题
【知识点拔】通用对话框的InitDir属性用于为打开或另存为对话指定初始的目录,如果此属性没有指定,则使用当前目录。
【审题分析】通用对话框的初始路径由InitDir属性设置,默认文件名由FileName属性设置,标题由DialogTitle属性设置。
【操作步骤】
步骤1:新建一个“标准EXE”工程,选择【工程】->【部件】命令,在弹出的“部件”对话框的列表中选中“MicroSoft Common
DialogControl6.0”项目,单击“确定”按钮。
步骤2:在窗体Form1上画一个通用对话框,其相关属性设置
如表1-24所示。
步骤3:编写Form. 1的Load事件,加入下向的代码:
CD1.ShowSave
步骤4:按要求将文件保存至考生文件夹中
【特别提示】通用对话框控件不是VB内部控件,通常不会在VB默认工具箱中列出。
【主要考点】通用对话框。
第2小题
【知识点拔】(1)VB p的菜单是通过菜单编辑器来设计的。菜单编辑器中的基本设置项有:“标题”项,对应出现在菜单中的显示内容;“名称”项,系统识别菜单项的唯一关键字(不能重复);“索引”项,用于设置菜单数组中各元素的索引号;“快捷键”项,是一个下拉列表框,用于设置菜单项的快捷键;“帮助上下文”项,设置当鼠标移动到某菜单项上按F1>键时显示的帮助信息在帮助文件中的对应位置;Visible(可见项.用于设置控件或菜单项在程序运行时是否可见,值为True表示可见,值为 False表示不町见;Enabled(有效)项,用于设置控件或菜单项在程序运行时是否有效,值为True 时表示有效,值为False时表示无效,(显示为灰色)。通过编辑按钮区的七个按钮可对菜单进行添加、插入、删除、提升‘(设置为上一级菜单)、缩进(设置为下一级菜单)、上移、下移等操作。②文本框的Text属性用于设置或返回其显示的文本内容。
【审题分析】本题原程序设计思路:在“上一菜单项可用”命令的单击事件过程中,通过语句设置不可用菜单项”命令的Enabled 属性值为True。
【操作步骤】
步骤1:新建一个标准EXE工程,打开VB菜单设计器设讨菜单,各菜单项及属性设置如表1-25所示。
步骤2:打开代码编辑窗口,编写“上一菜单项可用”命令的Click事件过程。
参考代码: