2. 计算机
  3. 假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的15个属性。请在划线处将程序补充完整。 Private Sub Form_Click( ) Static x As Int

假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的15个属性。请在划线处将程序补充完整。 Private Sub Form_Click( ) Static x As Int

admin2013-04-11  32
问题 假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的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全国计算机二级

相关试题推荐
随机试题
最新回复(0)