Составить программу и вычислить. Visual Basic - VB

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

Составить программу и вычислить:; Для организации цикла при вычислении Z1 использовать оператор цикла while..do.

Решение задачи: «Составить программу и вычислить. Visual Basic»

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

                            Option Explicit
'Option Base 1
 
Private Sub Command1_Click()
    Dim A() As Integer, ak As Integer, h As Integer, i As Integer, j As Integer
    Dim b, k As Single, c As Single, Z() As Single, x As Single
    ReDim A(0), Z(0)
    A(0) = 12: ak = 24: h = 4: k = 25 * (10 ^ (-3)): c = 3.6
    b = Array(0, 0.065, 9.2, 12.82)
    For j = 1 To 3
        x = x + (b(j) / c) + Sqr(b(j))
    Next j
    AutoRedraw = True
    Do While A(i) <= ak
       Z(i) = A(i) / 6 + k * Exp(2) * x
       Print "A(" & i & ")=" & A(i), "Z(" & i & ")=" & Z(i)
       i = i + 1
       ReDim Preserve A(i), Z(i)
       A(i) = A(i - 1) + h
    Loop
End Sub
                        