请根据提示填写相应的古诗文。

①“大爱无私，真情无悔”，李商隐在《无题》中用 “                         ，                      ”来向世人诠释了这一种高尚的品质，这种不朽的感情。

②白居易用“可怜身上衣正单，心忧炭贱愿天寒。”表现卖炭翁的矛盾心理，在《观刈麦》中诗人也用“____________________，____________________”来表现对劳动人民的同情。 ③《关雎》是一首优美的恋歌，开头两句“_________________，__________________”成功地运用了比兴手法，为下文抒发爱情创造了情意绵绵的意境。

④《渔家傲》中抒发壮志难酬的感慨和思乡忧国的情怀的诗句是“_________________，__________________。”

⑤站在江边，微风轻拂，江水浩淼，波平浪静一叶白帆悠然的飘荡在江面上，恰似王湾《次北固山下》中“________    ___   ______，__________      ______”的美景。

下列程序段实现的功能为：在文本框中输入一个整数，然后判断该整数的奇偶性。请完成相应的程序代码。 Private Sub Command1_Click() Dim x AS Integer x=Val(Right (Text1．Text，2)) If x Mod 2=0 ThenLabe11．Caption=“偶数” Else Labe11．Caption=“奇数” End If Text1．SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If 【10】 ThenKeyAscii=0 End Sub