Размерность массива задается пользователем - VB
Формулировка задачи:
Здравствуйте! Надо чтобы размерность массива задавал пользователь. Сделал как в примере, но программа жалуется на Dim x(n), f(n) As Single что требуется постоянное выражение.
Решение задачи: «Размерность массива задается пользователем»
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