Найти минимальное и максимальное значение икс - VB

Узнай цену своей работы

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

доброго времени суток. помогите написать (напишите от Sub до End) программу которая определяла бы минимальное и максимальное значение поданного Х (подаем Х вручную через InputBox) огромное спасибище!

Решение задачи: «Найти минимальное и максимальное значение икс»

textual
Листинг программы
Option Explicit
 
Private Sub Form_Load()
    Dim Count As Long, V As Single, Min As Single, Max As Single
    Count = Val(InputBox("Какое кол-во измерений", , "3"))
    Max = -3.4028235E+38: Min = 3.4028235E+38
    Do While Count
        V = CSng(InputBox("Подайте значение очередного измерения"))
        If V < Min Then Min = V
        If V > Max Then Max = V
        Count = Count - 1
    Loop
    MsgBox "Хмин=" & Min & ". Хмакс= " & Max
End Sub

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


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

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

12   голосов , оценка 3.667 из 5
Похожие ответы