Воскресенье, 21.10.2018, 16:40
Приветствую Вас Гость | RSS

ПОРТФОЛИО
УЧИТЕЛЯ ИНФОРМАТИКИ


Категории раздела
Программы [14]
Программы элективных курсов, учебные программы
Обобщение опыта [8]
статьи, отчеты
Практикумы [6]
Нормативные документы [3]
Стандарты, техника безопасности,нормативы
Рекомендации [3]
письма, статьи, приказы по внедрению
Календарно-тематическое планирование [9]
Примерные календарно-тематические планы
Форма входа
Поиск
Это полезно
Методическая копилка учителя информатики



Друзья сайта
  • Сайт МОУ: СОШ п.Горноправдинск

  • Комитет по образованию Ханты-Мансийского района
  • Переводчик
    Статистика

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0
    ...
    Главная » Файлы » Практикумы

    Visual Basic. Практическая работа "Цикл"
    [ Скачать с сервера (104.5 Kb) ] 10.06.2010, 17:07

    Private Sub Command1_Click()

    For i = 1 To 50

    For J = 1 To 7050000

    Next J

    Dim Radius

    R = 255 * Rnd

    G = 255 * Rnd

    XPos = ScaleWidth / 2

    YPos = ScaleHeight / 2

    Radius = ((YPos * 0.9) + 1) * Rnd

    Circle (XPos, YPos), Radius, RGB(R, G, B)

    Next i

    End Sub

    Категория: Практикумы | Добавил: ugra
    Просмотров: 651 | Загрузок: 164 | Рейтинг: 0.0/0
    Всего комментариев: 0
    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]