Labell Caption="今天是:"&Chr(13)& Formato(Date,"d" End sub 用同样的方法,输入命令按钮 Command1和 Command2的单击 ( Click)事件过程代码: Private Sub Commandl click Labell Caption="欢迎使用"&Chr(13)&" Visual basic”" End sub Private Sub Command2 Click Label l Caption="现在是北京时间:"& Format(Time," ttttt") End sub 说明:事件过程的首尾两行(粗体): Private Sub Commandl click End sub 是系统自动给出的代码,程序员不必重复输入Label1.Caption = "今天是：" & Chr(13) & Format(Date, "dddddd") End Sub 用同样的方法，输入命令按钮Command1和Command2的单击 （Click）事件过程代码： Private Sub Command1_Click() Label1.Caption = "欢迎使用" & Chr(13) & "Visual Basic" End Sub Private Sub Command2_Click() Label1.Caption = "现在是北京时间：" & Format(Time, "ttttt") End Sub 说明：事件过程的首尾两行（粗体）： Private Sub Command1_Click() End Sub 是系统自动给出的代码，程序员不必重复输入