在窗体上有一个名称为Text1的文本框，有3个单选按钮，这3个单选按钮构成一个控件数组，名称为Option1。要求程序执行时，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮执行更改，如图所示。请填空。

Private Sub Option1__Click(Index As Integer)
Select Cage______
Case 0
a="宋体"
Case 1
a="黑体"
Case 2
a="楷体 GB2312"
End Select
Text1.______=a
End Sub