(3) 2求1到6的阶乘之和。 Function fact(x as integer )as long Dim P as long, i as integer Forl to x P=(6 Next I P End function Private Sub Commandl Click( Dim sum as long, I as integer For l=l to(8 Sum=(9 Next I Label2. captionsum End sub (6) (9) 3.在下列事件过程中,如果选中复选框1,则文本变成斜体,如果选中复选 框2,则文本变成红色 Private Sub Check1 Click( If Check l value=l Then Textl. Fontltalic= (10) Else Text1. Fontltalic=False End If End Sub Private Sub Check2 Click If Check 2. value=l Then Text1.(11=brEd Else Text1.(11=vbBlack End if End Sub 如果选中单选框1,则文本字体为宋体,如果选中单选框2,则文本字体为(3) (4) 2.求 1 到 6 的阶乘之和。 Function fact(x as integer) as long Dim P as long, I as integer P= (5) For I=1 to x P= (6) Next I (7) = P End Function Private Sub Command1_Click( ) Dim sum as long, I as integer For I=1 to (8) Sum= (9) Next I Label2.caption=sum End sub (5) (6) (7) (8) (9) 3. 在下列事件过程中，如果选中复选框 1，则文本变成斜体，如果选中复选 框 2，则文本变成红色。 Private Sub Check1_Click( ) If Check1.Value=1 Then Text1. FontItalic= (10) Else Text1.FontItalic=False End If End Sub Private Sub Check2_Click( ) If Check2.Value=1 Then Text1. (11) =vbRed Else Text1. (11) =vbBlack End If End Sub 如果选中单选框 1，则文本字体为宋体，如果选中单选框 2，则文本字体为