# Option Strict On Option Explicit On Imports System Math Public Class F

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71``` ```Option Strict On Option Explicit On Imports System.Math Public Class Form1 Function vvod(ByVal T As TextBox) As Integer Return CInt(Val(T.Text)) End Function Sub vvod(ByVal y() As Single, ByVal n As Integer, ByRef ListBox1 As ListBox) Dim i As Integer Dim y2 As String y2 = "" For i = 0 To n y(i) = CSng(Val(InputBox("Введите значение y(" & Str(i) & ")"))) y2 = y2 + Format(y(i), "###.##" + Space(5)) Next ListBox1.Items.Add(y2) End Sub Function Count(ByVal y() As Single, ByVal n As Integer, ByRef s_geo As Single, ByRef t As Integer) As Integer Dim i, j As Integer Dim nearIndex As Integer = 0 Dim delta As Single Dim min As Single s_geo = 1 For i = 0 To n If y(i) > 0 Then s_geo = CSng((s_geo * y(i)) ^ (1 / n)) End If Next Dim p(0 To n) As Single p(0) = min For i = 1 To UBound(y) - 1 For j = 1 To n delta = Abs(s_geo - y(i)) p(j) = delta If p(j) < min Then p(j) = min End If Next Next i End Function Function vivod(ByVal Z As Double, ByVal T As TextBox) As Double T.Text = CStr(Z) End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer Dim s_geo As Single Dim t As Integer n = vvod(TextBox1) - 1 Dim y(0 To n) As Single vvod(y, n, ListBox1) Count(y, n, s_geo, t) vivod(s_geo, TextBox2) vivod(t, TextBox3) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click, Button2.Click TextBox1.Clear() ListBox1.Items.Clear() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Application.Exit() End Sub End Class ```