求助

只看图不会啊

time啦

那让它显示时间的程序怎么编呀

没一秒获得系统时间

怎么输入呢

做出来是这样诶

输入这个 label1.caption =time，要这样诶

看到那个A了吗？ 把它添加到窗体上

*添加 Command1 Command2 Timer1 Label1 (不会添加的话也别问我)
Option Explicit *强制必须声明变量
Private Sub Form_Load() *窗体初始载入事件
Timer1.Interval = 200 *设置定时器激发间隔为200毫秒
Timer1.Enabled = False *设置定时器当前为 不可用
Command1.Caption = "显示时间" *设置按钮1的标题名称
Command2.Caption = "结 束" *设置按钮2的标题名称
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 *窗体居中
Me.Caption = "第一个程序" *设置窗体标题名称
End Sub
Private Sub Command1_Click() *按钮1点击事件
Timer1.Enabled = Not Timer1.Enabled *让定时器控件Timer1的可用或禁用属性反向
*如果定时器Timer1当前可用则按钮1的标签标题改为 暂停显示,否则改为 显示时间
Command1.Caption = IIf(Timer1.Enabled, "暂停显示", "显示时间")
End Sub
Private Sub Command2_Click() *按钮2点击事件
Unload Me *结束退出程序
End Sub
Private Sub Timer1_Timer() *定时器事件
Label1.Caption = Time$ *在标签控件Label1显示当前时间
End Sub

多谢各位啦

晚安