Примеры на работу с массивами
Задача 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 "Исходные данные"
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
Next intI
sngp = arrA(1, 1)
arrA(1, 1) = arrA(intN, intM)
arrA(intN, intM) = sngp
Print "Первый и последний элементы поменялись местами"
For intI = 1 To intN
For intj = 1 To intM
Print arrA(intI, intj);
Next intj
Next intI
sngs = 0
For intI = 1 To intN
sngs = sngs + arrA(intI, 1)
Next intI
Print "Сумма элементов первого столбца ="; sngs
End Sub
Дата добавления: 2015-08-08; просмотров: 733;