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

  • Автор темы lemon3ater
  • Дата начала
L

lemon3ater

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

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

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


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

Vlanib

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

Код:
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
 
L

lemon3ater

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

Vlanib

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