首页 > 计算机应用技术> 平面图像软件设计与应用

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

[主观题]

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

下面的程序。首先在窗体层定义如下变量： 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题

程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是Click。()

程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是Click。（)

A.正确

B.错误

点击查看答案

第2题

在下列动作中，不能引发命令按钮Click事件的是()。

A.把焦点转移到按钮上，然后按回车

B.如果按钮有快捷字母键，按Alt+快捷字母键

C.在按钮上单击鼠标左键

D.在按钮上单击鼠标右键

点击查看答案

第3题

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

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

点击查看答案

第4题

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

框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。 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

点击查看答案

第5题

在窗体上创建一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.T

ext=“” Text1.SetFocus End Sub Private Sub Form. _MouseUp(Button As Integer,Shift As Integer, X As Single, Y As Single) Print“程序设计”End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print“Visual Basic”; End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是()。

A.“程序设计”

B.“Visual Basic程序设计”

C.Visual Basic

D.“A程序设计”

点击查看答案

第6题

以下有关Windows“画图”程序的说法中，不正确的是（)。

A.绘图区的大小不是固定的，可以更改

B.能够选择图画中的矩形区域，还能选择其他形状的区域

C.绘制直线时可以选择线条的粗细

D.在调色板的色块上单击鼠标左键可以设置当前的背景色

点击查看答案

第7题

以下有关Windows“画图”程序的说法中，正确的是____。

A.绘图区的大小是固定的，不可以更改

B.只能够选择图画中的矩形区域，不能选择其它形状的区域

C.绘制直线时可以选择线条的粗细

D.在调色板的色块上单击鼠标左键可以设置当前的背景色

点击查看答案

第8题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（)x=-5 If x＞0 Then y=x∧2 Else y=x End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是（)。

A.-5

B.25

C.1

D.-1

点击查看答案

第9题

窗体的MouseDown事件过程如下： Form_MouseDown(Button As Integer,Shift As Integer, X As Single, Y As Single) 其中有4个参数，关于这些参数，正确的描述是()。

A.通过Button参数判定当前按下的是哪一个鼠标键

B.参数x、y用来设置鼠标当前位置的坐标

C.Shift参数只能用来确定是否按下Shift键

D.Shift参数只能用来确定是否按下Alt键和Ctrl键

点击查看答案

第10题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（）

Dim a As Integer, s As Integer

a = 8

s = 1

Do

s = s + a

a = a－1

Loop While a ＜＝ 0

Print s; a

End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是（）。

A.7 9

B.34 0

C.9 7

D.死循环

点击查看答案

第11题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num > 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是()。

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num ＞ 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是()。

A.无数据输出

B.1 3.4 5.8

C.1 4 7

D.1 3 5

点击查看答案

湖南拓肯信息安全技术有限公司版权所有 ©2024

湘ICP备19012461号-1 湘公安备案43019002002173号营业执照

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

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