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