Как пользоваться 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

Оцени полезность:

8 голосов , оценка 3.875 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы