在横线处写出诗文原句。

①莫春者，春服既成，冠者五六人，童子六七人，浴乎沂，_________________，咏而归。（《论语·子路曾皙冉有公西华侍坐》）

②或取诸怀抱，悟言一室之内；或因寄所托，_________________。（王羲之《兰亭集序》）

③问今是何世，乃不知有汉，_________________。（陶渊明《桃花源记》）

④_________________，烟光凝而暮山紫。（王勃《滕王阁序》）

⑤小楼昨夜又东风，_________________。（李煜《虞美人》）

⑥_________________。芳草无情，更在斜阳外。（范仲淹《苏幕遮》）

⑦青山遮不住，_________________。（辛弃疾《菩萨蛮》）

⑧地也，你不分好歹何为地！天也，_________________！（关汉卿《窦娥冤》）

在窗体上建立一个单选按钮组Option1和一个图片框Picture 1，如图所示。当选择不同的单选按钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。

Private Sub Option1_Click(______)
Dim H.W
Picture1.Cls
Picture1.FillStyle=______
W=Picture1.ScaleWidth/2
H=Picture1.ScaleHeight/2
Picture1.Circle(W,H),W/2
End Sub