Dim i, n As Integer

n = InputBox("Введите количество элементов в массиве")

ReDim a(n)

For i = 0 To n Step 1

a(i) = InputBox("Введите элемент массива")

Next i

For i = 1 To n Step 2

MsgBox a(i)

Next i

End Sub

1. Написать программу, в результате выполнения которой подсчитывалась сумма элементов двухмерного массива размером 1 на 1.

Sub pr()

Dim m(1, 1) As Single

Dim i, j As Integer

Dim s As Single

For i = 0 To 1 Step 1

For j = 0 To 1 Step 1

m(i, j) = Val(InputBox("input znach"))

Next j

Next i

s = 0

For i = 0 To 1 Step 1

For j = 0 To 1 Step 1

s = s + m(i, j)

Next j

Next i

MsgBox s

End Sub

1. Дан массив размерностью 1 на 1. Найти сумму элементов находящихся на главной диагонали.

Sub pr()

Dim a(1, 1) As Single

Dim i, j As Integer

Dim s As Single

For i = 0 To 1 Step 1

For j = 0 To 1 Step 1

a(i, j) = InputBox("Введите элемент массива")

Next j

Next i

s = 0

For i = 0 To 1 Step 1

For j = 0 To 1 Step 1

If i = j Then

s = s + a(i, j)

End If

Next j

Next i

MsgBox s

End Sub

20. Дан одномерный массив. Найти сумму четных элементов массива.

Sub pr()

Dim a() As Single

Dim i, n, s As Integer

n = InputBox("Введите количество элементов в массиве")

ReDim a(n)

s = 0

For i = 0 To n Step 1

a(i) = InputBox("Введите элемент массива")

Next i

For i = 0 To n Step 1

If a(i) Mod 2 = 0 Then

s = s + a(i)

End If

Next i

MsgBox s

End Sub

1. Написать программу, в которую вводится массив записей о сотрудниках, а затем выводится информация об определенном сотруднике.

Type Sotr

Fam As String

Name As String

Namber As String

Adr As String

End Type

Sub pr()

Dim inf(1 To 10) As Sotr

Dim i, n, n1 As Integer

n = Val(InputBox("Введите количество сотрудников"))

For i = 1 To n Step 1

With inf(i)

.fam = InputBox("Введите фамилию")

.name = InputBox("Введите имя")

.namber = Val(InputBox("Введите номер телефона"))

.adr = InputBox("Введите адрес")

End With

Next i

n1 = Val(InputBox("Введите номер сотрудника"))

MsgBox inf(n1).fam & Chr(13) & _

inf(n1).name & Chr(13) & _

inf(n1).namber & Chr(13) & _

Inf(n1).adr

End Sub

1. Написать программу телефонный справочник в котором можно находить информацию по фамилии абонента.

Type Abonent

Fam As String

Name As String

Namber As String

Adr As String

End Type

Sub pr()

Dim inf(1 To 10) As Abonent

Dim i, n As Integer

Dim n1 As String

n = Val(InputBox("Введите количество абонентов"))

For i = 1 To n Step 1

With inf(i)

.fam = InputBox("Введите фамилию")

.name = InputBox("Введите имя")

.namber = Val(InputBox("Введите номер телефона"))

.adr = InputBox("Введите адрес")

End With

Next i

n1 = InputBox("Введите фамилию абонента")

For i = 1 To n Step 1

If n1 = inf(i).fam Then

MsgBox inf(i).fam & Chr(13) & _

inf(i).name & Chr(13) & _

inf(i).namber & Chr(13) & _

Inf(i).adr

End If

Next i

Дата добавления: 2015-08-18