Создать программу в Visual Basic - VB (171720)

Формулировка задачи:

Написать программу, которая запрашивает у пользователя номер дня недели и выводит одно из сообщений: «Рабочий день», «Суббота» или «Воскресенье».

Решение задачи: «Создать программу в Visual Basic»

textual
                            Листинг программы 
                        

                            Sub week()
Dim s As Integer
s = InputBox("input number")
If s = 6 Then
MsgBox ("subbota")
ElseIf s = 7 Then
MsgBox ("voskresenye")
Else
MsgBox ("rabochiy")
End If
End Sub
                        