Примеры на работу с массивами

Задача 1. Определить число слов в тексте, если между словами один пробел.

Dim strA, strB As String

Dim intk, intl, inti As Integer

Private Sub cmd1_Click()

strA = txt1.Text

intl = Len(strA)

intk = 1

For inti = 1 To intl

strB = Mid(strA, inti, 1)

If strB = " " Then intk = intk + 1

Next inti

txt2.Text = CStr(intk)

End Sub

Private Sub cmd2_Click()

End

End Sub

Задача 2. Дана матрица n x m, элементы которой вводятся с клавиатуры. В матрице поменять местами первый и последний элементы и вычислить сумму элементов первого столбца.

Dim intN, intM, intI, intj As Integer

Dim strIJ As String

Dim arrA() As Single

Dim sngp, sngs As Single

Private Sub cmd2_Click()

End

End Sub

Private Sub cmd1_Click()

Cls

intN = Val(txt1.Text)

intM = Val(txt2.Text)

ReDim arrA(1 To intN, 1 To intM)

Print

Print "Исходные данные"

For intI = 1 To intN

For intj = 1 To intM

strIJ = InputBox("Ввод элемента a" & intI & intj & " :", "Ввод массива")

arrA(intI, intj) = CSng(strIJ)

Print arrA(intI, intj);

Next intj

Print

Next intI

sngp = arrA(1, 1)

arrA(1, 1) = arrA(intN, intM)

arrA(intN, intM) = sngp

Print

Print "Первый и последний элементы поменялись местами"

For intI = 1 To intN

For intj = 1 To intM

Print arrA(intI, intj);

Next intj

Print

Next intI

sngs = 0

For intI = 1 To intN

sngs = sngs + arrA(intI, 1)

Next intI

Print "Сумма элементов первого столбца ="; sngs

End Sub