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

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

33. Полиндромы.

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

Dim s As String

s = TextBox1.Text

Dim i, n As Integer

Dim f As Boolean

f = True

n = s.Length

For i = 0 To Int(n / 2) - 1

If s.Substring(i, 1) <> s.Substring(n - i - 1, 1) Then

f = False

End If

Next

If f = True Then

MessageBox.Show("yes")

Else : MessageBox.Show("no")

End If

End Sub