• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

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

  • Автор темы Автор темы Mauricio
  • Дата начала Дата начала
M

Mauricio

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

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
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab