Вам нужна курсовая работа?
Интересует Программирование?
Оставьте заявку
на Курсовую работу
Получите бесплатную
консультацию по
написанию
Сделайте заказ и
скачайте
результат на сайте
1
2
3

Бронирование автобусных билетов

  • 24 страницы
  • 0 источников
  • Добавлена 28.12.2009
420 руб. 1 400 руб.
  • Содержание
  • Часть работы
  • Список литературы
Оглавление
Описание работы с программой
Текст программы

Фрагмент для ознакомления

Cells(i + 1, 1).Value <> "" And temp = 0
If ComboBox1.Value = Worksheets("Сп_рейсов").Cells(i + 1, 2).Value And ComboBox2.Value = Worksheets("Сп_рейсов").Cells(i + 1, 3).Value And Chr(ComboBox4.Value) = Chr(Worksheets("Сп_рейсов").Cells(i + 1, 4).Value) And Chr(ComboBox5.Value) = Chr(Worksheets("Сп_рейсов").Cells(i + 1, 5).Value) Then
temp = Worksheets("Сп_рейсов").Cells(i + 1, 1).Value
End If
i = i + 1
Loop
dat = Date
j = ComboBox3.ListIndex
For i = 1 To 30
If Worksheets("Сп_мест").Cells(2 * ((temp - 1) * 21 + j + 1), i).Value = 0 Then
ComboBox6.AddItem i
Else
ComboBox7.AddItem i
End If
Next i
End If
End Sub

Private Sub CommandButton1_Click()
End
End Sub











2

нет данных

Узнать стоимость работы