五、程序填空。(共24分,每空2分) 1.编写一个计算矩形面积的Sub过程,然后调用该过程计算矩形面积。 Private Sub Form Click) Dim AAs Single, BAs D) A= Val(InputBox What is the length? )) B=Val( InputBox( What is the width? ) Call Recarea((2 B End sub Sub recarea(rlen As single, Rwid As single Dim area as single Area Msg Box Total Area is 4 输出矩形面积 End sub (2) (4) 2求1到6的阶乘之和 Private Sub Commandl click Dim iAs Integer,jAs Integer, n As Integer Dim suml As Long, sum2 As Long 5) suml=(6 Fori=l ton sum2=7 sum2 Next i Labell Caption= Labell Caption+ Str(suml) End sub (9) 3.在下列事件过程中,如果选中复选框1,则文本变成斜体,如果选中复选框2, 则Tex1的前景色变成红色 Private Sub CheckI Click) If Check value=l Then Textl. Fontltalic=(10 Else Textl. Fontltalic=False五、 程序填空。（共 24 分, 每空 2 分） 1．编写一个计算矩形面积的 Sub 过程，然后调用该过程计算矩形面积。 Private Sub Form_Click( ) Dim A As Single, B As (1) A = Val(InputBox("What is the length? ")) B =Val( InputBox("What is the width? ")) Call Recarea ( (2) , B ) End Sub Sub Recarea(Rlen As Single, Rwid As Single) Dim Area As Single Area = (3) MsgBox "Total Area is " & (4) ‘输出矩形面积 End Sub (1) (2) (3) (4) 2.求 1 到 6 的阶乘之和。 Private Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer Dim sum1 As Long, sum2 As Long n = (5) sum1 = (6) For i = 1 To n sum2 = (7) For j = 1 To i sum2 = (8) Next j sum1 = (9) Next i Label1.Caption = Label1.Caption + Str(sum1) End Sub (5) (6) (7) (8) (9) 3. 在下列事件过程中，如果选中复选框 1，则文本变成斜体，如果选中复选框 2， 则 Text1 的前景色变成红色。 Private Sub Check1_Click( ) If Check1.Value=1 Then Text1. FontItalic= (10) Else Text1.FontItalic=False