填空题

假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种
鼠标光标的形状，依次显示鼠标光标的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=0
End Sub

【参考答案】

[12]MousePointer
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 程序运行后，单击命令按钮，输出结果是 【13】 。
填空题
文件的打开和关闭语句分别是 【10】 和 【11】 。
相关试题