Question

Проверьте правильность написания кода для Visual Basic
Тема "Программирование задач в VB, содержащие сложные циклы"
___________________________________________________________________________
___________________________________________________________________________
Private Sub Command1_Click()
Dim x, y, s, p, f, f1, a, t As Single
x = -5
p = 1
For n = 2 To 7
f = 1
For a = 1 To n - 1
f = f * a
Next a
p = p * ((n + 1) / (n - 1))
Next n
s = 0
For k = 3 To 6
f1 = 1
For t = 1 To 2 * k
f1 = f1 * t
Next t
s = s + (2 * k / (k ^ 3 + 5))
Next k
z = p ^ 3 - 1
Print z
End Sub

Answer 1

Private Sub Command1_Click()
Dim x, p, s, f, f1, z As Single
Dim n, k As Integer
x = -5
p = 1
For n = 2 To 7
f = 1
For k = 1 To n - 1
f = f * k
Next k
p = p * ((n + 1) / (n - 1))
Next n
s = 0
For k = 3 To 6
f1 = 1
For n = 1 To 2 * k
f1 = f1 * n
Next n
s = s + (2 * k / (k ^ 3 + 5))
Next k
z = p ^ 3 - 1
Print z
End Sub