程序是一个窗体双击事件代码,窗体的名称是Mywindow。窗体上有一个名为Text1的文本框,用来显示文本。 程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除;重复上述过程5次。 Option Explicit Pri

admin2009-02-13  28

问题 程序是一个窗体双击事件代码,窗体的名称是Mywindow。窗体上有一个名为Text1的文本框,用来显示文本。
   程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除;重复上述过程5次。
    Option Explicit
    Private【  】
    Dim k As Integer
    For k=1 to 100
        If k Mod 20 Then
   【  】
      Else
         Text1.Text=""
         End lf
      Print“程序运行完毕,可再双击窗体”
   End Sub

选项

答案Sub Mywindow_DblClick( ) , Text1.text=“窗体可以触发双击事件”

解析 响应窗体及控制事件的程序代码格式为“Sub窗体或控件名称—事件(  )”。本题需要响应Mywindow窗体的双击事件代码。双击事件用DblClick表示,故[12]处填:Sub Mywindow_DblClick(     )。 [13] 通过For循环,寻找1至100之间可以被20整除的数,找到了,则执行语句使文本框显示“窗体能够触发双击事件”,故本处应填:Textl.text;“窗体可以触发双击事件”。即把字符串“窗体能够触发双击事件”赋给Text1的text属性。
转载请注明原文地址:https://kaotiyun.com/show/p61p777K
0

最新回复(0)