首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。 Private Sub Form_Click( ) Static x As Int
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。 Private Sub Form_Click( ) Static x As Int
admin
2013-04-11
76
问题
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。
Private Sub Form_Click( )
Static x As Integer
Cls
Print "Mousepointer Property is now "; x
Forml.【 】=x
x=-x+1
If x = 15 Then x = 0
End Sub
选项
答案
MousePointer
解析
MousePointer属性可以通过代码设置,也可以通过属性窗口设置,在程序代码中设置MousePoimer属性的一般格式为:
对象.MousePointer=设置值
由于程序中使用Static关键字定义变量x,每次单击窗体时x的值增加1,并且下次单击窗体时,x能保留上次的值,这样就能保证每次单击窗体时看到到鼠标光标都和上一次看到的不一样。
转载请注明原文地址:https://kaotiyun.com/show/boQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在执行KeyPress事件过程时,KeyASCII是所按键的【】值。对于有上档字符和下档字符的键,当执行KeyDown事件过程时,KeyCode是【】字符的ASCII值。
以下Case语句中错误的是______。
在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。当改变当前驱动器时,目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中,这个事件过程是______。
数据库管理系统中用来定义模式、内模式和外模式的语言为
在窗体上画—个命令按钮,其名称为Command1,然后编写如下程序:FunctionM(xAsInteger,yAsInteger)M=IIf(x>y,x,y)EndFunctionPrivateSub
对长度为N的线性表进行顺序查找,在最坏情况下所需要的比较次数为______。
(1)在考生文件夹中有文件sj3.vbp及其窗体文件sj3.frm.该程序是不完整的。窗体上有一个名称为Text1的文本框;两个复选框,名称分别为Check1和Check2,标题分别为“Item1”和“Item2”;一个按钮,标题为“选择”。要求程序运行后
Not、Xor、Or、And这四个算术运算符优先级最低的是______。
函数Int(Rnd(0)*10)的取值范围是______。
用随机函数产生(100,200)范围整数的表达式是______。
随机试题
“动中有静、静中有动”包含的哲学道理是
made,weremaking,weremade;in,to,onExperiments_______toadaptthisvarietyofshrimp_____freshwater.
判断股份制企业的性质,关键看股份制企业()
患者发热盗汗,面赤,心烦,口干唇燥,便结溲黄,舌红,脉数,治疗应选用()
注册税务师在一个会计年度内违反《注册税务师资格制度暂行规定》从事代理活动两次以上的,由省、自治区、直辖市及计划单列市注册税务师管理机构停止其从事税务代理业务()以上。
甲企业和乙企业均为增值税一般纳税企业。甲企业于2005年6月30日向乙企业出售产品一批,产品销售价款2000000元,应收增值税额340000元;乙企业于同年6月30日开出期限为6个月的票面年利率为4%的商业承兑汇票购买该产品。在该票据到期日,乙企业未按期
下列各项中,不属于企业成本核算项目的是()。
()可以分析出工作绩效的差距。
A、HewasborninSpain.B、HegrewupinEngland.C、HespenthisteenyearsinLondon.D、HewenttoacollegeintheUSA.A由对话中男士
A、Nooneknowshowtodance.B、Noonewillpayattentiontohowthemandances.C、It’stoocrowdedtodance.D、Nooneisdancing
最新回复
(
0
)