Помогите студенту решить задачи

[traden24]

задача на цикл for ... next and do ... loop
условие:
y = Sqr(i * b - b ^ 2 * a)
z = y * Tan(n / 4) - Exp(1 + b) / 100
for ... next
a = 0.12*10^-3
b = 8.5
n = 2
i = (2;1;8.3)
do ... loop
i = 1(0.5)10

[SAS888]

Для For...Next примерно так:

Sub For_Next()

    Dim j As Integer, y, z
    Const A = 0.12 * 10 ^ -3
    Const b = 8.5
    Const n = 2
    Arr = Array("2", "1", "8,3")
    
    For j = 0 To 2
        i = Arr(j)
        y = Sqr(i * b - b ^ 2 * A)
        z = y * Tan(n / 4) - Exp(1 + b) / 100
        Msg = Msg & "z(" & j & ") = " & z & vbCrLf
    Next j
    MsgBox Msg
      
End Sub

А для Do...While...Loop я не понял, что значит "i = 1(0.5)10"?

[Pavel55]

может это шаг ? )

[Alkaline]

Помогите решающим задачи понять студента. "))