题目内容（请给出正确答案）

[主观题]

要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件

过程是（）。

A.Private Sub P1 MouseMove(Button As Integer，Shift As Integer，X As Single，Y

As Single)

Print X Y

End Sub

B.Private Sub P1 MouseDown(Button As Integer，Shift As Integer，X As Single，Y

As Single)

Picture．Print X，Y

End Sub

C.Private Sub P1 MouseMove(Button As Integer，Shift As Integer，X As Single，Y

As Single)

P1．Print X，Y

End Sub

D.Private Sub Form. MouseMove(Button As Integer，Shift As Integer，X As Single，Y

As Single)

P1．Print X，Y

End Sub

提问人：网友seapen 发布时间：2022-01-07

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置…”相关的问题

第1题

在幻灯片视图中用鼠标单击欲被移动的文本，文本框显示出来；再用鼠标指向虚框，然后按住( )不放并拖动鼠标，就会将文本框拖动到新位置。在幻灯片视图中要删除幻灯片上已有的文本框，只需先用鼠标左键单击文本，再在出现的虚框上单击，然后再按( )键就能将其删除。

点击查看答案

第2题

为什么做好的网页在Dreamweaver里能正常显示图片，在浏览器端预览时图片显示不了？

A、很有可能是图片文件损坏了

B、很有可能是浏览器出了问题

C、很有可能是图片太大了

D、很有可能是没有把图片文件和网页文件放在同一个文件夹里

点击查看答案

第3题

设窗体上有一个名称为label1的标签，程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在label1标签中，单击鼠标右键则停止实时显示，并将标签中内容清除，下面的程序可实现这一功能，请填空。

Dim down as Boolean

Private Sub form_mousedown(button as integer,shIft as integer,X as single, Y as single)

Select Case【8】

Case 1

Down=true

Case2

Down=false

End select

End Sub

Private Sub form. mousemove(button as integer,shIft as integer,X as single, Y as single)

If 【9】then

【10】=”X-” & X & ” Y-” & Y

Else

Label1.caption=””

End If

End Sub

点击查看答案

第4题

用户与计算机进行交流时，（）是计算机最重要的输入设备

A. 鼠标

B. 数字化仪

C. 显示器

D. 键盘

点击查看答案

第5题

若在窗体模块的声明部分声明了如下自定义类型和数组： Private Type rec Code As Integer Caption As St ring End Type Dim art(5)As rec 则下面的输出语句中正确的是（）。

A.Print arr．Code(2)，art．Caption(2)

B.Print art．Code，arr．Caption

C.Print arr(2)．Code，arr(2)．Caption

D.Print Code(2)，Caption(2)

点击查看答案

第6题

以下关于局部变量的叙述中错误的是（）。

A.在过程中用Dim语句或Static语句声明的变量是局部变量

B.局部变量的作用域是它所在的过程

C.在过程中用Stalic语句声明的变量是静态局部变量

D.过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放

点击查看答案

第7题

某人编写了下面的程序，希望能把Text1文本框中的内容写到out．txt文件中： Private Sub Command1Click（） Open"out．txt" For Output As#2 Print”Text1” Close#2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是（）。

A.把Print”Text1¨改为Print#2，Text1

B.把Print”Text 1”改为Print Text1

C.把Print”Text1”改为Write”Text1”

D.把所有#2改为#1

点击查看答案

第8题

设X是整型变量，与函数IIf(x>0，-x，x)有相同结果的代数式是（）。

B.X

D.-

E.X

G.X

H.-X

点击查看答案

第9题

设a=2，b=3，c=4，d=5，下列表达式的值是（）。 Not a<=c Or 4*C=b^2 And b$amp;A.-1

B.1

C.True

D.False

点击查看答案

第10题

窗体上有一个名为Command1的命令按钮，并有如下程序： Private Sub Corqmand1_Click（） Dim a As Integer，b As Integer a=8 b=12 Print Fun(a，b)；a；b End Sub Private Function Fun(ByVal a As Integer，b AS Integer)As Integer a=a Mod 5 b=b＼5 Fun=a End Function 程序运行时，单击命令按钮，则输出结果是（）。

A.3 3 2

B.3 8 2

C.8 8 12

D.3 8 12

点击查看答案