[单选题]

窗体上放置有一个 TEdit类的控件Edit1,并定义了 Edit1的OnEnter 事件,下面说法正确的是:( )

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

B.其他三项都不对

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

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

参考答案与解析:

相关试题

窗体上放置有一个 TEdit类控件Edit1,当在 Edit1中按下‘A’键时触

[单选题]窗体上放置有一个 TEdit类控件Edit1,当在 Edit1中按下‘A’键时触发的事件和事件顺序是:A.OnKeyDown->OnKeyPress->OnKeyUpB.OnKeyDown->OnKeyUpC.OnKeyPress ->OnKeyDownD.OnKeyDown->OnKeyUp->OnKeyPress

  • 查看答案
  • 窗体上放置有一个 TPanel类的控件Panel1,并定义了Panel1的 On

    [单选题]窗体上放置有一个 TPanel类的控件Panel1,并定义了Panel1的 OnEnter事件,下面说法正确的是:A.当鼠标移动到 Panel1 上面时产生Panel1OnEnter 事件B.其他三项都不对C.当Panel1 获得焦点时产生 Panel1OnEnter 事件D.当鼠标在窗体上移动时产生 Panel1OnEnter 事件

  • 查看答案
  • 在表单FORM1中有一个编辑框EDIT1,一个文本框TEXT1和一个命令按钮CO

    [单选题]在表单FORM1中有一个编辑框EDIT1,一个文本框TEXT1和一个命令按钮COMMAND1,现要使文本框显示编辑框中被选定的内容,应在COMMAND1的CLICK事件中编写的代码是()。

  • 查看答案
  • 往窗体Form1上添加一个列表框控件List1,并编写如下代码:Private

    [单选题]往窗体Form1上添加一个列表框控件List1,并编写如下代码: Private Sub Form_Load() For i=0 To 6 List1.AddItem i Next i End Sub 为了在程序运行时,按住Ctrl键单击列表中的项目可以选中多个项目,可以设置List1的属性______。A.List1. ListB.List1. ListIndexC.List1. MultiSelectD.List1. Text

  • 查看答案
  • 往窗体Form1上添加一个列表框控件List1,并编写如下代码:Private

    [单选题]往窗体Form1上添加一个列表框控件List1,并编写如下代码: Private Sub Form_Load() For i=0 To 6 List1.AddItemi Next i End Sub 为了在程序运行时,按住Ctrl键单击列表中的项目可以选中多个项目,可以设置List1的属性 ______。A.List1.ListB.List1.ListIndexC.List1. MultiSelectD.List1.Text

  • 查看答案
  • 在窗体上建立一个命令控件数组Command1,并双击第一个命令按钮,编写如下事件

    [单选题]在窗体上建立一个命令控件数组Command1,并双击第一个命令按钮,编写如下事件过程:以下描述正确的是( )。A. 当单击某个命令按钮时,数组中所有命令按钮的Caption属性将被设置为当前时间B. 当单击某个命令按钮时,该按钮的Caption属性将被设置为当前时间C. 程序有错误D. 窗体的Caption属性将被设置为当前时间

  • 查看答案
  • 在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:Option

    [单选题]在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:Option Base1Private Sub Command1_Click()D.im c As Integer,d As Integerd=0c=6X=Array(2,4,6,8,10,12)F.or i=1 To 6If X(i)>c Thend=d+X(i)c=X(i)E.lsed=d-cE.nd IfNext iPrint dE.nd Sub程序运行后,单击命令按钮,则在窗体上输出的内容为( )。A.10B.12C.1

  • 查看答案
  • 在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:Option

    [单选题]在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:Option Base 1Pdvate Sub Command1_Click()D.im c As Integer,d As Integerd=0c=6X=Array(2,4,6,8,10,12)F.or i=1 To 6If X(i)>c Thend=d+X(i)c=X(i)E.lsed=d-cE.nd IfNext iPrint dE.nd Sub程序运行后,单击命令按钮,则在窗体上输山的结果是( )。A.10B.12

  • 查看答案
  • 在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Optio

    [单选题]在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Option Base 1Private Sub Commandl_Click0Dim C As Integer, d As Integer d=0 c=6 X = Array(2, 4, 6, 8, 10, 12) For i= 1 To 6 If X(i) > c Then d = d + X(i) c = X(i) Else d=d-c End If Next i Print dEnd Sub程序运行后,单击命令按钮,则

  • 查看答案
  • 在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Optio

    [单选题]在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Option Base 1 Private Sub Command1_Click() Dim c As Integer , d As Integer d = 0 c = 6 X = Araay(2,4,6,8,10,12) For i = 1 To 6 If X(i)> c Then d = d + X(i) c = X(i) Else d = d - c End If Next i Print d End Sub程序运行后,

  • 查看答案