Visual Basic цикл For - VB
Формулировка задачи:
Задача : Дано: натуральное n ( 1 < = n < = 8 ), действительные y1,..,yn.
Найти: max(|z1|,..., |zn|), где zi = yi при |yi|<=2 или zi=0,5 в противном случае.
Значение n с помощью элемента textbox. Последовательность чисел y1,..,yn ввести пооче-редно с помощью функции inputbox(). Результат отобразить на форме с помощью метки. При рас-чете использовать оператор цикла FOR.
примерный код
помогите пожалуйстаааа!!!!!
Решение задачи: «Visual Basic цикл For»
textual
Листинг программы
Option Explicit
Dim AVec(1 To 8) As Integer
Private Sub Command1_Click()
Dim I As Integer
Dim Y As Integer
Dim N As Integer
N = Val(InputBox("введите значение переменной n"))
Y = Val(InputBox("введите значение переменной y"))
I = Val(InputBox("введите значение переменной"))
For I = 1 To 8
Max = Abs(z(I))
If Abs(Y(I)) <= 2 Then
z(I) = Y(I)
Else
z(I) = 0.5
End If
If Abs(z(I)) > Max Then
Max = Abs(z(I))
End If
Next 'For I
'вывод результата
MsgBox "Максимальное значение = " & Max & vbCrLf
Label1.Caption = "" & Str$(Max)
End Sub