Option Explicit
Private Sub Command1_Click()
Print Text1.Text & "：欢迎你！"
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Command1.Caption = "打印"
Command2.Caption = "退出"
Text1.Text = vbNullString
End Sub
运行效果：
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024