题目内容:
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的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
参考答案:
答案解析:
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的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