填空题
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的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
【参考答案】
MousePointer
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
程序执行结果s的值是 【7】 。 Private Sub sub1(Byval p As Integer) p=p*2 End Sub Private Sub Command1_click() Dim i As Integer i=3 Call sub1(i) if i>4 then i=i mod 2 Print cstr(i) End Sub
点击查看答案&解析
填空题
在执行KeyPress事件过程时,KeyASCII是所按键的 【8】 值。对于有上档字符和下档字符的键,当执行KeyDown事件过程时,KeyCode是 【9】 字符的ASCII值。
点击查看答案&解析
相关试题
假定建立了一个工程,该工程包括两个窗体,...
在窗体上画一个命令按钮,然后编写如下事件...
文件的打开和关闭语句分别是 【10】 和...