首页 > 高职专科

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

[主观题]

下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整

下面的程序。首先在窗体层定义如下变量： Dim PaintStart As Boolean 编写如下事件过程： Private Sub Form_Load() DrawWidth=2 ForeColor=vbGreen End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_ X As Single，Y As Single) 【】 End Sub Private Sub Form_MouseMove(Button As Integer，Shift As Integer，_ X As Single，Y As Single) If PaintStart Then PSet(X，Y) End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，_ X As Single，Y As Single) 【】 End Sub Private Sub Form_Db1Click() 【】 End Sub

查看答案

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

您可能会需要：

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

安装优题宝APP，拍照搜题省时又省心！

更多“下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双…”相关的问题

第1题

设有窗体的Form__MouseMove事件过程如下：关于上述过程，以下叙述中正确的是（）

A.按下鼠标左键时，在窗体上显示检查按键

B.按下鼠标右键时，在窗体上显示检查按键

C.同时按下鼠标左、右键时，在窗体上显示检查按键

D.不论做何种操作，窗体上都不会显示

点击查看答案

第2题

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。（1) 在名称为Form1的窗体上画一个名称为H1

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

(1) 在名称为Form1的窗体上画一个名称为H1的水平滚动条，请在“属性”窗口中设置它的属性值，使之满足以下要求：它的最大刻度值为100，最小刻度值为1，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图19-1所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm

(2) 在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，均无初始内容；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个子菜单项，名称分别为Cooy和Clear、标题分别为“复制”和“清除”。请编写适当的事件过程，使得程序运行时，单击“复制”菜单项，则把 Text1中的内容复制到Text2中，单击“清除”菜单项，则清除Text2中的内容(即在Text2中填入空字符串)。程序运行界面如图19-2所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

注意：下面出现的“考生文件夹”均为c：wexam25160001。（1) 在名称为Form1的

点击查看答案

第3题

如果想保存网页上的某一幅图片，可以采用的方法有（）。

A.在“文件”菜单中单击“另存为”命令项，然后在弹出的对话框中选择“保存图片”

B.在该图片上右击鼠标，然后在弹出的快捷菜单中选择“复制”，再打开画图程序粘贴保存

C.在该图片上双击鼠标，然后在弹出的对话框中选择“图片另存为”

D.在该图片上右击鼠标，然后在弹出的快捷菜单中选择“图片另存为”

点击查看答案

第4题

阅读如下程序； Private Sub Form. Click（) msg1$=“继续吗？” msg2$=“操作对话

阅读如下程序； Private Sub Form. Click() msg1$=“继续吗？” msg2$=“操作对话框” r=MsgBox(msg1$，vbYesNo OrvbDefaultButton2，msg2$) End Sub 程序运行后，单击窗体，将产生一个信息框。此时如果直接按回车键，则相当于用鼠标单击信息框中的【】按钮。

点击查看答案

第5题

以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本

框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。 Public yx As Integer Public yy As Integer Private Sub Form_ MouseMove(Button AS Integer，Shift As Integer，_ X As Single，Y As Single) If Button=1 Then Text1．Left=【】 Text1．Top=【】 End If End Sub Private Sub Form_ MouseDown (Button As Integer，Shift As Integer，_ X As Single，Y As Single) If【】Then yx=Text1．Left-X yy=Text1．Top-Y End If If Button=2 Then Text1．Text=“X坐标：”+Str(Text1．Left)+“Y坐标：”+Str(Text1．Top) End If End Sub

点击查看答案

第6题

在窗体上设置一个命令按扭，编写的事件过程为： Private Sub Command1_Click（) Sum = 0 x =0 Do

在窗体上设置一个命令按扭，编写的事件过程为： Private Sub Command1_Click() Sum = 0 x =0 Do While x<>-1 x =InputBox$(“请输入一个正整数 x：”) Sum = Sum + x Loop Print x, SumEnd Sub 当程序运行时，单击该命令按扭，在输入对话框中依次输入3、5、7、9、-3和-1，则在窗体上出现的运行结果是：

A、-1 21

B、-1 20

C、-3 9

D、3 -1

点击查看答案

第7题

下面和程序功能是将一个由字母与数字相混的字符串中选出字符串，并把该字符串在窗体上打印出来，

请完善下面程序。

Option Explicit

Private Sub Command1_Click()

Dim s As String,k As Integer

Dim rAs String,i As Integer,tAs String

s=“aa11bb22Cc33”

For i=1 To Len(s)

t=（）

Ift ＞=“a”And t＜=“z”Or t ＞=“A”And t＜=“Z”Then

r=r & t

End If

Next i

Print r

End Sub

点击查看答案

第8题

当程序运⾏时,在窗体上单击⿏标,以下哪个事件()是窗体不会接收到的。

A.MouseDown

B.MouseUp

C.Click

D.Load

点击查看答案

第9题

以下叙述中错误的是

A.窗体或控件的事件的名称可以由编程人员确定

B.控件的名称可以由编程人员设定

C.移动鼠标时，会触发MouseMove事件

D.双击鼠标可以触发Dbl('lick事件

点击查看答案

第10题

窗体上放置有一个 TEdit类的控件Edit1，并定义了 Edit1的OnEnter 事件，下面说法正确的是：（） A

窗体上放置有一个 TEdit类的控件Edit1，并定义了 Edit1的OnEnter 事件，下面说法正确的是：（）

A.当鼠标在窗体上移动时产生 Edit1OnEnter 事件

B.其他三项都不对

C.当Edit1 获得焦点时产生 Edit10Enter事件

D.当鼠标移动到 Edit1 的上面时产生Edit1OnEnter 事件

点击查看答案

长沙壹依黑科技有限公司版权所有 ©2024

湘ICP备2024047451号营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）