[закрыть]

Регистрация на сайте

Если вы уже зарегистрированы, пожалуйста войдите на сайт!
Email:
Имя (ник):
Пароль:
Повторите пароль:
  
Защита от роботов:

Плохо видно


Помогите плиз с программкой VB

Как в этой программе сделать так чтобы она показывала максимальную температуру за неделю: 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 Помогите плиз, очень надо



Знаю верный ответ Найти ответ на вопрос


1 ответ к вопросу “Помогите плиз с программкой VB”

  • ответ #0 / ответил: Служба поддержки

    • ответ #1 / ответил: ottvett
      Полезный ответ? Да (0) / Нет (0)


      Dim MaxT as Single=-999 For i = 0 To UBound(Temperatures) If MaxT



      Ответить

Ответить на вопрос


Не хотите вводить проверочный код? Пройдите регистрацию!
Проверочный код:

обновить картинку

Статистика

  • © 2010-2011. Копирование материалов с сайта строго запрещено
  • Не нашли ответ? задай свой вопрос