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

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


Вывод по очереди месяцев
2009-11-29 07:03 Александр
Вывод по очереди месяцев Private Sub Command1_Click() Static i& i& = i& + 1 If i& = 13 Then i& = 1 Text1.Text = MonthName(i&) End Sub


В избранное