Размерность массива задается пользователем - VB

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

Здравствуйте! Надо чтобы размерность массива задавал пользователь. Сделал как в примере, но программа жалуется на Dim x(n), f(n) As Single что требуется постоянное выражение.

Private Sub Command1_Click()
Cls
Randomize
Dim y As Single
Dim i As Integer
y = Rnd * 10
n = InputBox("Input n")
Dim x(n), f(n) As Single
For i = 1 To n
    x(i) = Rnd * 10
    f(i) = y ^ 2 + x(i) ^ 2 + 5 * x(i) * y + 78
    Print "x=" & Format(x(i), "0.0") & "      f=" & Format(f(i), "0.00")
Next i
End Sub

Решение задачи: «Размерность массива задается пользователем»

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

                            Private Sub Command1_Click()
Cls
Randomize
Dim y As Single
Dim i As Integer
Dim x() As Single, f() As Single
y = Rnd * 10
n = InputBox("Input n")
ReDim x(n)
ReDim f(n)
 
 
For i = 1 To n
    x(i) = Rnd * 10
    f(i) = y ^ 2 + x(i) ^ 2 + 5 * x(i) * y + 78
    Print "x=" & Format(x(i), "0.0") & "      f=" & Format(f(i), "0.00")
Next i
End Sub
                        

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

6 голосов , оценка 4.333 из 5

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