При помощи бейсика нарисуйте любой рисунок срочно надо заранее спасибо разрешение 640*480

Question

При помощи бейсика нарисуйте любой рисунок срочно надо заранее спасибо разрешение 640*480

Answer 1

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