首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。 Private Sub Form_Click() Static x As Integer
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。 Private Sub Form_Click() Static x As Integer
admin
2013-01-23
61
问题
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。
Private Sub Form_Click()
Static x As Integer
Cis
Print"Mousepointer Property is now:;X
Forml【 】=x
X=K+1
If x=15 Then x=0
End Sub
选项
答案
MousePointer
解析
MousePointer属性可以通过代码设置,也可以通过属性窗口设置,在程序代码中设置MousePointer属性的一般格式为:对象.MousePointer=设置值由于程序中使用Static关键字定义变量x,每次单击窗体时x的值增加1,并且下次单击宙体时,x能保留上次的值,这样就能保证每次单击窗体时看到到鼠标光标都和上一次看到的不一样。
转载请注明原文地址:https://kaotiyun.com/show/q5hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下事件过程:OptionBase1PrivateSubFormClick()Dimx1()AsIntegerDimiAsIntegerDimsA
下列程序实现的功能是:当在窗体上单击时,把C盘根目录下的文件a1.txt复制到D盘,并取名为a2,txt。PrivateSubForm_Click()DimChAsStringOpen"c:\a1.txt"
数据库理论中,数据的独立性一般可分为【】和逻辑独立性。
在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:PrivateSubForm_Click()Text1.Text=“VB程序设计”EndSubPrivmeSubTex
软件模块化原理是逐层分解的【】方法在软件总体构造阶段的运用。
在窗体上画一个名称为Timer1的计时器、一个名称为Command1的命令按钮和一个名称为Labell的标签。程序如下:PrivateSubCommand1_Click()Timer1.Enabled=TrueTimer
索引属于______。
表达式4+5\6*7/8Mod9的值是______。
表达式Fix(-32.68)+Int(-23.02)的值为【】。
使用驱动器列表框的______属性可以返回或设置驱动器列表中当前选中的磁盘驱动器的索引值。
随机试题
关于呼吸机触发敏感度的设置,下列哪项是正确的
中药对照品使用前应置干燥器中至少干燥
孔某在A市甲区拥有住房两间,在孔某外出旅游期间,位于A市乙区的建筑工程队对孔某隔壁李某房屋进行翻修;在翻修过程中,施工队不慎将孔某家的山墙砖块碰掉,砖块落人孔某家中,损坏电视机等家用物品。孔某旅游回来后发现此情,遂交涉,但未获结果。孔某向乙区法院起诉。乙区
初次申请测绘资质必须提供的材料是()。
2011年3月,A县B镇举行第六届人民代表大会第一次会议。共有代表100人。在选举过程中,有代表19人书面联名提出本级人大主席候选人甲,又有代表9人书面联名提出本级人民政府镇长的候选人乙。第一次会议结束后,20111年6月,25名代表提出临时召集本级人民代
某游戏理论认为,儿童在游戏中可以使机体不受外界的任何约束,从中获得快乐。该理论的提出者是()。(2018年)
Ayoungconsultant’slifeistiring.A【C1】______weekstartsbeforedawnonMonday,witharushtotheairportanda【C2】______to
要利用通用对话框控件来显示“保存文件”对话框,需要调用控件的______方法。
设有以下宏定义:#defineN3#defineY(n)((N+1)*n)则执行以下语句后,z的值为______。z=2*(N+Y(5+1));
SarrElysetookasipfromaplasticcup.Likeapractisedwinetaster,sheswilledthedarkliquidaroundinhermouththenswa
最新回复
(
0
)