Option Explicit On
Imports System.Math
Public Class Form1
Dim y(), z() As Single
Public Sub vvod(ByRef y() As Single)
Dim x, r As String
For i = 1 To UBound(y)
r = Str(i)
x = InputBox("элемент массива y(" + r + " )=", "Ввод значений элементов массива y()")
y(i) = Val(x)
Next i
End Sub
Public Sub printL(ByVal y() As Single, ByVal LB As ListBox)
Dim i As Integer
Dim x As String = " "
For i = 1 To UBound(y) // ЗДЕСЬ ОШИБКА "Значение не может быть неопределенным. Имя параметра: Аргумент "Array" имеет значение Nothing."
x = x + Format(y(i), "00.00") + Space(4)
Next i
x = x + "______"
LB.Items.Add(x)
End Sub
Public Sub sort(ByRef z() As Single)
Dim box As Single
Dim i, j As Integer
For i = 0 To UBound(z) - 1
For j = i + 1 To UBound(z)
If z(i) > z(j) Then
box = z(j)
z(j) = z(i)
z(i) = box
End If
Next j
Next i
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim l, razmer As Integer
razmer = CInt(TextBox1.Text)
ReDim y(razmer)
vvod(y)
y = y
printL(y, ListBox1)
l = 1
For i = 1 To UBound(y)
If y(i) < 0 Then
z(l) = y(i)
l = l + 1
End If
Next
printL(z, ListBox2)
sort(z)
printL(z, Listbox3)
End Sub
End Class
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.