主题:这道二级VB的题目我错在哪?
如歌行板 [专家分:0] 发布于 2008-08-09 22:59:00
在名称为Form1的窗体上设计一个弹出式菜单。要求如下:
菜单标题 Name 属性设置说明 层次
右键菜单 Mnu0 运行程序时该菜单项不显示 1
菜单命令 Mnu1 2
不可用菜单 Mnu2 运行程序时该菜单项为灰色 2
带标记的菜单项 Mnu3 运行程序时,该菜单项前面有“√”标记 2
按以上要求设置菜单项,并编写适当的事件过程,使得在窗体上单击鼠标右键弹出该菜单,如图所示。要求程序中不得使用变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm
我的答案是:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu Mnu0
End Sub
可是20分却只给了9分,设置设置菜单项没错,所以给了9分。问题出在编写事件过程,答案提示:题目要求编写的语句在系统中没有找到。可是我却不知道错误在哪?
回复列表 (共9个回复)
沙发
guoyong_cy [专家分:3050] 发布于 2008-08-10 10:46:00
建议管理员开一个《问“题”专区!》
板凳
老大徒伤悲 [专家分:29120] 发布于 2008-08-10 14:56:00
如看天书。
3 楼
如歌行板 [专家分:0] 发布于 2008-08-10 22:00:00
回老大徒伤悲先生,“如看天书”有那么严重吗?不就是一个弹出式菜单,问题是我觉得对,因为题目要求的效果我都已经做到了,可题库系统却没给分,
4 楼
wangshanganjia [专家分:0] 发布于 2008-08-10 22:03:00
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
mnu2.Enabled = False
mnu3.Checked = True
PopupMenu mnu0
End If
End Sub
你看这行不?
5 楼
如歌行板 [专家分:0] 发布于 2008-08-10 22:12:00
谢谢,我试过了,也是9分。实际上mnu2.Enabled = False
mnu3.Checked = True我在菜单编辑中口中已经设置过了
6 楼
tanchuhan [专家分:15140] 发布于 2008-08-11 00:36:00
[quote]要求程序中不得使用变量。[/quote]
好像一个对象也算一个变量----对象变量
Dim mnu As Menu
7 楼
wdkshp [专家分:5490] 发布于 2008-08-11 09:46:00
你在菜单编辑器里选择了相应属性没有?你的图片怎么没有贴上来?
8 楼
guoyong_cy [专家分:3050] 发布于 2008-08-15 00:02:00
Form_MouseDown ?
一般弹出菜单都在mouseup事件里写,可能是这里扣了你分
9 楼
joforn [专家分:1460] 发布于 2008-08-16 10:05:00
呵,有意思的题目。
我来回复