[填空题] 假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的15个属性。请在划线处将程序补充完整。
Private Sub Form_Click( )
Static x As Integer
Cls
Print "Mousepointer Property is now "; x
Forml. 【12】 =x
x=-x+1
If x = 15 Then x = 0
End Sub
[填空题] 假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的15个属性。请在划线处将程序补充完整。
Private Sub Form_Click( )
Static x As Integer
Cls
Print "Mousepointer Property is now "; x
Forml. 【12】 =x
x=-x+1
If x = 15 Then x = 0
End Sub
MousePointer
[评析] MousePointer属性可以通过代码设置，也可以通过属性窗口设置，在程序代码中设置MousePoimer属性的一般格式为： 对象.MousePointer=设置值 由于程序中使用Static关键字定义变量x，每次单击窗体时x的值增加1，并且下次单击窗体时，x能保留上次的值，这样就能保证每次单击窗体时看到到鼠标光标都和上一次看到的不一样。
VIP截止日期：2025-01-01 12:16:03
←请使用支付宝扫码支付
VIP截止日期：2025-01-01 12:16:03
←请使用微信扫码支付
