vb编程题1.在窗体上创建一个文本框，当单击文本框时，文本框中轮流显示当前日期及当前时间。用vb怎么编程？

Question

如题所述

Answer 1

在窗体上添加一个文本框、一个时钟空间，代码如下：
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Text1.Text = ""
End Sub

Private Sub Text1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static N As Integer
N = N + 1
If N Mod 2 = 1 Then Text1.Text = Date Else Text1.Text = Time
End Sub