VBA в екселе

[Tolian92]

вот две сделал,а третью не могу сделать никак(

Sub Macros 1
Dim x As Single, s As Single
Max= -10^20
S= InputBox("введите значение b")
b= Val(S)
For x = 0 To 20 Step 1.5
If x <= 3 Then 
y=b*cos(4*x)
Else If x<6 Then
y=Tan(2*x)+b^2*x
Else
y=Sin(x*b/2)
EndIf
MsgBox y
If y>Max Then Max=y
End If
Next x
MsgBox Max
End Sub

Sub задание 2()
Dim: As Integer ,s As Single
S=0
P=1
For k=2 To 10
P=P*k
S=S+(P/2(2k-1)^2)
Next
MsgBox S
End Sub

[DiemonStar]

Function F()
  Sm = 0
  S = -1/243
  I = 5
  While S/(I*I) >= 0,001
     Sm = Sm + S / (I*I)
     S = -S / 3
     I = I + 1
  Wend 
  F = Sm
End Function

попробуйте так (не проверял)

[Tolian92]

а можно сам код?