Лекция: Команда ветвления CASE

Задание 1

Public Class Week

Private NomerWeek As Integer

Public NameWeek As String

Property Nomer() As Integer

Set(ByVal value As Integer)

NomerWeek = value

End Set

Get

Return NomerWeek

End Get

End Property

Public Sub NWeek()

Select Case NomerWeek

Case 1

NameWeek = «понедельник»

Case 2

NameWeek = «вторник»

Case 3

NameWeek = «среда»

Case 4

NameWeek = «четверг»

Case 5

NameWeek = «пятница»

Case 6

NameWeek = «суббота»

Case 7

NameWeek = «воскресенье»

Case Else

NameWeek = «такого дня не существует»

End Select

End Sub

End Class

Public Class frmWeek

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End

End Sub

Private Sub btnPusk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPusk.Click

Dim NameW As New Week()

NameW.Nomer = txtNomer.Text

NameW.NWeek()

lblName.Text = NameW.NameWeek

End Sub

End Class

Задание 2

Составить программу для перевода номера месяца в словесное представление.

Задание 3

Составить программу для перевода числа с 0 до 100 рублей в следующее представление: число цифрами, рубли со склонением.