Разработка урока по программированию на VB в Visual Studio 2013 (2010)

  • Лабораторные работы
  • Работа в классе
  • Разработки уроков
  • docx
  • 09.10.2018
Публикация на сайте для учителей

Публикация педагогических разработок

Бесплатное участие. Свидетельство автора сразу.
Мгновенные 10 документов в портфолио.

Публикация является частью публикации:

Иконка файла материала КОД.docx
r = CDate(TextBox1.Text) a = Today() TextBox2.Text = DateDiff(DateInterval.Day, r, a) T = Weekday(r, 2) TextBox3.Text = WeekdayName(T) u = Year(r) Select Case r Case DateSerial(u, 1, 1) To DateSerial(u, 1, 19) TextBox4.Text = "Козерог" PictureBox3.Visible = True Case DateSerial(u, 1, 20) To DateSerial(u, 2, 18) TextBox4.Text = "Водолей" PictureBox4.Visible = True Case DateSerial(u, 2, 19) To DateSerial(u, 3, 20) TextBox4.Text = "Рыба" PictureBox5.Visible = True Case DateSerial(u, 3, 21) To DateSerial(u, 4, 19) TextBox4.Text = "Овен" PictureBox2.Visible = True Case DateSerial(u, 4, 20) To DateSerial(u, 5, 20) TextBox4.Text = "Телец" PictureBox13.Visible = True Case DateSerial(u, 5, 21) To DateSerial(u, 6, 21) TextBox4.Text = "Близнец" PictureBox12.Visible = True Case DateSerial(u, 6, 22) To DateSerial(u, 7, 22) TextBox4.Text = "Рак" PictureBox11.Visible = True Case DateSerial(u, 7, 23) To DateSerial(u, 8, 22) TextBox4.Text = "Лев" PictureBox10.Visible = True Case DateSerial(u, 8, 23) To DateSerial(u, 9, 22) TextBox4.Text = "Дева" PictureBox9.Visible = True Case DateSerial(u, 9, 23) To DateSerial(u, 10, 23) TextBox4.Text = "Весы" PictureBox8.Visible = True Case DateSerial(u, 10, 24) To DateSerial(u, 11, 22) TextBox4.Text = "Скорпион" PictureBox7.Visible = True Case DateSerial(u, 11, 23) To DateSerial(u, 12, 21) TextBox4.Text = "Стрелец" PictureBox6.Visible = True Case DateSerial(u, 12, 22) To DateSerial(u, 12, 31) TextBox4.Text = "Козерог" PictureBox3.Visible = True End Select