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