下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整
A.按下鼠标左键时,在窗体上显示检查按键
B.按下鼠标右键时,在窗体上显示检查按键
C.同时按下鼠标左、右键时,在窗体上显示检查按键
D.不论做何种操作,窗体上都不会显示
注意:下面出现的“考生文件夹”均为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。
A.在“文件”菜单中单击“另存为”命令项,然后在弹出的对话框中选择“保存图片”
B.在该图片上右击鼠标,然后在弹出的快捷菜单中选择“复制”,再打开画图程序粘贴保存
C.在该图片上双击鼠标,然后在弹出的对话框中选择“图片另存为”
D.在该图片上右击鼠标,然后在弹出的快捷菜单中选择“图片另存为”
阅读如下程序; Private Sub Form. Click() msg1$=“继续吗?” msg2$=“操作对话框” r=MsgBox(msg1$,vbYesNo OrvbDefaultButton2,msg2$) End Sub 程序运行后,单击窗体,将产生一个信息框。此时如果直接按回车键,则相当于用鼠标单击信息框中的【 】按钮。
在窗体上设置一个命令按扭, 编写的事件过程为: 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
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
A.窗体或控件的事件的名称可以由编程人员确定
B.控件的名称可以由编程人员设定
C.移动鼠标时,会触发MouseMove事件
D.双击鼠标可以触发Dbl('lick事件
窗体上放置有一个 TEdit类的控件Edit1,并定义了 Edit1的OnEnter 事件,下面说法正确的是:()
A.当鼠标在窗体上移动时产生 Edit1OnEnter 事件
B.其他三项都不对
C.当Edit1 获得焦点时产生 Edit10Enter事件
D.当鼠标移动到 Edit1 的上面时产生Edit1OnEnter 事件