Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim g As Graphics g = PictureBox1.CreateGraphics g.DrawEllipse(Pens.Red, 75, 0, 50, 50) g.DrawEllipse(Pens.Red, 50, 50, 100, 100) g.DrawEllipse(Pens.Red, 0, 150, 200, 200) End Sub End Class
У вас получuтся снеговUк, только добавь на форму pictureBox
Const n=10; type ar=array[1..n+1] of integer; var a:ar; i,p:integer; procedure pr(var a:ar; p:integer; var k:integer); begin k:=1; while a[k]<>p do k:=k+1; end; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(31); write(a[i]:4); end; writeln; p:=17; a[n+1]:=p; pr(a,p,i); if i<n then writeln('Значение 17 найдено, номер элемента = ',i) else writeln('Значения 17 в массиве нет'); end.
Пример: Массив A: 14 5 7 17 25 15 28 0 24 0 Значение 17 найдено, номер элемента = 4
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim g As Graphics
g = PictureBox1.CreateGraphics
g.DrawEllipse(Pens.Red, 75, 0, 50, 50)
g.DrawEllipse(Pens.Red, 50, 50, 100, 100)
g.DrawEllipse(Pens.Red, 0, 150, 200, 200)
End Sub
End Class
У вас получuтся снеговUк, только добавь на форму pictureBox