Сформировать массив их 120 эл-тов. Найти все простые числа. Построить график и нанести на числовую ось. - VB

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

Сформировать с помощью функции RND массив их 120 элементов. Найти все простые числа. Построить график и нанести их на числовую ось в любом масштабе в пределах экрана.

Решение задачи: «Сформировать массив их 120 эл-тов. Найти все простые числа. Построить график и нанести на числовую ось.»

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

                            Private Sub Command3_Click()
Dim p As Boolean
Dim W As Boolean
Dim gg() As Double
Dim i As Integer
Dim J As Integer
Dim X1 As Double
 
Cls
Randomize
W = True
Print "                          ГЊГ*Г±Г±ГЁГў"
n = 120
ReDim gg(1 To n)
For i = 1 To n
        gg(i) = Int(100 * Rnd + 1)
        Print gg(i);
Next i
Print
Print
Print "            ГЏГ°Г®Г±ГІГ»ГҐ"
Print "ГЌГ®Г¬ГҐГ°            Г—ГЁГ±Г«Г®"
For i = 1 To n
If PROST(gg(i)) Then Print i, gg(i): W = False
Next i
If W Then Print "   ГЏГ°Г®Г±ГІГ»Гµ Г*ГҐГІ"
End Sub
 
Function PROST(X1 As Double) As Boolean
PROST = True
Dim J As Integer
For J = 2 To X1 / 2
If X1 Mod J = 0 Then PROST = False: Exit Function
Next J
End Function
                        