程序如下: Private Sub ct Click( Text1. Font Bold s not text1. Font Bold End sub Private Sub er click Text 1. Fontsize= 20 End sub 请单属标左键换页程序如下: Private Sub ct_Click() Text1.FontBold = Not Text1.FontBold End Sub Private Sub er_Click() Text1.FontSize = 20 End Sub