Dim a As StringPrivate Sub Command1_Click() Me.Cls If a = "Hi！朋友，您好" Then a = "再见，欢迎再次光临" Else a = "Hi！朋友，您好" End If Print aEnd Sub
