Что совсем никак?
написано же случайными числами. значит надо использовать команду rnd (randomize)
Буквы сливаются, очень похоже на "md" (make directory). Функция называется RND, возвращает случайное число на отрезке [0,1].
Есть еще функция Randomize, которая инициализирует RND, чтобы при разных стартах выдавались разные случайные числа.
Открываете среду VB6, создаете стандарное приложение EXE. Оно не консольное, т.е. у вас будет окно Form1, в которое можно вывести результат. Кладете в окно текстовое поле Text1, растягиваете его в высокий прямоугольник, и устанавливаете свойство Multiline = True.
Потом пишете на событие загрузки формы Form1 такой код:
Код: Выбрать все
Option Explicit
Private Sub Form_Load()
Dim X As Integer ' случайное число
Dim Y(9) As Integer ' массив сумм случайных чисел
Dim i As Integer ' счетчик цикла
' инициализируем генератор случайных чисел
Randomize
' случайное число от 0 до 9
Y(0) = Int(9 * Rnd)
Text1.Text = "Случайное число=" & Y(0) & _
" Сумма: y(0)=" & Y(0) & vbNewLine
For i = 1 To 9
X = Int(9 * Rnd)
Y(i) = Y(i - 1) + X
Text1.Text = Text1.Text & "Случайное число=" & X & _
" Сумма: y(" & i & ")=" & Y(i) & vbNewLine
Next i
End Sub
Программу можно оптимизнуть и заменить массив Y(9) на переменную Y.
Догадайтесь сами как.
Последний раз редактировалось
OlgaI 28 ноя 2019, 19:02, всего редактировалось 1 раз.
Причина: test