Базовые программы обработки одномерного массива

1) Ввод одномерного массива

Пусть имеется одномерный массив из n элементов x₁,x₂,…,x_n.

Опишем и введем этот массив:

a ) Ввод при помощи текстового окна:

Dim x() As Single

Private Sub Button1_Click()

Dim n As Integer, i As Integer

n = CSng(InputBox("Введите n"))

ReDim x(0 To n-1)

For i = 0 To n-1

x(i) = CSng(TextBox1.Text)

Next i

End Sub

b) Ввод при помощи функции InputBox:

Dim x() As Single

Private Sub Button1_Click()

Dim n As Integer, i As Integer

n = CSng(InputBox("Введите n"))

ReDim x(0 To n-1)

For i = 0 To n-1

x(i) = CSng(InputBox("x(" & CStr(i) & ")", "массив аргументов"))

Next i

End Sub

 Нахождение наибольшего элемента массива и порядкового номера этого элемента:

Max = x(0)

For i = 0 To n-1

If x(i) > Max Then Max = x(i): nm = i

Next i

Базовые программы обработки одномерного массива

1) Ввод одномерного массива

Пусть имеется одномерный массив из n элементов x₁,x₂,…,x_n.

Опишем и введем этот массив:

a ) Ввод при помощи текстового окна:

Dim x() As Single

Private Sub Button1_Click()

Dim n As Integer, i As Integer

n = CSng(InputBox("Введите n"))

ReDim x(0 To n-1)

For i = 0 To n-1

x(i) = CSng(TextBox1.Text)

Next i

End Sub

b) Ввод при помощи функции InputBox:

Dim x() As Single

Private Sub Button1_Click()

Dim n As Integer, i As Integer

n = CSng(InputBox("Введите n"))

ReDim x(0 To n-1)

For i = 0 To n-1

x(i) = CSng(InputBox("x(" & CStr(i) & ")", "массив аргументов"))

Next i

End Sub

Вычисление суммы элементов массива:

s = 0

For i = 0 To n-1

s = s + x(i)

Next i

4) Вывод последовательности элементов одномерного массива

А)Вывод при помощи текстового окна:

Dim x() As Single

Private Sub Button1_Click()

n = CSng(InputBox("Введите n"))

ReDim x(0 To n-1)

For i = 0 To n-1

TextBox1.text= TextBox1.text +CStr(x(i))+vbCrLf

Next i

End Sub

b ) Вывод при помощи функции MsgBox :

Dim x() As Single

Private Sub Button1_Click()

n = CSng(InputBox("Введите n"))

ReDim x(0 To n-1)

For i = 0 To n-1

x(i) = MsgBox(CStr(x(i)), , "x(" & CStr(i) & ")")

Next i

End Sub

ВОПРОС.VB. Типовые программы обработки массивов.  Сортировка.

Базовые программы обработки одномерного массива

1) Ввод одномерного массива

Пусть имеется одномерный массив из n элементов x₁,x₂,…,x_n.

Опишем и введем этот массив:

a ) Ввод при помощи текстового окна:

Dim x() As Single

Private Sub Button1_Click()

Dim n As Integer, i As Integer

n = CSng(InputBox("Введите n"))

ReDim x(0 To n-1)

For i = 0 To n-1

x(i) = CSng(TextBox1.Text)

Next i

End Sub

b) Ввод при помощи функции InputBox:

Dim x() As Single

Private Sub Button1_Click()

Dim n As Integer, i As Integer

n = CSng(InputBox("Введите n"))

ReDim x(0 To n-1)

For i = 0 To n-1

x(i) = CSng(InputBox("x(" & CStr(i) & ")", "массив аргументов"))

Next i

End Sub

Сортировка

Private Sub sortVa ()

 Dim 1Va (2) As String

1Va (0) = "lion"

 1Va (1) = "turtle"

 1 (2) = "ostrich"

 Array.Sort(1Va)

 End Sub

ВОПРОС . VB. Процедуры, создаваемые программистами. Заголовок процедуры. Формальные и фактические параметры. Обращение к процедуре. Порядок выполнения.

Процедуры Sub…End Sub
Синтаксис процедуры Sub.. .End Sub такой:
[Private I Public] [Static] Sub имя [(список)]
[операторы]
[Exit Sub]
[операторы]
End Sub

Процедура - подпрограмма, которую вызывают для выполнения каких либо действий, но от которой не требуется возвращать основной программе какие либо значения. Другими словами процедура это любая подпрограмма которая не является функцией.

Параметры

Private Процедуры объявленные как Private , можно вызывать только в текущем модуле.

Public Процедуры объявленные как Public , можно вызывать в любом модуле приложения.

Static Все переменные объявление в процедуре будут статическими т.е. их значения сохраняются между вызовами.

Имя Имя процедуры, удовлетворяющее стандартным правилам описания переменных. Этот идентификатор не может быть использован нигде, кроме обращения к процедуре.

Параметры Список формальных параметров, значения которых передаются в процедуру. Разделителем в списке параметров является запятая (,).

Операторы Любая группа операторов, выполняемых в процедуре или функции.

Тип Тип возвращаемого значения функции.

Выражение Возвращаемое значение функции.

Обращение к процедуре

Используется оператор вызова процедуры, который имеет следующий вид:

Call Имя [(Список фактических параметров)]

Где:

Имя – это имя вызываемой процедуры, определенной в программе при помощи оператора Sub.

Список фактических параметров – это список фактических параметров, разделенных запятыми.

В качестве фактических параметров можно использовать константы, переменные, выражения и массивы.

Если фактическим параметром является массив, то в списке параметров пишется имя массива, а затем ().

Фактические параметры должны соответствовать формальным по количеству, порядку следования и типу.

Порядок обращения к процедуре

1. Вызов процедуры при помощи оператора Call.

2. Формальные параметры в процедуре заменяются на фактические.

3. Вычисление при помощи данной процедуры с фактическими параметрами.

4. Возврат в основную программу к оператору, следующему после обращения.

Пример обращения к процедуре:

Private Sub button1_Click()

Dim a() As Single, s As Single, i As Integer, n As Integer

n = CSng(InputBox("n"))

Redim a(0 to n-1)

For i = 0 To n-1

a(i) = CSng(InputBox("a(i)"))

Next i

Call sum(n, a, s)

ТextBox1.Text=TextBox1.Text + “s="+CStr(s)

End Sub