参考答案

Private Sub Op1_Click()
    Text1 = "颐和园"
End Sub
Private Sub Op2_Click()
    Text1.Text = "兵马俑"
End Sub
Private Sub Op3_Click()
    Text1.Text = "西湖"
End Sub