Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
1
Проект Три шара Постановка задачи : Дано число N – количество вызовов функции, которая возвращает шар одного из трех цветов : красный, синий или желтый. Сколько было шаров каждого цвета ? Пусть целое возвращаемое значение k: 1, если шар красного цвета, k= 2, если шар синего цвета, 3, если шар желтого цвета
2
Проект три шара
3
Public Class Form1 Dim N, k, c, g, i As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click N = Val(TextBox1.Text): : k = 0 : c = 0 : g = 0 Круг () For i = 1 To N If ( Цвет _ шара () = 1) Then k = k + 1 ElseIf ( Цвет _ шара () = 2) Then c = c + 1 Else g = g + 1 End If TextBox2.Text = Str(c) TextBox3.Text = Str(k) TextBox4.Text = Str(g) Next End Sub Public Function Цвет _ шара () As Integer Dim ii As Integer Randomize() Return (CInt(Int((Rnd() * 3) + 1))) End Function Public Sub Круг () Me.CreateGraphics.FillEllipse(Brushes.Blue, 400, 30, 50, 50) Me.CreateGraphics.FillEllipse(Brushes.Red, 400, 100, 50, 50) Me.CreateGraphics.FillEllipse(Brushes.Yellow, 400, 170, 50, 50) End Sub End Class
Еще похожие презентации в нашем архиве:
