31. Массив, минимальное, максимальное значение и т .Д. (похожая задача)

Private Sub Command1_Click()

Dim m(500) As Double

Dim p As Double

Dim i As Integer

Dim n As Integer

Dim Max As Integer

Dim Min As Integer

Randomize

n = Val(Text3.Text)

Text1.Text = ""

Text2.Text = ""

Text4.Text = ""

Text5.Text = ""

n = n - 1

For i = 0 To n

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

Next i

For i = 0 To n

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

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 = " Min = m(" + Str(Min) + " ) = " + Str(Round(m(Min), 3))

Text5.Text = " Max = m(" + Str(Max) + " ) = " + Str(Round(m(Max), 3))

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), 3)) + " , "

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

31. Площадь поверхности большей из сфер

Private Sub Command1_Click()

Dim r1 As Double

Dim r2 As Double

Dim s As Double

Text3.Text = ""

r1 = Val(Text1.Text)

r2 = Val(Text2.Text)

If r1 > r2 Then

s = 4 * 3.14159 * r1 ^ 2

Else

s = 4 * 3.14159 * r2 ^ 2

End If

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

End Sub

Private Sub Command2_Click()

End

End Sub

32. Количество слов в строке.

Private Sub Command1_Click()

Dim st As String

Dim k As Integer

Dim i As Integer

Dim kol As Integer

st = Text1.Text

Text2.Text = ""

k = Len(st)

If Mid$(st, 1, 1) = " " Then kol = 0 Else kol = 1

For i = 1 To k - 1

If Mid$(st, i, 1) = " " And Mid$(st, i + 1, 1) <> " " Then kol = kol + 1

Next i

Text2.Text = " kol = " + Str(kol)

End Sub

Private Sub Command2_Click()

End

End Sub

33. Наименьшая цифра трехзначного числа

Private Sub Command1_Click()

Dim ch As Integer

Dim z1 As Integer

Dim z2 As Integer

Dim z3 As Integer

Dim z As Integer

Text2.Text = ""

ch = Val(Text1.Text)

z1 = ch \ 100

z2 = (ch \ 10) Mod 10

z3 = ch Mod 10

z = z1

If z2 < z Then z = z2

If z3 < z Then z = z3

Text2.Text = " Наименьшая цифра числа равна " + Str(z)

End Sub

Private Sub Command2_Click()

End

End Sub

34. Параллепипед. Суммарный объем, количество ребер, с квадратными гранями

Private Sub Command1_Click()

Randomize

Dim a(100) As Double

Dim b(100) As Double

Dim c(100) As Double

Dim i As Integer

Dim v As Double

Dim kol As Integer

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Text14.Text = ""

Text15.Text = ""

Text16.Text = ""

Text17.Text = ""

For i = 1 To 5

a(i) = Int(10 + 90 * Rnd(1)) / 10

b(i) = Int(10 + 90 * Rnd(1)) / 10

c(i) = Int(10 + 90 * Rnd(1)) / 10

Next i

Text1.Text = Str(a(1))

Text2.Text = Str(b(1))

Text3.Text = Str(c(1))

Text4.Text = Str(a(2))

Text5.Text = Str(b(2))

Text6.Text = Str(c(2))

Text7.Text = Str(a(3))

Text8.Text = Str(b(3))

Text9.Text = Str(c(3))

Text10.Text = Str(a(4))

Text11.Text = Str(b(4))

Text12.Text = Str(c(4))

Text13.Text = Str(a(5))

Text14.Text = Str(b(5))

Text15.Text = Str(c(5))

v = 0

For i = 1 To 5

v = v + a(i) * b(i) * c(i)

Next i

kol = 0

For i = 1 To 5

If a(i) = b(i) Or a(i) = c(i) Or b(i) = c(i) Then kol = kol + 1

Next i

Text16.Text = Str(Round(v, 5))

Text17.Text = Str(kol)

End Sub

Private Sub Command2_Click()

End