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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д