Помощь необходима)

Тема в разделе "Visual Basic", создана пользователем lemon3ater, 10 май 2010.

  1. lemon3ater

    lemon3ater Гость

    Привет всем мастерам! У меня возникли трудности в работе, поэтому прошу помощи))
    Собственно вот:

    1) Вводится цифра от 1 до 7. Каждой цифре соответствует день недели(1 - понедельник, и т. д.). Необходимо составить программу вывода названия дня недели по введенной цифре.

    2) Найдите сумму 10 произвольных чисел до первого равного 0(??). Определите их среднее арифметическое.


    Пока что все, надеюсь на вас :)
     
  2. Vlanib

    Vlanib Гость

    1.
    Так:
    Код (LotusScript):
    MsgBox WeekdayName(InputBox("Ввод данных:"))
    Или так:
    Код (LotusScript):
    MsgBox Choose(InputBox("Ввод данных:"), "Пн.", "Вт.", "Ср.", "Чт.", "Пт.", "Сб.", "Вс.")
    2. Не совсем понятно как вводить данные, но вот вариант:

    Код (LotusScript):
    Sub Summa()
    Dim vSum, vVal
    While True
    vVal = InputBox("Ввод данных:")
    If Not IsNumeric(vVal) Then Exit Sub
    vSum = vSum + Val(vVal)
    i = i + 1
    If Val(vVal) = 0 Then
    MsgBox "Сумма - " & vSum & vbNewLine & "Средне-арифм. - " & vSum / i
    Exit Sub
    End If
    Wend
    End Sub
     
  3. lemon3ater

    lemon3ater Гость

    Спасибо! Только вот если честно не очень понятно 1ое(можно по-подробнее), насчет 2ого сегодня уточню..
     
  4. Vlanib

    Vlanib Гость

    А что конкретно вам не понятно с первым пунктом? В первом варианте используется штатная функция VB которая возвращает по номеру название дня недели, а во втором варианте функция выбирает элемент из заданного ряда по порядковому номеру.
     
Загрузка...

Поделиться этой страницей