假定有如下程序代码 程序运行后 把鼠标光标移到窗体内 每单击一次 变换一种鼠标光标的形状 依次显示鼠
假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的15个属性。请在划线处将程序补充完整。 Private Sub Form_Click() Static x As Integer Cls Print "Mousepointer Property is now"; x Form1.【 】=x x=x+1 If x=15 Then x=0 End Sub
请帮忙给出正确答案和分析，谢谢！
参考解答
4jj***265
2023-07-22 18:58:04
正确答案：MousePointer
MousePointer属性可以通过代码设置，也可以通过属性窗口设置，在程序代码中设置MousePointer属性的一般格式为：对象.MousePointer=设置值由于程序中使用Static关键字定义变量x，每次单击窗体时x的值增加1，并且下次单击窗体时，x能保留上次的值，这样就能保证每次单击窗体时看到到鼠标光标都和上一次看到的不一样。
相似问题
控件数组的名字由【 】属性指定 而数组中的每个元素由【 】属性指定。请帮忙给出正确答案和分析 谢谢！
控件数组的名字由【 】属性指定，而数组中的每个元素由【 】属性指定。请帮忙给出正确答案和分析，谢谢！
下列程序的功能是：将字符串“abcde”逆序打印出来。请填写空白处以完善程序。 Function r
下列程序的功能是：将字符串“abcde”逆序打印出来。请填写空白处以完善程序。 Function rev(str1) As String B=Mid(______,1, 1) If B= "" Th
以下程序的功能是：从键盘上输入若干个数字 当输入负数时结束输入 统计出若干数字的平均值 输出结果。请
以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。 Private Sub Form_click() Dim x,
在KeyDown和KeyUp事件过程中 当参数Shift的值为十进制数1 2 4时 分别代表Shif
在KeyDown和KeyUp事件过程中，当参数Shift的值为十进制数1，2，4时，分别代表Shift、【 】、【 】键。请帮忙给出正确答案和分析，谢谢！
把窗体的KeyPreview属性设置为True 然后编写如下两个事件过程： Prirate Sub
把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程： Prirate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr
