将程序补充完整，通过Sub子过程调用求p的值：p=(3!+5!)/7!'定义子过程facSub fac(n As Integer, f As Single)Dim i As Integerf=1For i=1 To nf=f * iNext iEnd Sub'定义主调过程zhsPublic Sub zhs()Dim s1 As Single, s2 As Single, s3 As Single___(1)___ '调用子过程 fac求3!___(2)___ '调用子过程 fac求5!___(3)___ '调用子过程 fac求7!Debug.Print "P="; Format((s1 + s2) / s3, "0.###") '在立即窗口输出结果End Sub