21. Массив. Создать отсортировать.

Option Explicit

Option Base 1

Dim mass(20) As String, n As Integer, x As Integer, p As Integer

Private Sub Command1_Click()

For n = 1 To 20

mass(n) = Int(Rnd * 19) - 9

Text1.Text = Text1.Text + mass(n) + " "

Next n

Text1.Text = Text1.Text + vbCrLf

End Sub

Private Sub Command2_Click()

For n = 1 To 20

For x = 1 To 19

If mass(x) > mass(x + 1) Then

p = mass(x)

mass(x) = mass(x + 1)

mass(x + 1) = p

End If

Next x

Next n

For n = 1 To 20

Text1.Text = Text1.Text + mass(n) + " "

Next n

Text1.Text = Text1.Text + vbCrLf

End Sub

22. Вычисление суммы, какой-то X=2, X=3 и т.п.

Option Explicit

Dim x As Integer, n As Integer, s As Single

Private Sub Command1_Click()

x = 2: n = 0: s = 0

compile

End Sub

Private Sub Command2_Click()

x = 3: n = 0: s = 0

compile

End Sub

Private Sub compile()

Do

n = n + 1

s = (x ^ (2 * n + 1)) / (3 * n + 1)

Loop While n < 5

Label2.Caption = s

End Sub

23. Конус. Площадь полной поверхности и объем конуса

Private Sub Command1_Click()

Dim r As Double

Dim h As Double

Dim l As Double

Dim s As Double

Dim v As Double

Text3.Text = ""

r = Val(Text1.Text)

h = Val(Text2.Text)

l = Sqr(r ^ 2 + h ^ 2)

s = 3.14159 * r ^ 2 + 3.14159 * r * l

v = 1 / 3 * 3.14159 * r ^ 2 * h

Text3.Text = " s = " + Str(Round(s, 5)) + ", v = " + Str(Round(v, 5))

End Sub

Private Sub Command2_Click()

End

End Sub

24. Числа последовательности

Private Sub Command1_Click()

Dim i As Integer

Dim n As Integer

a = Val(Text1.Text)

n = Val(Text3.Text)

Text2.Text = " a(" + Str(1) + " ) = " + Str(Round(a, 5)) + " , "

For i = 2 To n

a = Cos(3.14159 / 3 * a)

Text2.Text = Text2.Text + " a(" + Str(i) + " ) = " + Str(Round(a, 5)) + " , "

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

25. Решение уравнения методом деления отрезка пополам.

Private Sub Command1_Click()

Dim a As Double

Dim b As Double

Dim e As Double

Dim c As Double

Dim fa As Double

Dim fb As Double

Dim fc As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

e = 0.00001

fa = Exp(a) * (Cos(a) + Sin(a)) - 2

fb = Exp(b) * (Cos(b) + Sin(b)) - 2

If fa * fb < 0 Then

Do While b - a > 2 * e

c = (a + b) / 2

fc = Exp(c) * (Cos(c) + Sin(c)) - 2

If fc <> 0 Then

If fa * fc < 0 Then

b = c

Else

a = c

fa = fc

End If

Else

Text3.Text = " x0 = " + Str(Round(c, 5))

Exit Sub

End If

Loop

c = (a + b) / 2

Text3.Text = " x0 = " + Str(Round(c, 5))

Exit Sub

Else

Text3.Text = " Уточните промежуток ! "

End If

End Sub

Private Sub Command2_Click()

End

End Sub

26. Массив. Определить минимальные максимальные элементы и т.Д.

Private Sub Command1_Click()

Randomize

n = Val(Text3.Text)

Dim m(1000) As Integer

n = n - 1

For i = 0 To n

m(i) = Int(-10 + 20 * Rnd(1))

Next i

For i = 0 To n

Text1.Text = Text1.Text + " m(" + Str(i) + " ) = " + Str(Round(m(i), 5)) + " , "

Next i

Max = 0

Min = 0

For i = 0 To n

If m(i) < m(Min) Then

Min = i

Else

If m(i) > m(Max) Then Max = i

End If

Next i

Text4.Text = " m( Min )= m(" + Str(Min) + " ) = " + Str((m(Min)))

Text5.Text = " m( Max )= m(" + Str(Max) + " ) = " + Str((m(Max)))

p = m(Min)

m(Min) = m(Max)

m(Max) = p

For i = 0 To n

Text2.Text = Text2.Text + " m(" + Str(i) + " ) = " + Str(Round(m(i), 5)) + " , "

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

27. Сторона и площадь семиугольника

Private Sub Command1_Click()

Dim n As Integer

Dim r As Double

Dim al As Double

Dim a As Double

Dim s As Double

r = Val(Text1.Text)

al = 360 / 7 * 3.14159 / 180

a = 2 * r * Sin(al / 2)

s = 7 / 2 * r ^ 2 * Sin(al)

Text2.Text = " a = " + Str(Round(a, 5)) + " , s = " + Str(Round(s, 5))

End Sub

Private Sub Command2_Click()

End

End Sub

28. Сумма, н, икс, вычислить С.

Private Sub Command1_Click()

Dim n As Integer

Dim i As Integer

Dim x As Double

Dim s As Double

n = Val(Text1.Text)

x = Val(Text2.Text)

s = 0

For i = 0 To n

s = s + x ^ (4 * i + 1) / (4 * i + 1)

Next i

Text3.Text = " s = " + Str(Round(s, 5))

End Sub

Private Sub Command2_Click()

End

End Sub

29. Площадь треугольника

Private Sub Command1_Click()

Dim a As Double

Dim b As Double

Dim c As Double

Dim p As Double

Dim s As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c))

Text4.Text = " s = " + Str(Round(s, 5))

End Sub

Private Sub Command2_Click()

End

End Sub

30. Площадь треугольника и радиус вписанной окружности

Private Sub Command1_Click()

Dim a As Double

Dim b As Double

Dim c As Double

Dim p As Double

Dim s As Double

Dim r As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c))

r = s / p

Text4.Text = " s = " + Str(Round(s, 5)) + " , r = " + Str(Round(r, 5))

End Sub

Private Sub Command2_Click()

End

End Sub