编程输出以下图片效果：要求：程序一启动显示当前系统时间，点击“刷新”按钮刷新为当前系统时间。编程输出以下图片效果：要求：程序一启动显示当前系统时间，点击“刷新”按钮刷新为当前系统时间。

要求：程序一启动显示当前系统时间，点击“刷新”按钮刷新为当前系统时间。编程输出以下图片效果：要求：程序一启动显示当前系统时间，点击“刷新”按钮刷新为当前系统时间。

Private Sub Command1_Click()
Label2.Caption = Format(Time, "hh:mm:ss AM/PM")
End Sub

Private Sub Form_Load()
Label1.Caption = "Current time is:"
Label1.FontSize = 16
Label1.ForeColor = &H4AE642
Label1.Font.Bold = True
Label1.Font = "times new roman"
Label2.Caption = Format(Time, "hh:mm:ss AM/PM")
Label2.ForeColor = &HFF00FF
Label2.FontSize = 25
Command1.Caption = "刷新"
Label2.Font = "times new roman"
End Sub


字体和颜色可能没对上号，不过功能已经实现，这是VB6代码，运行截图：

dim times as datas

dim str as string

public sub form_onload()

times=time()

str="current time is" & "br" & times

this.lable.text=str

end sub

private sub refresh_onclick()

times=time()

str="current time is" & "br" & times

this.lable.text=str

end sub

load 的时候~

this.lable.text=system.datetime.now.tostring();

刷新的时候。。

this.lable.text=system.datetime.now.tostring();