Вывод по очереди месяцев
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 [...]