以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以 5余3，除以7余4，则输出；否则，将焦点定位在文本框Text中，选中其中的文本。
Private Sub Command1_Click()
x＝Val(Text1.Text)
If 【9】 Then
Print x
Else
Text1.SetFoeus
Text1.SetStart＝0
End If
End Sub

认真阅读给定资料7，结合大运河的历史与现状，自拟题目，自选角度，写一篇文章，谈谈你对大运河申遗工作的看法。
要求：(1)中心论点明确，立意有高度。
(2)内容充实，有说服力。
(3)语言流畅，不少于1200字。