Private Sub ht_ click( Text1 FontName="黑体 End sub Private Sub Ish Click ext1 FontName="隶书 End sub Private Sub quit Click End End sub 请单属标左键换页Private Sub ht_Click() Text1.FontName = "黑体" End Sub Private Sub lsh_Click() Text1.FontName = "隶书" End Sub Private Sub quit_Click() End End Sub