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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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