[填空题] 假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的15个属性。请在划线处将程序补充完整。Private Sub Form_ Cli

14 查阅

[填空题] 假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的15个属性。请在划线处将程序补充完整。Private Sub Form_ Click( ) Static x As Integer Cls Print "Mousepointer Property is now "; x Form1. 【12】 =x x=x+1 If x = 15 Then x = 0End Sub

参考答案:

MousePointer

[评析] MousePointer属性可以通过代码设置，也可以通过属性窗口设置，在程序代码中设置MousePointer属性的一般格式为：对象.MousePointer=设置值由于程序中使用Static关键字定义变量x，每次单击窗体时x的值增加1，并且下次单击窗体时，x能保留上次的值，这样就能保证每次单击窗体时看到鼠标光标都和上一次看到的不一样。

计算机考试