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

[lemon3ater]

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

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

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


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

 

[Vlanib]

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

 

[lemon3ater]

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

 

[Vlanib]

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