Как написать программу рандомного выбора предметов

Тема в разделе "Visual Basic", создана пользователем Mauricio, 18 фев 2011.

  1. Mauricio

    Mauricio Гость

    Вопрос:Как написать программу рандомного выбора предметов ну ,например, даны предметы(русский,литература,математика) и надо чтобы при нажатии клавиши на экране показывался предмет один из этих трех.
    Помогите пожалуйста :please:
     
  2. Mauricio

    Mauricio Гость

    Я написал но не могу понять как сделать так чтобы экран очищался

    Private Sub Command1_Click()

    d = Array("математика", "русский", _
    "язык", "ëèòåðàòóðà", "ÿçûê")
    Randomize (Timer)
    Do While d2 = d1
    d1 = d(Int(Rnd * UBound(d)))
    Loop
    Print d1
    d2 = d1
    Exit Sub
    End Sub
     
  3. andrey24

    andrey24 Member

    Регистрация:
    8 июл 2010
    Сообщения:
    20
    Симпатии:
    0
    Me.Cls Тебе в помощь ))
     
Загрузка...

Поделиться этой страницей