думаю о великом каждые 5 секунд
Профи
(832)
1 месяц назад
' Initialize random number generator
Randomize
' Array of magic eight ball responses
Dim responses
responses = Array( _
"Yes, definitely.", _
"Ask again later.", _
"My sources say no.", _
"Absolutely!", _
"I wouldn't count on it.", _
"Yes, in due time.", _
"Don't count on it.", _
"Outlook not so good.", _
"Yes!", _
"Concentrate and ask again." _
)
' Generate a random index
Dim randomIndex
randomIndex = Int((UBound(responses) + 1) * Rnd)
' Show the magic eight ball response in a message