38. Разложение экспоненты.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim mye, p As Double

Dim n, i As Integer

mye = 2

p = 1

n = Convert.ToInt16(TextBox1.Text)

For i = 2 To n

p = p * i

mye = mye + 1 / p

Next

ListBox1.Items.Add(Convert.ToString(mye))

End Sub

37. Мин и Мах элем. Массива.

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim n, i As Integer

n = Convert.ToInt16(TextBox1.Text)

Dim a(n) As Integer

Dim imax, imin, b As Integer

For i = 1 To n

a(i) = Int(Rnd() * 100)

ListBox1.Items.Add(Convert.ToString(a(i)))

Next

imax = 1

imin = 1

For i = 2 To n

If a(i) > a(imax) Then

imax = i

End If

If a(i) < a(imin) Then

imin = i

End If

Next

b = a(imax)

a(imax) = a(imin)

a(imin) = b

For i = 1 To n

ListBox2.Items.Add(Convert.ToString(a(i)))

Next

End Sub

36. Разложение синуса.

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Dim n, i As Integer

n = Convert.ToInt16(TextBox1.Text)

Dim x, p, f As Double

x = Convert.ToDouble(TextBox2.Text)

f = 1

p = 1

If (n <= 100) And (x <= 20) Then

For i = 1 To n

f = f * i

p = p * (1 + Math.Sin(x * i) / f)

Next

ListBox2.Items.Add(Convert.ToString(p))

Else : ListBox2.Items.Add("введите n <=100 и x <=20")

End If

End Sub

35. Мяч.

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Dim a, b, p, h, k As Integer

Dim th As Double

a = Convert.ToInt16(TextBox1.Text)

b = Convert.ToInt16(TextBox2.Text)

h = Convert.ToInt16(TextBox3.Text)

p = Convert.ToInt16(TextBox4.Text)

k = 0

th = h

Do

k = k + 1

th = th * a / b

Loop While th >= p

ListBox2.Items.Add(Convert.ToString(k))

MessageBox.Show(Convert.ToString(k))

End Sub

34. Площадь и объем пирамиды/призмы.

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Dim a, h As Integer

Dim S, v As Double

a = Convert.ToInt16(TextBox1.Text)

h = Convert.ToInt16(TextBox3.Text)

If RadioButton1.Checked = True Then

If CheckBox1.Checked = True Then

S = a ^ 2

ListBox2.Items.Add(Convert.ToString(S))

End If

If CheckBox2.Checked = True Then

v = (1 / 3) * a ^ 2 * h

ListBox2.Items.Add(Convert.ToString(v))

End If

Else

If CheckBox1.Checked = True Then

S = a ^ 2

ListBox2.Items.Add(Convert.ToString(S))

End If

If CheckBox2.Checked = True Then

v = a ^ 2 * h

ListBox2.Items.Add(Convert.ToString(v))

End If

End If

End Sub