Как в этой программе сделать так чтобы она показывала максимальную температуру за неделю: Dim Temperatures(6) As Single Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Prompt, Title As String Dim i As Short Prompt = "Введите максимальную температуру за день." For i = 0 To UBound(Temperatures) Title = "День " & (i + 1) Temperatures(i) = InputBox(Prompt, Title) Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim Result As String Dim i As Short Dim Total As Single = 0 Result = "Максимальные температуры за неделю: " & vbCrLf & vbCrLf For i = 0 To UBound(Temperatures) Result = Result & "День " & (i + 1) & vbTab & _ Temperatures(i) & vbCrLf Total = Total + Temperatures(i) Next Result = Result & vbCrLf & _ "Средняя температура: " & Format(Total / 7, "0.0") TextBox1.Text = Result Помогите плиз, очень надо
Знаю верный ответ Найти ответ на вопрос
Dim MaxT as Single=-999 For i = 0 To UBound(Temperatures) If MaxT
Ответить