Найти минимальное и максимальное значение икс - 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