пользователей: 30398
предметов: 12406
вопросов: 234839
Конспект-online
РЕГИСТРАЦИЯ ЭКСКУРСИЯ

I семестр:
» Informatika

20 ВОПРОС VB. Типовые программы обработки массивов. Поиск минимальных и максимальных элементов в одномерных массивах и матрицах. Пример. Вычисление суммы элементов массива. Ввод и вывод массивов. Примеры.

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

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

 Пусть имеется одномерный массив из n элементов x1,x2,…,xn.

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

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

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

Пусть имеется одномерный массив из n элементов x1,x2,…,xn.

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

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

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

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

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

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

 


17.06.2015; 21:04
хиты: 106
рейтинг:0
Точные науки
информатика
для добавления комментариев необходимо авторизироваться.
  Copyright © 2013-2024. All Rights Reserved. помощь