Как пользоваться RND - VB

Формулировка задачи:

Помогите пожалуйста, объясните как пользоваться программой RND нам надо чтобы выводилось много точек в определенной фигуре

Решение задачи: «Как пользоваться RND»

textual
                            Листинг программы 
                        

                            Option Explicit
Private Sub Комманда1_Click()
Dim J
Dim k
Randomize
For J = 0 To 5000000
k = Int(Rnd * 32 + 1)
If k = 0 Or k = 33 Then MsgBox "Офигеть!", vbCritical, "": Exit Sub
Next J
MsgBox "Не получилось", vbCritical, "Офигеть!!! "
End Sub
                        