Visual Basic FAQ

Вывод по очереди месяцев

Option Explicit 'переменные должны объявляться явно
Option Base 1 'массивы начинаются с 1
Dim mesyac() As String 'массив, содерж. месяцы
Dim a As Integer 'счетчик

Private Sub Command1_Click()
a = a + 1 'при каждом нажатии а увел. на единицу
If a < 12 Then
'по значению а проверяем какой месяц должен быть указан
    Select Case a
    Case 1
    Text1.Text = mesyac(1)
    Case 2
    Text1.Text = mesyac(2)
    Case 3
    Text1.Text = mesyac(3)
    Case 4
    Text1.Text = mesyac(4)
    Case 5
    Text1.Text = mesyac(5)
    Case 6
    Text1.Text = mesyac(6)
    Case 7
    Text1.Text = mesyac(7)
    Case 8
    Text1.Text = mesyac(8)
    Case 9
    Text1.Text = mesyac(9)
    Case 10
    Text1.Text = mesyac(10)
    Case 11
    Text1.Text = mesyac(11)
    End Select
ElseIf a = 12 Then
Text1.Text = mesyac(12)
a = 0 'округляем счетчик
End If

End Sub

Private Sub Form_Load()
ReDim mesyac(12) 'переопределяем размер массива
'заполняем его
mesyac(1) = "Январь"
mesyac(2) = "Февраль"
mesyac(3) = "Март"
mesyac(4) = "Апрель"
mesyac(5) = "Май"
mesyac(6) = "Июнь"
mesyac(7) = "Июль"
mesyac(8) = "Август"
mesyac(9) = "Сентябрь"
mesyac(10) = "Октябрь"
mesyac(11) = "Ноябрь"
mesyac(12) = "Декабрь"
End Sub

Запись опубликована on 28.11.2009 at 9:00 и размещена в рубрике: Разное. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.