有下面事件过程： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Butt

admin2020-07-22 44

问题有下面事件过程：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer,
      X As Single, Y As Single)
      If Button = 2 Then
         Form1.PSet(X, Y)    ’ PSet方法可以在 X，Y处画一个点
      End If
End Sub
程序运行后，产生的效果是

选项 A、在窗体上每单击鼠标左键一次，就在鼠标位置处画一个点
B、按着鼠标左键，移动鼠标，可在窗体上画出鼠标的运动轨迹
C、按着鼠标右键，移动鼠标，可在窗体上画出鼠标的运动轨迹
D、不按任何鼠标键，移动鼠标，可在窗体上画出鼠标的运动轨迹

答案C

解析 MouseMove中Button是一个整数，它对应鼠标各个按钮的状态，如果某个按钮按下，其中就有一个二进制位被设置。Button 参数是具有相应于左按钮（位 0），右按钮（位 1），以及中间按钮（位 2）的一个位字段。这些位的值分别等于 1，2，和 4。它指示这些鼠标按钮的整体状态；三个二进制位中的一些、全部、或一个也没有被设置，指示这些按钮中的一些、全部、或一个也没有被按下。程序中Button = 2表示鼠标右键被按下。故答案选C。

转载请注明原文地址:https://kaotiyun.com/show/FVHp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

有下面事件过程： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Butt

二级VB

NCRE全国计算机二级

某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：PrivateSubCommand1_Click()　　Dima(10)AsInteger，maxAsInteger　　Fork＝1To10　　　　a(k)＝In

在窗体上没有进行任何属性设置，然后编写如下事件过程，则程序运行结果是()。PriVateSubFormLoad()Fori=1To10sum=sum+iNextiPrint"Sum="：sumEndSu

窗体上有一个名称为Text1的文本框，一个名称为Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是

下列叙述中正确的是()。

下面程序运行时，若输入"VisualBasicProgramming"，则在窗体上输出的是(　　)。PrivateSubCommand1_Click()　　Dimcount(25)AsInteger，chAsString　　ch＝U

以下关于VB特点的叙述中，错误的是(　　)。

若变量a未事先定义而直接使用(例如：a＝0)，则变量a的类型是(　　)。

以下选项中，不合法的VisualBasic的变量名是()。

为了判断字符串变量ch中是否是一个大写字母，需要编写这样一个表达式：当ch中字符为大写字母时，表达式的值为True，否则为False。下面能正确实现这一目的的表达式是

设栈的存储空间为S(1：50)，初始状态为top=51。现经过一系列正常的入栈与退栈操作后，top=20，则栈中的元素个数为()。

出版简讯的内容一般包括()等。

Withanappropriaterelativepronounorrelativeadverb:You,_______aresoclever,won’tbelievehispromises.

有关视皮质的描述，正确的是

男性，16岁，骤起严重水肿入院，血压正常，腹水征(+)，尿蛋白(++++)，红细胞0一2个／HP，24小时尿蛋白定量6g，血CT100μmol／L，血C3、CH50正常，血白蛋白24g／L，入院后予泼尼松每日40mg口服，2周后肾活检示：肾小球系

有权选举和更换非由职工代表担任的董事、监事的机构是(　　)。

()又叫做辛迪加贷款。

口渴：饮水

在新的历史条件下，只有改善党的领导，才能坚持和加强党的领导，这是因为

Mylittlebrotheristooyoung______gotoschool.

有下面事件过程： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Butt

二级VB

NCRE全国计算机二级

某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：PrivateSubCommand1_Click() Dima(10)AsInteger，maxAsInteger Fork＝1To10 a(k)＝In

在窗体上没有进行任何属性设置，然后编写如下事件过程，则程序运行结果是()。PriVateSubFormLoad()Fori=1To10sum=sum+iNextiPrint"Sum="：sumEndSu

窗体上有一个名称为Text1的文本框，一个名称为Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是

下列叙述中正确的是()。

下面程序运行时，若输入"VisualBasicProgramming"，则在窗体上输出的是( )。PrivateSubCommand1_Click() Dimcount(25)AsInteger，chAsString ch＝U

以下关于VB特点的叙述中，错误的是( )。

若变量a未事先定义而直接使用(例如：a＝0)，则变量a的类型是( )。

以下选项中，不合法的VisualBasic的变量名是()。

为了判断字符串变量ch中是否是一个大写字母，需要编写这样一个表达式：当ch中字符为大写字母时，表达式的值为True，否则为False。下面能正确实现这一目的的表达式是

设栈的存储空间为S(1：50)，初始状态为top=51。现经过一系列正常的入栈与退栈操作后，top=20，则栈中的元素个数为()。

出版简讯的内容一般包括()等。

Withanappropriaterelativepronounorrelativeadverb:You,_______aresoclever,won’tbelievehispromises.

有关视皮质的描述，正确的是

男性，16岁，骤起严重水肿入院，血压正常，腹水征(+)，尿蛋白(++++)，红细胞0一2个／HP，24小时尿蛋白定量6g，血CT100μmol／L，血C3、CH50正常，血白蛋白24g／L，入院后予泼尼松每日40mg口服，2周后肾活检示：肾小球系

有权选举和更换非由职工代表担任的董事、监事的机构是( )。

()又叫做辛迪加贷款。

口渴：饮水

在新的历史条件下，只有改善党的领导，才能坚持和加强党的领导，这是因为

Mylittlebrotheristooyoung______gotoschool.

某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：PrivateSubCommand1_Click()　　Dima(10)AsInteger，maxAsInteger　　Fork＝1To10　　　　a(k)＝In

下面程序运行时，若输入"VisualBasicProgramming"，则在窗体上输出的是(　　)。PrivateSubCommand1_Click()　　Dimcount(25)AsInteger，chAsString　　ch＝U

以下关于VB特点的叙述中，错误的是(　　)。

若变量a未事先定义而直接使用(例如：a＝0)，则变量a的类型是(　　)。

有权选举和更换非由职工代表担任的董事、监事的机构是(　　)。