Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

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


Вывод по очереди месяцев
2009-11-28 07:00 Александр
Вывод по очереди месяцев 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 [...]


В избранное