Хотите чтобы частное было целым числом? Очевидно, оно должно принадлежать матрице таблицы умножения, ведь там только целые числа. И у таких чисел тоже целые делимые и делители. Если опустить множители 0 и 1, то:
Code
For i=1 To Infinity
x=RND(9)
y=RND(9)
If (x<>0&x<>1&y<>0&y<>1) Then
Break()
End
Next i
z=x*y
msg$='Делимое: '+CHAR(z)+', делитель: '+CHAR(y)+' или '+CHAR(x)
Message("Результат","msg$")
Добавлено (24 Декабрь 2011, 18:57)
---------------------------------------------
получился генератор таблицы умножения, ограниченный ф-цией RND(x)