dim aa
' 这儿是加进去的,定义aa为全局变量,这样才能使后面输入能传到 text1中++++Private Sub clean_Click()Text1.Text = ""
'清空Text1End SubPrivate Sub fon20_Click()Text1.FontSize = 20
'Text1的字号设为 20End SubPrivate Sub fonbold_Click()Text1.FontBold = True
'Text1的字型 加粗End SubPrivate Sub fonitalic_Click()Text1.FontItalic...