Вычислить значение ф-ции при изменении х от 3 до 15 с шагом 0,5

Private Sub Command1_Click()
n = Val(InputBox("Введите значение n", "", 26))
Step = 0.5
S = 0
For x = 3 To 15 Step 0.5
    S = S + ((n + 1) * x + (n + 2) * x + (n + 3) * x) + x
Next
Unload Form1
Load Form2
Form2.Show 1
End Sub
Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Label1.Caption = "S = " + Str(S)
End Sub

Public S As Double

Dim s As Double
Dim n As Double
Dim x As Double
 
Private Sub Command1_Click()
n = Val(InputBox("Ââåäèòå çíà÷åíèå n", "", 26))
Step = 0.5
s = 0
For x = 3 To 15 Step 0.5
    s = s + ((n + 1) * x + (n + 2) * x + (n + 3) * x) + x
Print s;
Next x
End Sub
Private Sub Command2_Click()
End
End Sub

Print "s=s+"; s

Public S As String

Private Sub Command1_Click()
Dim n As Single, x As Single
n = Val(InputBox("Введите значение n", "", 26))
For x = 3 To 15 Step 0.5
    S = S & "x = " & x & "      Y = " & _
    ((n + 1) * x + (n + 2) * x + (n + 3) * x) + x & vbCrLf
Next
Unload Form1
Load Form2
Form2.Show 1
End Sub

Private Sub Form_Load()
Label1.Caption = S 
End Sub