回 帖 发 新 帖 刷新版面

主题:这道二级VB的题目我错在哪?

在名称为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个回复)

沙发

建议管理员开一个《问“题”专区!》

板凳

如看天书。

3 楼


回老大徒伤悲先生,“如看天书”有那么严重吗?不就是一个弹出式菜单,问题是我觉得对,因为题目要求的效果我都已经做到了,可题库系统却没给分,

4 楼


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 楼

谢谢,我试过了,也是9分。实际上mnu2.Enabled = False
mnu3.Checked = True我在菜单编辑中口中已经设置过了

6 楼

[quote]要求程序中不得使用变量。[/quote]
好像一个对象也算一个变量----对象变量

Dim mnu As Menu

7 楼

你在菜单编辑器里选择了相应属性没有?你的图片怎么没有贴上来?

8 楼

Form_MouseDown ?
一般弹出菜单都在mouseup事件里写,可能是这里扣了你分

9 楼

呵,有意思的题目。

我来回复

您尚未登录,请登录后再回复。点此登录或注册