就是这道题，实在做不出了，麻烦老师们不吝赐教，写下代码

你联系我 我给你答案 Q:781399400

Private Sub Check1_Click()
If Check1.Value = 0 Then
Text1.FontUnderline = False
Else
Text1.FontUnderline = True
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 0 Then
Text1.FontStrikethru = False
Else
Text1.FontStrikethru = True
End If
End Sub
'其中option1为控件数组
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Text1.FontBold = False
Text1.FontItalic = False
Case 1
Text1.FontBold = True
Text1.FontItalic = False
Case 2
Text1.FontBold = False
Text1.FontItalic = True
Case 3
Text1.FontBold = True
Text1.FontItalic = True
End Select
End Sub