A-A+

程序是一个窗体双击事件代码窗体的名称是Mywindow。窗体上有一个名为Text1的文本框

2022-08-12 20:25:31 问答库阅读 197 次

问题详情

程序是一个窗体双击事件代码，窗体的名称是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]处填：SubMywindow_DblClick()。[13]通过For循环，寻找1至100之间可以被20整除的数，找到了，则执行语句使文本框显示“窗体能够触发双击事件”，故本处应填：Textl.text；“窗体可以触发双击事件”。即把字符串“窗体能够触发双击事件”赋给Text1的text属性。