[megaloman]

daniil_im,

так?

Код:

A = 10
B = 5
C = 1

Xmin = 3
Xmax = 10

InDann = "A=" + CStr(A) + "     B=" + CStr(B) + "      C=" + CStr(C) + vbCrLf
InDannX = InDann + "Xmin=" + CStr(Xmin) + "     Xmax=" + CStr(Xmax) + vbCrLf

Randomize
Do
    N = InputBox(InDannX + "Введите количество элементов массива", "Y(i)=A*X(i)^2+B*X(i)+C")
    If Not IsNumeric(N) Then Exit Do
    N = CInt(N) - 1
    If N < 0 Then Exit Do
    ReDim X(N)

    For i = 0 To N
        X(i) = (Xmax - Xmin) * Rnd + Xmin
    Next
    For Each xi In X
        Y = A * xi ^ 2 + B * xi + C
        MsgBox InDann + "X(i)=" + CStr(xi) + vbCrLf + "Y(i)=A*X(i)^2+B*X(i)+C=  " + CStr(Y)
    Next
Loop