首页 > 大学专科> 电子信息

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

[主观题]

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

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

注意：下面出现的“考生文件夹”均为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的

点击查看答案

第2题

把窗体的KeyPreview属性设置为True，并编写如下两个事件过程： Private Sub For_KeyDown（Ke

把窗体的KeyPreview属性设置为True，并编写如下两个事件过程： Private Sub For_KeyDown(KeyCode As Integer，Shift As Integer) Print KeyCode End Sub Private Sub Fora_KeyPress(Key Ascii AS Integer) Print Key Ascii。 End Sub 程序运行后，如果按下A键，则在窗体上输出的数值为【】和【】。

点击查看答案

第3题

在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress（KeyAscii

在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) …… End Sub 假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是______。

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题

（1）在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图64－3所示

（1）在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图64-3所示。程序运行后，单击“计算”命令按钮，通过在对话框输人整数12，放入整型变量a中，然后计算a!（提示：运算结果应放入Long型变量中），在文本框中显示结果，如图64-4所示，并把结果存入文件out．txt中。考生文件夹中有一个标准模块mode．bas，该模块中提供了保存文件的过程PutData，考生可以直接调用。

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

（1）在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图6

（2）在考生文件夹中有一个工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字进行相应的设置，如图64-5所示。

（1）在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图6

窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。

注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的文件。

点击查看答案

第7题

在名为Form1的窗体上绘制一个文本框，其名称为Text1，初始内容为空白；然后再绘制3个单选按钮，其名

称分别为Opt1、Opt2和Opt3，标题分别为“体育”、“音乐”和“美术”。编写适当的事件过程，使程序运行后，若选择单选按钮“体育”，则在文本框中显示“90”：如果选择单选按钮“音乐”，则在文本框中显示“89”；如果选择单选按钮“美术”，则在文本框中显示“80”。程序的运行情况如下图所示。

在名为Form1的窗体上绘制一个文本框，其名称为Text1，初始内容为空白；然后再绘制3个单选按钮，

注意：

程序中不得使用变量，事件过程中只能写一条语句：文件必须存放在考生文件夹中，工程文件名为execise76.vbp，窗体文件名为execise76.frm。

点击查看答案

第8题

画图程序中颜料盒下方的前景色、背景色方框的颜色（）

A.鼠标指向画图区域中点击鼠标右键

B.鼠标指向画图区域中点击鼠标右键

C.鼠标指向颜料盒中点击

D.鼠标指向颜料盒中背景色方框上点击鼠标右键

点击查看答案

第9题

”画图”应用程序可以在”开始”菜单中，选中”程序”,然后选中”附件”中的“画图”单击鼠标打开（）

点击查看答案

第10题

在画图程序中，如果用铅笔画线时，要想画出直线，需要同时按下Shift键。（)

在画图程序中，如果用铅笔画线时，要想画出直线，需要同时按下Shift键。()

点击查看答案

长沙黎曼智能科技有限公司版权所有 ©2024

湘ICP备19009690号-1 湘公安备案43019002001016号营业执照

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

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