请在名为Form1的窗体上建立一个二级下拉菜单,第一级共有两个菜单项,标题分别为“文件”和“编辑”,名称分别为vbFile和VbEdit;在“编辑”菜单下有第二级菜单,含有3个菜单项,标题分别为“剪切”、“复制”和“粘贴”,名称分别为vbCut、VbCopy和vbPaste。其中“剪切”菜单项设置为无效(如下图所示)。

注意:
文件必须存放在考生文件夹中。工程文件名为execise48.vbp,窗体文件名为 execise48.frm。

第1题:
如下图所示,在名为Form1的窗体上建立一个名称为Text1的文本框;建立两个主菜单,其标题分别为“颜色”和“帮助”,名称分别为vbCo1or和vbHe1p,其中“颜色”菜单包括“红色”、“绿色”和“黄色”3个菜单项,名称分别为vbRed、vbGreen和vbYellow (如下图所示)。

程序运行后,如果单击“红色”菜单项,则文本框内显示“西红柿是红色的”;如果单击“绿色”菜单项,则在文本框内显示“苹果是绿色的”;如果单击“黄色”菜单项,则在文本框内显示“香蕉是黄色的”。
要求;
不能使用任何变量,直接显示字符串:文件必须存放在考生文件夹中,窗体文件名为 execise90.frm,工程文件名为execise90.vbpo

第2题:
在名称为Forml的窗体上建立两个主菜单,其标题分别为“文件”和“编辑”,名称分别为vbFile和VbEdit,在“文件”菜单下有三个子菜单项,标题分别为“打开”、“保存”和“关闭”,名称分别为vbOpen、vbSave和vbClose。要求程序运行后,如果选中“文件”下的某个菜单项,则通过MsgBox对话框显示该菜单项的标题,如图6-3所示。
注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sja.vbp。
|
标签 |
名 称 |
内缩 |
|
文件 |
vbFile |
无 |
|
打开 |
vbOpen |
一位 |
|
保存 |
vbSave |
一位 |
|
关闭 |
vbClose |
一位 |
|
编辑 |
vbEdit |
无 |
单击“确定”按钮,菜单建立完成后,进入代码窗口编写以下代码:
Private Sub vbClose_Click关闭命令调用的函数
MsgBox("关闭")
End Sub
Private Sub vbOpen—Click 打开命令调用的函数
MsgBox("打开")
End Sub
Private Sub vbSave_Click 保存命令调用的函数
MsgBox("保存")
End Sub
单击
按钮运行程序,并按要求保存。
第3题:
在名为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFi1e和vbHe1p,在“文件”菜单下有3个菜单项,分别为“新建”、“打开”和“保存” (其名称分别为vbNew、vbOpen和vbSave)。
要求程序运行后,如果选中“文件”下的某个菜单项,则将该菜单项的标题通过MsgBox对话框显示出来,如下图所示。

注意:
文件必须存放在考生文件夹中,窗体文件名为execise47.frm,工程文件名为 execise47.vbp。

第4题:
在名为Form1的窗体上绘制一个文本框,名为Text1;再建立一个下拉菜单,菜单标题为“操作”,名为vbOp,此菜单下含有两个菜单项,名称分别为vbDis和vbHide,标题分别为“显示”和“隐藏”。
请编写适当的事件过程,使得在运行时,单击“隐藏”菜单项,则文本框消失;单击“显示”菜单项,则文本框重新出现。运行后的窗体如下图所示。

注意:
程序中不得使用变量,每个事件过程中只能写一条语句;文件必须存放在考生文件夹中,工程文件名为execise30.vbp,窗体文件名为execise30.frm。

第5题:
在名为Form1的窗体上建立一个二级菜单,该菜单需要含有、“文件”、 “帮助”两个主菜单项,名称分别为vbFile和vbHelp。其中,“文件”菜单包括“打开”、“关闭”、“退出”3个子菜单项,名称分别为vbOpen、vbClose、vbExit,如下图所示。

注意:
只建立菜单,不必定义其事件过程;文件必须存放在考生文件夹中,窗体文件名为 execisel.frm,工程文件名为execise1.vbp。
