Private Sub Command1_Click() Me.Cls Print Text1; "与今天相差"; DateDiff("d", Text1, Now); "天"End SubPrivate Sub Form_Load() Text1 = "" Command1.Caption = "确定"End Sub界面只有一个文本框和一个按钮。