当前位置:IT认证>BASIC题库

问题:[填空题]

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

  

参考答案:

MousePointer

  参考解析

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

微信端