Скажите, пожалуйста,в чем ошибка - VB

Формулировка задачи:

Private Sub CommandButton1_Click()
Dim x As Single, y As Single
For x = 0.5 To 2.5 Step 0.5
y = 1 / x * Sqr(1 + z ^ 2)
"y("+ x +") =" +1 / (x * Sqr(1 + x ^ 2))    
Next
End Sub

Решение задачи: «Скажите, пожалуйста,в чем ошибка»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_Click()
    Dim x As Single, y As Single
    For x = 0.5 To 2.5 Step 0.5
        y = 1 / x * Sqr(1 + x ^ 2)
        MsgBox "y (" & x & ") = " & y
    Next
End Sub
                        

Оцени полезность:

12 голосов , оценка 4.083 из 5

Похожие ответы