UC知道一道有关vb编程的题目
来源：百度知道 编辑：UC知道 时间：2024/05/16 12:54:06
请各位大虾帮我解决一道vb的题目
他说要在窗体上放个标签label1，一个命令按钮command1，当窗体启动时使标签居于窗体的中间，并显示系统的当前时间，命令按钮显示为“放大”，当单击命令按钮时，将标签中显示文字放大1～3倍（随即决定），并重新显示系统的当前时间。
特别说一下系统当前时间的代码，谢谢～～～～～～～～
那放大的代码也说一下好哇谢谢啦
他说要在窗体上放个标签label1，一个命令按钮command1，当窗体启动时使标签居于窗体的中间，并显示系统的当前时间，命令按钮显示为“放大”，当单击命令按钮时，将标签中显示文字放大1～3倍（随即决定），并重新显示系统的当前时间。
特别说一下系统当前时间的代码，谢谢～～～～～～～～
那放大的代码也说一下好哇谢谢啦
Private Sub form_load()
Show
Label1.AutoSize = True
Label1.Caption = Str(Time())
Label1.Top = Val(Form1.Height) / 2 - Val(Label1.Height) / 2
Label1.Left = Val(Form1.Width) / 2 - Val(Label1.Width) / 2
Command1.Caption = "放大"
End Sub
Private Sub command1_click()
Label1.FontSize = Val(Label1.FontSize) * 3
Label1.Caption = Str(Time())
Label1.Top = Val(Form1.Height) / 2 - Val(Label1.Height) / 2
Label1.Left = Val(Form1.Width) / 2 - Val(Label1.Width) / 2
End Sub
Label1.Caption = Now
now就是当前系统时间