首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面事件过程: Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then
有下面事件过程: Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then
admin
2018-05-08
46
问题
有下面事件过程:
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)的一个位字段。这些位的值分别等于l,2,和4。它指示这些鼠标按钮的整体状态;三个二进制位中的一些、全部、或一个也没有被设置,指示这些按钮中的一些、全部、或一个也没有被按下。程序中Button=2表示鼠标右键被按下。故答案选C。
转载请注明原文地址:https://www.kaotiyun.com/show/BYGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于控件数组的叙述中,错误的是
设有下面程序代码:OptionBase1PrivateSubCommandl_Click()Dimx(6)a=Array(4,2,5,1,6,3)b=Array(6
在窗体上画一个命令按钮,然后编写如下程序:OptionBase1PrivateSubCommandl_Click()DimArt(10)AsIntegerFori
在窗体上画1个命令按钮,并编写如下事件过程:PrivateSubCommandl_Click()Dima(3,3)Form=1T03Forn=1To3
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()DimiAsInteger,nAsInteger
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性,该属性为
在VisualBasic中,所有标准控件都具有的属性是
窗体上有一个名称为Commandl的命令按钮,一个名称为Textl的文本框。编写如下程序:PrivateSubCommandl_Click()DimxAsIntegerx=Val(InputB
为了使一个复选框被禁用(灰色显示),应把它的Value属性设置为
随机试题
对具体行政行为判决合法的表述为()
溃疡穿孔的典型症状体征_______。
慢性肺源性心脏病失代偿期心功能失代偿多表现为
不发生相互作用的免疫细胞膜分子是
由于内部控制方面的漏洞,很多金融机构在衍生产品交易中遭受巨额损失,而且短期内难以筹措足够的资金平仓,出现严重的()危机。
2,6,15,32,65,()
重复抵押,是指债务人以同一抵押物分别向数个债权人为抵押行为,包括形式上的重复抵押和实质上的重复抵押。形式上的重复抵押,是指债务人将同一抵押物内各个具有独立价值的部分分别抵押给数个债权人。实质上的重复抵押,是指债务人将同一抵押物的全部价值分别向数个债权人抵押
设函数f(x)在(-∞,+∞)内有定义,x0≠0是函数f(x)的极大值点,则().
数据库系统出现故障是不可避免的。当数据库系统出现事务故障和系统故障时需使用数据库的【12】文件进行恢复。
Jeanswereinventedalittleoveracenturyagoandarecurrentlytheworld’smostpopular,versatilegarment,crossingboundari
最新回复
(
0
)