[填空題] 在窗體上有5個(gè)控件：一個(gè)名稱為Text1的文本框控件，用來顯示文本；兩個(gè)名稱分別為Check1(設(shè)置顯示文本的下劃線)和Check2(設(shè)置顯示文本的加粗)的復(fù)選框；兩個(gè)名稱分別為Option1(設(shè)置字的大小為12磅)和Option2(設(shè)置字的大小為16磅)的單選按鈕。當(dāng)Check1被選中時(shí)，文本框中顯示的字體加下劃線，當(dāng)Option2被選中時(shí)，文字框中顯示的字體大小為16磅，程序運(yùn)行時(shí)的界面如圖20-5所示。請(qǐng)?zhí)羁铡?/p>

Private Sub Check1_Click()

If Check1．Value= 【7】 Then

Text1．FontUnderline=True

Else

Text1．FontUnderline=False

End If

End Sub

Private Sub Option2_Click()

Text1． 【8】

End Sub

[7]1 [8]FontSize=16

當(dāng)復(fù)選框Check1被選中時(shí)，將使Text1中顯示的文字加上下劃線，判斷復(fù)選框是否被選中，可以看它的Value屬性值，當(dāng)它的值為0時(shí)表示沒有被選中，為1時(shí)表示被選中，為2時(shí)表示復(fù)選框變灰。要改變文本框中顯示字體的大小，可設(shè)置它的FontSize屬性，要把Text1中顯示的字的大小變?yōu)?6磅，可使用下面的語句：Text1.FontSize=16。