填空题

在窗体上有一个文本框控件，名称为Text1。同时，窗体加载时设置其计时器间隔为1秒，计时器触发事件过程则实现在Text1文本框中动态显示当前日期和时间。请补充完整。
Private Sub From_Load()
Me. Timerinterval= 【13】
End Sub
Private Sub 【14】
Me. text1=Now()
End Sub

【参考答案】

[13] 1000
[14]Form_Timer()
<上一题 目录 下一题>
热门 试题

填空题
若窗体中已有一个名为Cmd的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码： Private Function f(x As Long) As Boolean If x Mod 2=0 Then f=False Else f=True End If End Function Private Sub Cmd_Click( ) Dim n As Long n=Val(Me! text1) p=IIf(f(n), 奇数“， 偶数 ) Me! Labell. Caption=n& 是 &p End Sub窗体打开运行后，在文本框中输入11，单击命令按钮，则标签显示内容为 【12】 。
填空题
下面VBA程序段运行时，内层循环的循环总次数是 【15】 For m = 0 To 7 step3 For n = m To m+1 Next n Next m
相关试题